Help for this page

Select Code to Download


  1. or download this
    my %PBCfg = (
                -width => "20",
...
                -foreground => 'green'
                );
my $Prb = $TBL_frame->ProgressBar(%PBCfg, -troughcolor=>'white',-varia
+ble=>\$T_testers{$tst}->{"ProgS"})->pack(-side=>'left', -fill=>'x');
  2. or download this
    $T_testers{$tst}->{'Status_B'}->configure(-text=>"Down",-background =>
+ "red" );
$T_testers{$tst}->{"ProgBar"}->configure(-foreground => "red" );$mw->u
+pdate;