Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Modifying Tk widgets via references

by my_nihilist (Sexton)
on Mar 17, 2008 at 21:53 UTC ( #674660=note: print w/replies, xml ) Need Help??

in reply to Modifying Tk widgets via references

well, here's the code i was talking about anyway (it works on linux fedora 7). If you need to believe about the memory thing, just try "Tk destroy memory" in PerlMonks or google.
#!/usr/bin/perl -w use strict; use Tk; my $MW = new MainWindow(); my $TLi = $MW->Toplevel(); $TLi->state('withdrawn'); my $TLii = $MW->Toplevel(); $TLii->state('withdrawn'); my $Bi = $MW->Button(-text=>"Toplevel 1",-command=>sub{raiselower(1)}) +->pack(); my $Bii = $MW->Button(-text=>"Toplevel 2",-command=>sub{raiselower(2)} +)->pack(); MainLoop; sub raiselower { if (@_ == 1) { my $state = $TLi->state(); if ($state eq "withdrawn") {$TLi->state('normal')} else {$TLi->state('withdrawn')} } elsif (@_ == 2) { my $state = $TLii->state(); if ($state eq "withdrawn") {$TLii->state('normal')} else {$TLii->state('withdrawn')} } }
Click the buttons alternately over and over!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://674660]
[thezip]: What idiom should I use to determine that a directory is empty (for many directories)?

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2017-03-28 18:24 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (339 votes). Check out past polls.