NAME

WidgetDemo() - create a standard widget demonstration window.

SYNOPSIS



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

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/],

METHODS


$demo_widget->Top;

Returns the frame container reference for the demonstration. Treat this as the top of your window hierarchy, a "main window".

AUTHOR

Stephen O. Lidie <lusol@Lehigh.EDU>

HISTORY

lusol@Lehigh.EDU, LUCC, 97/02/11 lusol@Lehigh.EDU, LUCC, 97/06/07

COPYRIGHT

Copyright (C) 1997 - 1997 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.