Help for this page

Select Code to Download


  1. or download this
        my $sw = $mw->screenwidth;
    my $sw_new=int($sw*.99);
    $mw->geometry("${sw_new}x400+0+0");
  2. or download this
        if ($number_of_columns_in_GUI=~2){
    my $col_new=int($sw*.50);
...
    my $col_new=int($sw*.33);
    $t->colWidth( 0=> $col_new,  1=> $col_new, 2=> $col_new, 3=> 80);
    }