Collecting Text input in a Dialog. - Perl

Jac wrote:
> I new to Perl/Tk programming and am having difficulty.
> I am confused on how to collect the text entered in the dialog to be
> seen in the main window.
>
> I have the following:
>
> use Tk;
> use Tk:ialogBox;
> use Tk::BrowseEntry;
> my $mw = MainWindow->new(-title=>'Dialog Box');
> my $name;
> my $d = $mw->DialogBox(-title => "Title", -buttons => ["OK",
> "Cancel"]);
> my $be=$d->BrowseEntry(-text=>'Name',
> -variable=>\$name)->pack;
> $mw->Button(-text=>'Show',
> -command=> sub{
> $d->Show})->pack;
> print STDOUT $name;
>
> MainLoop;
>
$name will hold the current value of the BrowseEntry widget.
Your script prints nothing because you print the value of
$name while it is still undefined. Put a print statement in
your button sub after you Show the DialogBox.

use Tk;
use Tk:ialogBox;
use Tk::BrowseEntry;
my $mw = MainWindow->new( -title => 'Dialog Box' );
my $name;
my $d = $mw->DialogBox(
-title => "Title",
-buttons => [ "OK", "Cancel" ]
);
my $be = $d->BrowseEntry(
-text => 'Name',
-variable => \$name
)->pack;
$mw->Button(
-text => 'Show',
-command => sub {
$d->Show;
print "$name\n";
}
)->pack;

MainLoop;

Thank you. I also found the browsecmd and used that to print after a
selection is made. I was worried about
getting the data entered back to the main form for use.
Thanks again.
Jac