Hi all,
Some amongst you might want to know that Perl/Tk messageBox widget seems
to have changed.
Here is a transcript of the code that used to work (believe me, it
really did ;-):
D:\Perl>perl -version
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
....
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.
Once found, it was easy to fix (... my $doit = lc ...). But finding
that Perl versions broke my code was unexpected. Also surprising was
that a search of the web drew a blank.
I hope that this helps someone, somewhere with legacy code running
happily, packaged in PerlApp or whatever.
Alan
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
