NAME

Tk::Autoscroll - space invaders-like scrolling

SYNOPSIS

use Tk::Autoscroll;
Tk::Autoscroll::Init($widget);

DESCRIPTION

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';

FUNCTIONS

Init($widget, [options ...])

Possible options:

-trigger

Default value is "<Button-2>"

-speed

Values are "slow", "normal" and "fast". Default value is "normal".

-beforestartcommand, -afterstartcommand, -beforestopcommand, -afterstopcommand

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.

Reset($widget)

Remove the binding, scrolling is not possible anymore.

BUGS

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.

SEE ALSO

Tk, Tk::Scrolled

AUTHOR

Slaven Rezic <eserte@cs.tu-berlin.de>

COPYRIGHT

Copyright (c) 1999,2001 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.