home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 May
/
Chip_2000-05_cd1.bin
/
zkuste
/
Perl
/
ActivePerl-5.6.0.613.msi
/
䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥
/
_a45298a0e82004a5bc4ce7b652a29480
< prev
next >
Wrap
Text File
|
2000-03-23
|
3KB
|
98 lines
<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>