Kevin Michael Vail > Tk-autobind-1.2 > Tk::autobind

Download:
Tk-autobind-1.2.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 1.2   Source  

NAME ^

Tk::autobind - automatically bind a widget to an ALT-key

SYNOPSIS ^

use Tk::autobind;

$widget->autobind(callback);

DESCRIPTION ^

Tk::autobind offers a convenient way to set up a form and have ALT-key bindings for the widgets on that form. All you have to do is call autobind after you create a widget. If the widget has an -underline configuration option set to a value greater than or equal to 0, its ALT-key binding is the key at that location in the widget's -text configuration option.

For example, if you have a Checkbutton with the following -text:

    Automatically fix

and its -underline value is set to 0, then if the user presses ALT-A while the focus is in the widget's main window, the checkbutton widget will be invoked.

The binding that is generated is essentially

$widget->toplevel->bind('<Alt-Key-x>', $callback);

METHODS ^

$widget->autobind(callback);

Adds the binding given above. If callback is specified, it must be one of the forms of a valid Tk callback (see Tk::callbacks). If it is omitted, a closure is generated and used:

    sub { $widget->Invoke }

If callback is explicitly set to an empty string, the binding is removed.

This method always returns $widget to allow method chaining. For example, you can stick autobind before the call to pack:

    my $checkbutton = $mw->Checkbutton(Name => 'cb1')->autobind->pack;

SEE ALSO ^

Tk::bind

AUTHOR ^

Kevin Michael Vail <kevin@vaildc.net>

syntax highlighting: