in reply to Tk:Columns & Execution of Perl scripts
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Tk:Columns & Execution of Perl scripts
by El Greco (Initiate) on Aug 21, 2003 at 19:12 UTC |