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
