Tk::SlideSwitch - a 2 position horizontal or vertical switch.
use Tk::SlideSwitch; my $sl = $frame1->SlideSwitch( -bg => 'gray', -orient => 'horizontal', -command => [$self => 'on'], -llabel => [-text => 'OFF', -foreground => 'blue'], -rlabel => [-text => 'ON', -foreground => 'blue'], -troughcolor => 'tan', )->pack(qw/-side left -expand 1/);
Tk::SlideSwitch is a Frame based composite mega-widget featuring a binary Scale widget surrounded by two Label widgets. The Scale's value can be either 0 or 1. The Labels are positioned to the left and right of the Scale if its orientation is horizontal, else on the top and bottom of the Scale.
In addition to all Scale options, the following option/value pairs are also supported:
A reference to an array of left (or top) Label configuration options.
A reference to an array of right (or bottom) Label configuration options.
There are no special methods.
Component subwidgets can be accessed via the Subwidget method. This mega widget has no advertised subwidgets.
See Synopsis.
This widget uses only the pack geometry manager.
sol0@Lehigh.EDU
Copyright (C) 2002 - 2003, Steve Lidie. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SlideSwitch, Scale
To install Tk::SlideSwitch, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::SlideSwitch
CPAN shell
perl -MCPAN -e shell install Tk::SlideSwitch
For more information on module installation, please visit the detailed CPAN module installation guide.