dateentry and calendar widgets

Windows XP SP3
AS PERL 5.12
Tcl 8.5.9
tkkit is from AS PERL 5.14


Trying to use the dateentry widget...


$mw = Tkx::widget->new(".");
    my $testmw = $mw->configure();
    #$mw->g_wm_withdraw();
    $mw->g_wm_iconify();
    Tkx::package_require("widget::calendar");
    Tkx::package_require("widget::dateentry");   <<<<< line 710
    
    #
    my $cwidget;
    my $caltext = "3/10/2009";
    my $tframe = $mw->new_ttk__frame();
    $cwidget = $tframe->new_widget__calendar (-textvariable => \$caltext,
                          -firstday => 'sunday',
                          -dateformat => '%d-%h-%Y',
                          -command => [sub {
                                                        print "CALENDAR!\n";
                                                        my $cdate = $cwidget->get();
                                                        printf "Current Date: %s\n", $cdate;
                                                        printf "CalText: %s\n", $caltext;
                                                        }]);
    $tframe->g_pack(-side=>'top');
    $cwidget->g_pack(-side=>'top');
    printf "%s\n", $cwidget->configure();

If I try and execute I get the following error...

can't read "argv0": no such variable at c:\qa\tobserver.pl line 710.

I looked fro the dateentry widget and do see v0.93 in the tkkit.dll.

If I comment out line 710, then all runs just fine.

Thanks,
gary

• dateentry and calendar widgets by gary sachs
• Re: dateentry and calendar widgets by Jeff Hobbs
• Re: dateentry and calendar widgets by gary sachs