tk::demos::widget_lib::slide(3pm) [debian man page]

demos::widget_lib::slide(3pm)				       perl/Tk Documentation				     demos::widget_lib::slide(3pm)

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

Tk804.03							    2010-05-29					     demos::widget_lib::slide(3pm)

WidgetDemo(3pm) 					User Contributed Perl Documentation					   WidgetDemo(3pm)

NAME

       WidgetDemo() - create a standard widget demonstration window.

SYNOPSIS

	use WidgetDemo;
	my $TOP = $MW->WidgetDemo(
	    -name	      => $demo,
	    -text	      => 'Learn how to write a widget demonstration!',
	    -title	      => 'WidgetDemo Demonstration',
	    -iconname	      => 'WidgetDemo',
	    -geometry_manager => 'grid',
	    -font	      => $FONT,
	);

DESCRIPTION

       This constructor builds a standard widget demonstration window, composed of three frames.  The top frame contains descriptive demonstration
       text.  The bottom frame contains the "Dismiss" and "See Code" buttons.  The middle frame is demonstration container, which came be managed
       by either the pack or grid geometry manager.

       The -text attribute is supplied to a Label widget, which is left-adjusted with -wraplength set to 4 inches.  If you require different
       specifications then pass an array to -text; the first element is the text string and the remaining array elements are standard Label widget
       attributes - WidgetDemo will rearrange things as required..

	   -text => ['Hello World!', qw/-wraplength 6i/],

AUTHOR

       Steve Lidie <Stephen.O.Lidie@Lehigh.EDU>

HISTORY

       lusol@Lehigh.EDU, LUCC, 97/02/11 lusol@Lehigh.EDU, LUCC, 97/06/07 Stephen.O.Lidie@Lehigh.EDU, LUCC, 97/06/07
	. Add Delegates() call that obviates the need for Top().  Many thanks to
	  Achim Bohnet for this patch.
	. Fix -title so that it works.

COPYRIGHT

       Copyright (C) 1997 - 1998 Stephen O. Lidie. All rights reserved.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.14.2							    2010-05-29							   WidgetDemo(3pm)