Adam Frielink wrote:
> If anyone has the Learning Perl/Tk book, I am working through
> the example on
> page 65. I will include the script following.
>
> My problem is that this routine as in the book doesn't work.
> I can Disable
> the Exit button but re-enabling it doesn't work. My print
> statement returns
> the following:
>
> ARRAY(0x1814af8)
> ARRAY(0x1814ad4)
>
> Obviously, I get the first when I disable the Exit button,
> the second when I
> attempt to re-enable it. The problem is that my Exit button is never
> re-enabled. If I continue to hit the 'Enable/Disable Exit'
> button, those
> two value alternateendlessly. So, I don't know where the
> problem is found.
>
> Any thoughts,
>
> TIA,
Change the first line in the -command sub to
my $state = $exit_b->cget(-state);
This retrieves the configuration info; the code example was mistakenly
setting it.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
