Help for this page

Select Code to Download


  1. or download this
    $submit->bind('<1>' => sub { Submit($p1, $p2, $p3, $p4, $p5); } );
  2. or download this
    $yscroll=$mw->Scrollbar()->pack(-fill=>'y', -side=>'right',);
$yscroll->configure( -command => [ \&ScrollAll, $yscroll, [$p1, $p2, $
+p3, $p4, $p5]]);
...
            $w->yview(@args);
        }
}
  3. or download this
    -command => sub {
    subname ($p1, $p2, $p3, $p4, $p5); 
}