WidgetDemo()
- create a standard widget demonstration window.
use Tk::WidgetDemo;
my $demo_widget = $MW->WidgetDemo(
-name => $demo,
-text => 'Learn how to write a widget demonstration!',
-geometry_manager => 'grid',
-font => $FONT,
);
$TOP = $demo_widget->top; # get grid master
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.
Returns the frame container reference for the demonstration. Treat this as
the top of your window hierarchy, a ``main window''.
Stephen O. Lidie
lusol@Lehigh.EDU, LUCC, 97/02/11
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.
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>