Copyright (C) 2000-2012 |
Manpages WIDGETDEMOSection: User Contributed Perl Documentation (1)Updated: 2000-04-18 Index Return to Main Contents NAMEWidgetDemo() - create a standard widget demonstration window.SYNOPSISuse 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, ); DESCRIPTIONThis 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/], AUTHORSteve Lidie <Stephen.O.Lidie@Lehigh.EDU>HISTORYlusol@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. COPYRIGHTCopyright (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.
IndexThis document was created by man2html, using the manual pages. Time: 04:18:17 GMT, April 26, 2024 |