home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _051a5a58f6c44e5236d9807a38f9a098 < prev    next >
Encoding:
Text File  |  2000-03-23  |  3.8 KB  |  112 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::LabFrame - labeled frame.</TITLE>
  5. <LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Tk::LabFrame - labeled frame.</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25.     <LI><A HREF="#widgetoptions">WIDGET-OPTIONS</A></LI>
  26.     <LI><A HREF="#example">EXAMPLE</A></LI>
  27.     <LI><A HREF="#bugs">BUGS</A></LI>
  28.     <LI><A HREF="#author">AUTHOR</A></LI>
  29. </UL>
  30. <!-- INDEX END -->
  31.  
  32. <HR>
  33. <P>
  34. <H1><A NAME="name">NAME</A></H1>
  35. <P>Tk::LabFrame - labeled frame.</P>
  36. <P>
  37. <HR>
  38. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  39. <UL>
  40. <LI>Linux</LI>
  41. <LI>Solaris</LI>
  42. <LI>Windows</LI>
  43. </UL>
  44. <HR>
  45. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  46. <P>    <STRONG>use Tk::LabFrame;</STRONG></P>
  47. <P>    <EM>$f</EM> = <EM>$parent</EM>-><STRONG>LabFrame</STRONG>(?<STRONG>-label</STRONG>=><EM>text</EM>,
  48. <STRONG>-labelside</STRONG>=><EM>where</EM>, ...?);</P>
  49. <P>
  50. <HR>
  51. <H1><A NAME="description">DESCRIPTION</A></H1>
  52. <P><STRONG>LabFrame</STRONG> is exactly like <STRONG>Frame</STRONG> and additionaly allows to
  53. add a label to the frame.</P>
  54. <P>
  55. <HR>
  56. <H1><A NAME="widgetoptions">WIDGET-OPTIONS</A></H1>
  57. <P><STRONG>LabFrame</STRONG> supports the same options as the
  58. <A HREF="../../../site/lib/Tk/Frame.html#standard options">Frame</A> widget.</P>
  59. <P>Additional options of <STRONG>LabFrame</STRONG> are:</P>
  60. <DL>
  61. <DT><STRONG><A NAME="item_%2Dlabel_%3D%3E_text"><STRONG>-label</STRONG> => <EM>text</EM></A></STRONG><BR>
  62. <DD>
  63. The text of the label to be placed with the Frame.
  64. <P></P>
  65. <DT><STRONG><A NAME="item_%2Dlabelside_%3D%3E_where"><STRONG>-labelside</STRONG> => <EM>where</EM></A></STRONG><BR>
  66. <DD>
  67. <EM>Where</EM> can be one of <STRONG>left</STRONG>, <STRONG>right</STRONG>, <STRONG>top</STRONG>, <STRONG>bottom</STRONG> or <STRONG>acrosstop</STRONG>.
  68. The first four work as might be expected and place the label to the
  69. left, right, above or below the frame respectively. The <STRONG>acrosstop</STRONG>
  70. creates a grooved frame around the central frame and puts the label
  71. near the northwest corner such that it appears to ``overwrite'' the
  72. groove.
  73. <P></P></DL>
  74. <P>
  75. <HR>
  76. <H1><A NAME="example">EXAMPLE</A></H1>
  77. <P>Run the following test program to see this in action:</P>
  78. <PRE>
  79.     use strict;
  80.     use Tk;
  81.     require Tk::LabFrame;
  82.     require Tk::LabEntry;</PRE>
  83. <PRE>
  84.     my $test = 'Test this';
  85.     my $mw = Tk::MainWindow->new;
  86.     my $f = $mw->LabFrame(-label => "This is a label",
  87.                            -labelside => "acrosstop");
  88.     $f->LabEntry(-label => "Testing", -textvariable => \$test)->pack;
  89.     $f->pack;
  90.     Tk::MainLoop;</PRE>
  91. <P>
  92. <HR>
  93. <H1><A NAME="bugs">BUGS</A></H1>
  94. <P>Perhaps <STRONG>LabFrame</STRONG> should be subsumed within the generic pTk
  95. labeled widget mechanism.</P>
  96. <P>
  97. <HR>
  98. <H1><A NAME="author">AUTHOR</A></H1>
  99. <P><STRONG>Rajappa Iyer</STRONG> <A HREF="mailto:rsi@earthling.net">rsi@earthling.net</A></P>
  100. <P>This code is derived from LabFrame.tcl and LabWidg.tcl in the Tix4.0
  101. distribution by Ioi Lam. The code may be redistributed under the same
  102. terms as Perl.</P>
  103. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  104. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  105. <STRONG><P CLASS=block> Tk::LabFrame - labeled frame.</P></STRONG>
  106. </TD></TR>
  107. </TABLE>
  108.  
  109. </BODY>
  110.  
  111. </HTML>
  112.