Tk::Autoscroll - space invaders-like scrolling
use Tk::Autoscroll; Tk::Autoscroll::Init($widget);
This lets you enable scrolling similar to the one in Microsoft Explorer. Press the middle mouse button and then move the mouse to scroll the widget. A further press on the middle button stops the scrolling.
It is also possible to use the autoscrolling feature for all Scrolled() widgets automatically. To do so, you have to write
use Tk::Autoscroll 'as_default';
Possible options:
Default value is "<Button-2>"
An event to stop autoscrolling. Normally, this is not defined meaning that autoscrolling will stop if Button-2 is pressed again. If -stoptrigger is set to <ButtonRelease-2>, then the user have to hold the middle button down to autoscroll and autoscrolling will stop if the user releases the button.
-stoptrigger
<ButtonRelease-2>
Values are "slow", "normal" and "fast". Default value is "normal".
Commands which are executed before/after beginning/ending autoscroll operation. Note that only subroutine references are allowed, but not perl/Tk callbacks (i.e. the [ ] notation). The "-before" callbacks should return true, otherwise the operation is cancelled.
If you want to apply any Init options to all widgets when using as_default, then you can define the global variable @default_args. Example:
Init
as_default
@default_args
@Tk::Autoscroll::default_args = (-stoptrigger => '<ButtonRelease-2>');
Remove the binding, scrolling is not possible anymore.
The import() function could be better implemented, i.e. avoiding the duplicate of Scrolled() definition.
Any motion binding for the widget is overwritten.
Reset() should probably restore all used bindings.
Tk, Tk::Scrolled
Slaven Rezic <slaven@rezic.de>
Copyright (c) 1999,2001,2002 Slaven Rezic. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Tk::Autoscroll, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::Autoscroll
CPAN shell
perl -MCPAN -e shell install Tk::Autoscroll
For more information on module installation, please visit the detailed CPAN module installation guide.