note
Athanasius
<p>The following seems to work correctly:</p>
<code>
sub check_card
{
my $cardno = $card->get();
if (length $cardno == 0)
{
error_no_card();
}
elsif (length $cardno > 0)
{
$mw->Label
(
-text => "\nChecking Account Details for '$cardno'.\n Please Wait......\n",
-width => 54,
)->pack();
$mw->update;
my $exists = check_in_SQLStore($cardno);
print "We got nothing\n" unless $exists;
}
}
</code>
<p>That is, call <c>$mw->update;</c> immediately after creating the label.</p>
<p>See, for example, the recent thread [id://1014459].</p>
<p>Hope that helps,</p>
<div class="pmsig"><div class="pmsig-968231">
<p>
<table width="100%">
<tr>
<td align="left">
Athanasius <font color="#008000"><</font>[href://http://www.biblegateway.com/passage/?search=John%203:16&version=NLV|<font color="#008000">°</font>]<font color="#008000">(((><</font> <i>contra mundum</i>
</td>
<td align="right">
[href://http://translate.google.com.au/#la/en/Iustus%20alius%20egestas%20vitae%2C%20eros%20Piratica%2C|<b>Iustus alius egestas vitae, eros Piratica,</b>]
</td>
</tr>
</table>
</p>
</div></div>
1015886
1015886