#!/usr/bin/perl use warnings; use strict; use Tk; my $main = MainWindow->new(); my $entry = $main->Entry(); $entry->pack; $main->Button( -text => 'Print', -command => sub { do_print($entry) } )->pack; MainLoop; sub do_print { my ($widget) = @_; my $entered = $widget->get(); print "The string \"$entered\" was entered.\n"; }
In reply to Re: Tk::text input problem
by zentara
in thread Tk::text input problem
by Dirty Luigi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |