Help for this page

Select Code to Download


  1. or download this
    $label->configure(-text=>'');
$label->configure(-text=> $newtext);
  2. or download this
    my $length = length $oldtext;
my $text = ' ' x $length;
$label->configure(-text=> $text);
$label->configure(-text=> $newtext);