As RMGir already mentioned, you ought to enable warnings and use strict, this will probably save you some time chasing silly mistakes.
One problem I noticed is that you're passing a reference to $testfile_e as the -textvariable parameter, then assigning the reference to the Tk::Entry widget returned by the constructor to the same variable. This is not good. The -textvariable parameter should be a reference to a variable that is to contain the content of the Tk::Entry, only. I noticed in your screenshot that the filename Entry shows the widget path (.notebook.viewlog.frame.frame1.entry).
# line 134 $testfile_e = $incol2fr->Entry( -text =>'No file selected', -state => 'normal', -textvariable => \$testfile_e, -width => 60, )->pack( -side => 'top', -anchor => 'nw', -pady => 3, );
Try changing the code to something like this:
# line 134 my $testfile_var; my $testfile_e = $incol2fr->Entry( -text =>'No file selected', -state => 'normal', -textvariable => \$testfile_var, -width => 60, )->pack( -side => 'top', -anchor => 'nw', -pady => 3, );
That's all I have time for at the moment, I hope that helps.
In reply to Re: Tk:Columns & Execution of Perl scripts
by converter
in thread Tk:Columns & Execution of Perl scripts
by El Greco
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |