Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

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.

converter


Comment on Re: Tk:Columns & Execution of Perl scripts
Select or Download Code
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.
    Regards,
    Vassili

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://285534]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2014-10-22 21:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (122 votes), past polls