in reply to Re: Tk question
in thread Tk question
Hi,
thanks for the reply.I am a bit confused.In the first section of code I have a text widget defined like this:
are defined in the frame above with stmts like:
"my $t" within this sub and localise it, we wont be referring to the first $t defined outside the sub.Is that right?
These subs also use $t again and need to refer to the text widget define initially using:
The sub &tged works on the first button click, and does not work therafter.The other subs are not working at all.
Please help.
Thanx :)
thanks for the reply.I am a bit confused.In the first section of code I have a text widget defined like this:
Then I have a number of subroutines where $t is used again. These subroutines are bound to buttons whichmy $f = $mw->Frame->pack(-side => 'top', -fill => 'x'); my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side = +> 'bottom', -fill => 'both', -expand => 1);
are defined in the frame above with stmts like:
In the sub &tged, the get stmt should read characters within the text widget defined initially using $t.If I use$f->Button(-text => "Display", -command =>\&tged)->pack(-side => 'righ +t'); sub tged { @chars=$t->get('sel.first','sel.last'); #print "\nSelected word:"; #print @chars; } 1;
"my $t" within this sub and localise it, we wont be referring to the first $t defined outside the sub.Is that right?
These subs also use $t again and need to refer to the text widget define initially using:
I'm not sure where we should use "my", and where we should not.Turning on use strict gives no message about $t.my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side = +> 'bottom', -fill => 'both', -expand => 1); sub replace1{ . . $t->insert('sel.first',"$chosen1"); . . } 1; sub replace2{ . . $t->insert('sel.first',"$chosen2"); . . } 1; sub replace3{ . . $t->insert('sel.first',"$chosen3"); . . } 1; sub addit{ . . @addword=$t->get('sel.first','sel.last'); . . } 1;
The sub &tged works on the first button click, and does not work therafter.The other subs are not working at all.
Please help.
Thanx :)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Tk question
by benn (Vicar) on Sep 10, 2003 at 09:49 UTC | |
by PhilHibbs (Hermit) on Sep 10, 2003 at 10:35 UTC | |
by benn (Vicar) on Sep 10, 2003 at 11:04 UTC | |
by perl_seeker (Scribe) on Sep 15, 2003 at 09:05 UTC | |
by perl_seeker (Scribe) on Sep 22, 2003 at 11:25 UTC | |
by Anonymous Monk on Sep 10, 2003 at 10:47 UTC |
In Section
Seekers of Perl Wisdom