Tk::demos::widget_lib::WidgetDemo(3pm)

WidgetDemo() - create a standard widget demo 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.
$demo_widget->top; Returns the frame container reference for the demonstration. Stephen O. Lidie <[email protected]> [email protected], LUCC, 97/01/01 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.