use vars qw($IpAddress); my $entry = $parent->Entry(-textvariable => \$IpAddress) ->pack(-side => 'left'); $parent->Button(-text => 'Go', -command => \&DoIt) ->pack(-side => 'left'); sub DoIt { print "Entry contains: $IpAddress\n"; } # DoIt
Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"
In reply to Re^2: Perl/Tk processing entered text with button
by strat
in thread Perl/Tk processing entered text with button
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |