Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

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!


Comment on Re: Modifying Tk widgets via references
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://674660]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2014-11-26 01:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (160 votes), past polls