Help for this page

Select Code to Download


  1. or download this
    my $f = $mw->Frame->pack(-side => 'top', -fill => 'x');
my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side =
+> 'bottom', -fill => 'both', -expand => 1);
  2. or download this
    $f->Button(-text => "Display", -command =>\&tged)->pack(-side => 'righ
+t'); 

...
#print @chars;
  }
1;
  3. or download this
    my $t = $mw->Scrolled("Text",-font=>"{arial} 12 {bold}")->pack(-side =
+> 'bottom', -fill => 'both', -expand => 1);

...
.
}
1;