Tk::WidgetDemo.3pm

Langue: en

Autres versions - même langue

Version: 2004-02-28 (openSuse - 09/10/07)

Section: 3 (Bibliothèques de fonctions)

Sommaire

NAME

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 (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.