----- Original Message ----- From: "Lovett, Alan J" . . > .... > D:\Perl>type Tk_example_MessageBox.pl > use Tk; > my $mw = MainWindow->new; > my $doit = $mw->messageBox( > -title => 'Please reply', > -message => 'Continue', > -type => 'OKCancel', > -icon => 'question', > -default => 'cancel' > ); > print "Cancel ($doit)\n" if $doit ne 'ok'; > print "Continue ($doit)\n" if $doit eq 'ok'; > D:\Perl>perl Tk_example_MessageBox.pl (and select OK) > Cancel (Ok) > > i.e. once upon a time, messageBox returned 'ok', now it returns 'Ok'. > > I would like to be more exact about version numbers, but the problem > code that works was embedded via PerlApp more than a year ago, and its > Perl environment is long gone. >
I can narrow it down a little - somewhere between build 638 (perl 5.6.1, which returned 'ok') and build 810 (perl 5.8.4, which returned 'Ok'). However, the *real* culprit is probably the version of Tk that is being run. AS build 810 (and later) runs Tk-804.027. AS build 638 runs Tk-800.024. I have a perl 5.8.8 with Tk-800.024 and it returns 'ok' (same as build 638) for that script. I therefore submit that complaints should be sent to the Tk mailing list, in general (and to Nick Ing-Simmons, in particular :-) Cheers, Rob _______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
