Help for this page

Select Code to Download


  1. or download this
    my $t1 = $left1->Label(-text => ' ',
                       -background => 'cyan')->pack();
...

my $t1 = $left1->Label(-text => ' Year ',
                       -background => 'cyan')->pack();
  2. or download this
     
with ($left1) {
    default -background => 'cyan';
...
    Label(-text => ' Month ');
    Label(-text => ' Year ');
}