Tk::SlideSwitch - a 2 position horizontal or vertical switch.

- NAME
- SYNOPSIS
- DESCRIPTION
- OPTIONS
- METHODS
- ADVERTISED WIDGETS
- EXAMPLE
- BUGS
- AUTHOR
- KEYWORDS

# NAME

Tk::SlideSwitch - a 2 position horizontal or vertical switch.

# SYNOPSIS

     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/);

# DESCRIPTION

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.

# OPTIONS

In addition to all Scale options, the following option/value pairs are also supported:

-llabel
  A reference to an array of left (or top) Label configuration options.

-rlabel
  A reference to an array of right (or bottom) Label configuration options.

# METHODS

There are no special methods.

# ADVERTISED WIDGETS

Component subwidgets can be accessed via the Subwidget method. This mega widget has no advertised subwidgets.

# EXAMPLE

See Synopsis.

# BUGS

This widget uses only the pack geometry manager.

# AUTHOR

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.

# KEYWORDS

SlideSwitch, Scale

Tk::SlideSwitch - a 2 position horizontal or vertical switch.