You want to call get on the return value of the widget itself. Here is how it may be used in a simplified version of example 1.1 from the Tk::UserGuide where a Button is set up to call a sub where the call to get lies:
#!/usr/bin/perl -w
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";
}
Previous | Return to table of contents | Next