Tk::FireButton - Button that keeps invoking command when pressed
use Tk::FireButton; $fire = $parent->FireButton( ... ); # May/should change: $w->Whatever(... -bitmap => $Tk::FireButton::INCBITMAP, ...); $w->Whatever(... -bitmap => $Tk::FireButton::DECBITMAP, ...);
FireButton is-a Button widget (see Tk::Button) that keeps invoking the callback bound to it as long as the <Button> is pressed.
The FireButton widget-class is derived from the Button widget-class and inherits all the methods and options its super-class (see Tk::Button).
FireButton supports all the standard options of a Button widget. See options for details on the standard options.
Specifies the amount of time before the callback is first invoked after the Button-1 is pressed over the widget.
Specifies the amount of time between invokations of the callback bound to the widget with the
The fallback values of the following options as different from the Button widget:
-anchor => 'center', -highlightthickness => 0, -takefocus => 0, -padx => 0, -pady => 0,
Same as for Tk::Button.
The code was extracted Tk::NumEntry and slightly modified by Achim Bohnet <firstname.lastname@example.org>. Tk::NumEntry's author is Graham Barr <email@example.com>.
Convert it to a library so one could use
use Tk::Lib::Fire; ... @ISA = qw(... Tk::Lib::Fire ... ) ... $widget->bindFire(startEvent, cancalEvent);
so one could use it with button press/release, entry up/down, ...