Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Perl/Tk widget removal problem...

by batkins (Chaplain)
on Aug 29, 2003 at 17:49 UTC ( #287776=note: print w/replies, xml ) Need Help??


in reply to Perl/Tk widget removal problem...

I don't have too much experience with the grid manager, but I think the problem may be that $pg was never actually gridded in. Try saving the wdigets to variables and then calling gridRemove on them. For example:
sub doFileImportUi { ... my $lbl1 = $pg->Label(-text => 'File', -width => '10'); my $entr1 = $pg->LabEntry(-width => '30', -textvariable => \$state +->{ImpFile}), $pg->Button(-text => 'Browse', -command => [ \&getImpor +tFile, $pg, $dbh], -width => '10'); $lb1->grid($entr1); ... }
Then later on, do
$lbl1->gridRemove($entr1);
Of course, you'd want to use more meaningful variable names than those, but I think that should do the trick.
it says she can do math, but will she recognize 8 / 0?

We can only hope they've put in those safeguards.

Worst case scenario: She succeeds in dividing by zero, and suddenly little Tiphany-Amber's bedroom becomes the center of a howling vortex of nonspace, frying the neighborhood with sparkling discharges of zero-point energy.

- slashdot

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2021-01-27 21:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?