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

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.12.1							    2007-05-05							     WidgetDemo(3)