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
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|