Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^4: Changing state for gridded Entry?

by cniggeler (Sexton)
on Jun 10, 2023 at 22:19 UTC ( [id://11152755] : note . print w/replies, xml ) Need Help??


in reply to Re^3: Changing state for gridded Entry?
in thread Changing state for gridded Entry?

Thanks for your fix! FYI, this is a 26kLOC perl/Tk GUI, and while I've reviewed potential children of $FrameOpt there's a possibility in the future that there could be a match to an unintended target.

Is there a way to narrow down the search, or is the $test1 handle useless? For instance, I tried $test1 -> $FrameOpt -> Entry but got an error "Can't locate auto/Tk/Frame=HASH(0x68d3998).al" so that's obviously not the approach.

It could be there is no solution without a different subroutine call, and I don't mean for you to have to delve into that :-) In which case I would carefully comment.

  • Comment on Re^4: Changing state for gridded Entry?

Replies are listed 'Best First'.
Re^5: Changing state for gridded Entry?
by NetWallah (Canon) on Jun 10, 2023 at 22:52 UTC
    Instead of searching for the entry, you could explicitly attach a variable ($entry_1) to it at creation time:
    use strict; use warnings; use Tk; my $test1; my $var = "55"; my $mw = MainWindow->new(); my $FrameOpt = $mw -> Frame; my $exit_b = $mw->Button(-text => 'Exit', -command => sub { exit })->pack; my $entry_1; $mw->Button(-text => "Toggle Textbox", -command => sub { #my ($entry) = grep { $_->class eq "Entry" } $FrameOpt->c +hildren; $entry_1-> configure(-state => $entry_1->cget('-state') e +q "disabled" ? 'normal' : 'disabled'); })->pack; sub GuiTextEntryLabelOnLeftCreate { my ($frame, %x_args) = @_; my $label; my $text = $x_args{'-text'}; delete $x_args{'-text'}; $label = $frame -> Label ( -text => $text, -foreground => "black" ) -> grid ( $entry_1 = $frame -> Entry (%x_args) , -sticky => 'w' , -pady => 2 ); $label; } $test1 = GuiTextEntryLabelOnLeftCreate ( $FrameOpt , -text => "Test value" , -textvariable => \$var , -width => 6, -state => "disabled", -foreground => "gray", ); $FrameOpt->pack; MainLoop();

                    "These opinions are my own, though for a small fee they be yours too."

      Thanks again! I didn't even think to try adding a name inside the grid(), would have guessed that would be illegal syntax. Put this fix in the production code by specifying $entry_1 as the return value rather than $label.