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