WidgetDemo(3pm) User Contributed Perl Documentation WidgetDemo(3pm)
NAME
Tk::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.40.1 2025-04-13 WidgetDemo(3pm)
Generated by dwww version 1.16 on Sat Oct 3 07:35:43 CEST 2026.