Help for this page

Select Code to Download


  1. or download this
    my $newfont = '';
# maybe font value read from user, results in
...
$rw->Label(-text => "Col. 1", $opt, -padx => 10)->grid(
   $rw->Label(-text => "Col. 2", $opt, -padx => 11),
   $rw->Label(-text => "Col. 3", $opt, -padx => 11))
  2. or download this
    Tk::Error: Odd number of args to Tk::Label->new(...)