home *** CD-ROM | disk | FTP | other *** search
-
- <HTML>
- <HEAD>
- <TITLE>WidgetDemo - create a standard widget demonstration window.</TITLE>
- <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
- <LINK REV="made" HREF="mailto:">
- </HEAD>
-
- <BODY>
- <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
- <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
- <STRONG><P CLASS=block> WidgetDemo - create a standard widget demonstration window.</P></STRONG>
- </TD></TR>
- </TABLE>
-
- <A NAME="__index__"></A>
- <!-- INDEX BEGIN -->
-
- <UL>
-
- <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
-
- <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
- <LI><A HREF="#description">DESCRIPTION</A></LI>
- <LI><A HREF="#author">AUTHOR</A></LI>
- <LI><A HREF="#history">HISTORY</A></LI>
- <LI><A HREF="#copyright">COPYRIGHT</A></LI>
- </UL>
- <!-- INDEX END -->
-
- <HR>
- <P>
- <H1><A NAME="name">NAME</A></H1>
- <P><CODE>WidgetDemo()</CODE> - create a standard widget demonstration window.</P>
- <P>
- <HR>
- <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
- <UL>
- <LI>Linux</LI>
- <LI>Solaris</LI>
- <LI>Windows</LI>
- </UL>
- <HR>
- <H1><A NAME="synopsis">SYNOPSIS</A></H1>
- <PRE>
- 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,
- );</PRE>
- <P>
- <HR>
- <H1><A NAME="description">DESCRIPTION</A></H1>
- <P>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.</P>
- <P>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..</P>
- <PRE>
- -text => ['Hello World!', qw/-wraplength 6i/],</PRE>
- <P>
- <HR>
- <H1><A NAME="author">AUTHOR</A></H1>
- <P>Steve Lidie <<A HREF="mailto:Stephen.O.Lidie@Lehigh.EDU">Stephen.O.Lidie@Lehigh.EDU</A>></P>
- <P>
- <HR>
- <H1><A NAME="history">HISTORY</A></H1>
- <P><A HREF="mailto:lusol@Lehigh.EDU,">lusol@Lehigh.EDU,</A> LUCC, 97/02/11
- <A HREF="mailto:lusol@Lehigh.EDU,">lusol@Lehigh.EDU,</A> LUCC, 97/06/07
- <A HREF="mailto:Stephen.O.Lidie@Lehigh.EDU,">Stephen.O.Lidie@Lehigh.EDU,</A> LUCC, 97/06/07
- . Add <CODE>Delegates()</CODE> call that obviates the need for Top(). Many thanks to
- Achim Bohnet for this patch.
- . Fix -title so that it works.</P>
- <P>
- <HR>
- <H1><A NAME="copyright">COPYRIGHT</A></H1>
- <P>Copyright (C) 1997 - 1998 Stephen O. Lidie. All rights reserved.</P>
- <P>This program is free software; you can redistribute it and/or modify it under
- the same terms as Perl itself.</P>
- <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
- <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
- <STRONG><P CLASS=block> WidgetDemo - create a standard widget demonstration window.</P></STRONG>
- </TD></TR>
- </TABLE>
-
- </BODY>
-
- </HTML>
-