Help for this page

Select Code to Download


  1. or download this
    my %colors = (
    but_quit => {
...
);

$frame->LabEntry(-label=>"IP Address", -labelWidth=>$lblwidth, -labelP
+ack=>[-side=>'left', -anchor=>'w'], -textvariable => \$ServiceSystem,
+ $colors{lbl} )
  2. or download this
    lbl =>  {
        '-background => tan, -foreground => black',
    },