Help for this page

Select Code to Download


  1. or download this
    my $t1 = $mw->Scrolled('TextUndo')->pack;
my $t1_real = $t1->Subwidget("scrolled");
  2. or download this
    #!/usr/bin/perl
use warnings;
...
$t1->bindtags([($t1->bindtags)[1,0,2,3]]);

MainLoop;