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:
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
Then later on, dosub 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); ... }
Of course, you'd want to use more meaningful variable names than those, but I think that should do the trick.$lbl1->gridRemove($entr1);
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
In Section
Seekers of Perl Wisdom