Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | |
2 | =head1 NAME | |
3 | ||
4 | WidgetDemo() - create a standard widget demonstration window. | |
5 | ||
6 | =for pm demos/demos/widget_lib/WidgetDemo.pm | |
7 | ||
8 | =for category Implementation | |
9 | ||
10 | =head1 SYNOPSIS | |
11 | ||
12 | use WidgetDemo; | |
13 | my $TOP = $MW->WidgetDemo( | |
14 | -name => $demo, | |
15 | -text => 'Learn how to write a widget demonstration!', | |
16 | -title => 'WidgetDemo Demonstration', | |
17 | -iconname => 'WidgetDemo', | |
18 | -geometry_manager => 'grid', | |
19 | -font => $FONT, | |
20 | ); | |
21 | ||
22 | =head1 DESCRIPTION | |
23 | ||
24 | This constructor builds a standard widget demonstration window, composed of | |
25 | three frames. The top frame contains descriptive demonstration text. The | |
26 | bottom frame contains the "Dismiss" and "See Code" buttons. The middle frame | |
27 | is demonstration container, which came be managed by either the pack or grid | |
28 | geometry manager. | |
29 | ||
30 | The -text attribute is supplied to a Label widget, which is left-adjusted | |
31 | with -wraplength set to 4 inches. If you require different specifications | |
32 | then pass an array to -text; the first element is the text string and | |
33 | the remaining array elements are standard Label widget attributes - WidgetDemo | |
34 | will rearrange things as required.. | |
35 | ||
36 | -text => ['Hello World!', qw/-wraplength 6i/], | |
37 | ||
38 | =head1 AUTHOR | |
39 | ||
40 | Steve Lidie <Stephen.O.Lidie@Lehigh.EDU> | |
41 | ||
42 | =head1 HISTORY | |
43 | ||
44 | lusol@Lehigh.EDU, LUCC, 97/02/11 | |
45 | lusol@Lehigh.EDU, LUCC, 97/06/07 | |
46 | Stephen.O.Lidie@Lehigh.EDU, LUCC, 97/06/07 | |
47 | . Add Delegates() call that obviates the need for Top(). Many thanks to | |
48 | Achim Bohnet for this patch. | |
49 | . Fix -title so that it works. | |
50 | ||
51 | =head1 COPYRIGHT | |
52 | ||
53 | Copyright (C) 1997 - 1998 Stephen O. Lidie. All rights reserved. | |
54 | ||
55 | This program is free software; you can redistribute it and/or modify it under | |
56 | the same terms as Perl itself. | |
57 | ||
58 | =cut | |
59 |