Tk lab entry widget

sandeep.ses has asked for the wisdom of the Perl Monks concerning the following question:

i am trying to use a lab entry widget .. Wheni click the button it displays the test.mrc not the value i typed in the entry here is the code

$output = 'test.mrc';
my  $output_entry = $mrc_frame->LabEntry(
        -label=>'Output File Name',
        -labelPack=>[qw/-side left -anchor w/],
        -labelFont=>'9x13bold',
        -relief=>'flat',
        -textvariable=>\$output,
        -width=>15,
        );
my $info_test = $mrc_frame->Button(
       -text => 'Generate & View',
       -font => $gui_font,
       -background =>'#336699',
       -foreground =>'white',
       -padx=>4,
       -pady=>$button_pady,
       -command =>[sub{
         printf "pdb2mrc $_[0] $_[1]";                                
+   },$input_file,$output]
      )->pack(-pady=>4, -side=>'left');
[download]

wat am i missing out here ? Sandeep

Comment on Tk lab entry widget Download Code

Replies are listed 'Best First'.
Re: Tk lab entry widget by Joost (Canon) on Jul 06, 2004 at 16:55 UTC
The `-command => [ sub {}, @args ]` syntax evaluates @args at the time the widget is created. You want `$info_test = $mrc_frame->Button( -text => 'Generate & View', -command => sub{ print $output; }, )->pack();` [download] edit: which will hang on to the $output var and re-evaluate it everytime the anonymous sub is called. "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Tk lab entry widget
by Joost (Canon) on Jul 06, 2004 at 16:55 UTC

-command => [ sub {}, @args ]

$info_test = $mrc_frame->Button(
       -text => 'Generate & View',
       -command =>  sub{ print $output;  },
      )->pack();
[download]

edit: which will hang on to the $output var and re-evaluate it everytime the anonymous sub is called.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

[reply]
[d/l]
[select]