Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Tk:Columns & Execution of Perl scripts

by converter (Priest)
on Aug 21, 2003 at 17:21 UTC ( #285534=note: print w/replies, xml ) Need Help??

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
    Thank you to both of you that replied.
    I am updating the posted version so it will include the changes that you suggested.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://285534]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2017-08-23 07:34 GMT
Find Nodes?
    Voting Booth?
    Who is your favorite scientist and why?

    Results (348 votes). Check out past polls.