use Tk; use strict; my $entry_val = "initial value"; my $mw = new MainWindow(title => "demo"); $mw->Entry(width => 20, textvariable => \$entry_val)->pack; $mw->Button(text => "click", command => sub {print $entry_val, "\n";}) +->pack; MainLoop;
In reply to Re: deref question
by pg
in thread deref question
by smackdab
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |