Help for this page

Select Code to Download

Select or download this

$ perldoc -l -m Tk
C:\citrusperl\vendor\lib\Tk.pm
...
    $e->bind('<ButtonRelease-1>' => undef);
 $mw->bind($class,'<Button-6>',     ['xview','scroll',-1,'units']);
 $mw->bind($class,'<Button-7>',     ['xview','scroll',1,'units']);

Select or download this

$ which -a widget
C:/citrusperl/vendor/bin/widget
C:/citrusperl/vendor/bin/widget.BAT
...
use Tk::Config ();
use WidgetDemo;
use subs qw/