home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _4299f602430e384ed577589412b6d4a0 < prev    next >
Text File  |  2000-03-23  |  11KB  |  245 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::Adjuster - Allow size of packed widgets to be adjusted by user</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::Adjuster - Allow size of packed widgets to be adjusted by user</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="#widgetspecific options">WIDGET-SPECIFIC OPTIONS</A></LI>
  25.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  26.     <LI><A HREF="#widget methods">WIDGET METHODS</A></LI>
  27.     <LI><A HREF="#examples">EXAMPLES</A></LI>
  28.     <LI><A HREF="#bugs">BUGS</A></LI>
  29. </UL>
  30. <!-- INDEX END -->
  31.  
  32. <HR>
  33. <P>
  34. <H1><A NAME="name">NAME</A></H1>
  35. <P>Tk::Adjuster - Allow size of packed widgets to be adjusted by user</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>use Tk::Adjuster;</P>
  47. <P><EM>$adjuster</EM> = <EM>$widget</EM>-><STRONG>Adjuster</STRONG><EM>(?options?)</EM>;</P>
  48. <P>
  49. <HR>
  50. <H1><A NAME="widgetspecific options">WIDGET-SPECIFIC OPTIONS</A></H1>
  51. <DL>
  52. <DT><STRONG><A NAME="item_Name%3A_restore">Name: <STRONG>restore</STRONG></A></STRONG><BR>
  53. <DD>
  54. <DT><STRONG><A NAME="item_Class%3A_Restore">Class: <STRONG>Restore</STRONG></A></STRONG><BR>
  55. <DD>
  56. <DT><STRONG><A NAME="item_Switch%3A_%2Drestore">Switch: <STRONG>-restore</STRONG></A></STRONG><BR>
  57. <DD>
  58. Specifies a boolean value that determines whether the Adjuster
  59. should forcibly attempt to make room
  60. for itself (by reducing the size of its managed widget) when it is
  61. unmapped (for example, due to a size change in a top level window).
  62. The default value is 1.
  63. <P></P>
  64. <DT><STRONG><A NAME="item_Name%3A_side">Name: <STRONG>side</STRONG></A></STRONG><BR>
  65. <DD>
  66. <DT><STRONG><A NAME="item_Class%3A_Side">Class: <STRONG>Side</STRONG></A></STRONG><BR>
  67. <DD>
  68. <DT><STRONG><A NAME="item_Switch%3A_%2Dside">Switch: <STRONG>-side</STRONG></A></STRONG><BR>
  69. <DD>
  70. Specifies the side on which the managed widget lies relative to the
  71. Adjuster. In conjunction with the pack geometry manager, this relates to
  72. the side of the master against which the managed widget and the Adjuster
  73. are packed.
  74. Must be <STRONG>left</STRONG>, <STRONG>right</STRONG>, <STRONG>top</STRONG>, or <STRONG>bottom</STRONG>. Defaults to <STRONG>top</STRONG>.
  75. <P></P>
  76. <DT><STRONG><A NAME="item_Name%3A_widget">Name: <STRONG>widget</STRONG></A></STRONG><BR>
  77. <DD>
  78. <DT><STRONG><A NAME="item_Class%3A_Widget">Class: <STRONG>Widget</STRONG></A></STRONG><BR>
  79. <DD>
  80. <DT><STRONG><A NAME="item_Switch%3A_%2Dwidget">Switch: <STRONG>-widget</STRONG></A></STRONG><BR>
  81. <DD>
  82. Specifies the widget which is to be managed by the Adjuster.
  83. <P></P></DL>
  84. <P>
  85. <HR>
  86. <H1><A NAME="description">DESCRIPTION</A></H1>
  87. <P><STRONG>Tk::Adjuster</STRONG> is a Frame containing a ``line'' and a ``blob''.</P>
  88. <P>Dragging with Mouse Button-1 results in a line being dragged
  89. to indicate new size. Releasing Button-1 submits GeometryRequests
  90. on behalf of the managed widget which will cause the packer to change the
  91. widget's size.</P>
  92. <P>If Drag is done with Shift button down, then GeometryRequests are made
  93. in ``real time'' so that text-flow effects can be seen, but as a lot more
  94. work is done behaviour may be sluggish.</P>
  95. <P>If widget is packed with -side => left or -side => right then width is
  96. adjusted. If packed -side => top or -side => bottom then height is adjusted.</P>
  97. <P><STRONG>packPropagate</STRONG> is turned off for the master window to prevent adjustment
  98. changing overall window size. Similarly <STRONG>packPropagate</STRONG> is turned off
  99. for the managed widget if it has things packed inside it. This is so that
  100. the GeometryRequests made by <STRONG>Tk::Adjuster</STRONG> are not overridden by pack.</P>
  101. <P>In addition, the managed widget is made non-expandable
  102. to prevent the geometry manager reallocating freed space in the master
  103. back to the managed widget.
  104. Note however that expansion is turned off only after the Adjuster is mapped,
  105. which allows the managed widget to expand naturally on window creation.</P>
  106. <P>The Tk::Widget method, <STRONG>packAdjust</STRONG>, calls pack on the widget, then
  107. creates an instance of <STRONG>Tk::Adjuster</STRONG>,
  108. and packs that ``after'' the widget. Its use has two disadvantages however: the
  109. Adjuster widget is not made available to the caller, and 
  110. options cannot be set on the Adjuster. For these reasons, the Tk::Adjuster
  111. method, <STRONG>packAfter</STRONG> is preferred, but <STRONG>packAdjust</STRONG> is retained
  112. for backwards compatibility.</P>
  113. <P>
  114. <HR>
  115. <H1><A NAME="widget methods">WIDGET METHODS</A></H1>
  116. <DL>
  117. <DT><STRONG><A NAME="item_packAfter"><EM>$adjuster</EM>-><STRONG>packAfter</STRONG>(<EM>managed_widget, ?pack_options?</EM>)</A></STRONG><BR>
  118. <DD>
  119. This command configures the Adjuster's <STRONG>-widget</STRONG> and <STRONG>-side</STRONG> options
  120. respectively to <EM>managed_widget</EM> and the <STRONG>-side</STRONG> value specified in
  121. <EM>pack_options</EM> (<STRONG>top</STRONG> if not specified). It then packs the Adjuster
  122. after <EM>managed_widget</EM>, with <STRONG>-fill</STRONG> set to <STRONG>x</STRONG> or <STRONG>y</STRONG> as appropriate.
  123. <P></P>
  124. <DT><STRONG><A NAME="item_packForget"><EM>$adjuster</EM>-><STRONG>packForget</STRONG><EM>?(boolean)?</EM></A></STRONG><BR>
  125. <DD>
  126. This command calls <STRONG>Tk::Widget::packForget</STRONG> on the Adjuster.
  127. If a parameter is provided and it has a true boolean value, then
  128. <STRONG>packForget</STRONG> is also called on the managed widget.
  129. <P></P>
  130. <DT><STRONG><A NAME="item_slave"><EM>$adjuster</EM>-><STRONG>slave</STRONG></A></STRONG><BR>
  131. <DD>
  132. This command returns the value <EM>$adjuster</EM>-><EM>cget('-widget')</EM>, ie. the
  133. reference to the managed widget.
  134. <P></P></DL>
  135. <P>
  136. <HR>
  137. <H1><A NAME="examples">EXAMPLES</A></H1>
  138. <P><STRONG>Using an Adjuster to separate two widgets, whereby the left widget
  139. is managed, and right widget expands to fill space on a window resize</STRONG></P>
  140. <P>a) Using packAfter (preferred interface)</P>
  141. <PRE>
  142.   use Tk;
  143.   use Tk::Adjuster;</PRE>
  144. <PRE>
  145.   my $f = MainWindow->new;
  146.   my $lst1 = $f->Listbox();
  147.   my $adj1 = $f->Adjuster();
  148.   my $lst2 = $f->Listbox();</PRE>
  149. <PRE>
  150.   my $side = 'left';
  151.   $lst1->pack(-side => $side, -fill => 'both', -expand => 1);
  152.   $adj1->packAfter($lst1, -side => $side);
  153.   $lst2->pack(-side => $side, -fill => 'both', -expand => 1);
  154.   MainLoop;</PRE>
  155. <P>b) Using packAdjust</P>
  156. <PRE>
  157.   use Tk;
  158.   use Tk::Adjuster;</PRE>
  159. <PRE>
  160.   my $f = MainWindow->new;
  161.   my $lst1 = $f->Listbox();
  162.   my $lst2 = $f->Listbox();</PRE>
  163. <PRE>
  164.   my $side = 'left';
  165.   $lst1->packAdjust(-side => $side, -fill => 'both');
  166.   $lst2->pack      (-side => $side, -fill => 'both', -expand => 1);
  167.   MainLoop;</PRE>
  168. <P>c) Using the standard Tk::Widget::pack</P>
  169. <PRE>
  170.   use Tk;
  171.   use Tk::Adjuster;</PRE>
  172. <PRE>
  173.   my $f = MainWindow->new;
  174.   my $side = 'left';
  175.   my $lst1 = $f->Listbox();
  176.   my $adj  = $f->Adjuster(-widget => $lst1, -side => $side);
  177.   my $lst2 = $f->Listbox();</PRE>
  178. <PRE>
  179.   $lst1->pack(-side => $side, -fill => 'both', -expand => 1);
  180.   $adj->pack (-side => $side, -fill => 'y');
  181.   $lst2->pack(-side => $side, -fill => 'both', -expand => 1);</PRE>
  182. <PRE>
  183.   MainLoop;</PRE>
  184. <P>Changing the above examples so that $side has the value 'right' means the
  185. left widget expands to fill space on a window resize.</P>
  186. <P>Changing the above examples so that $side has the value 'top'
  187. produces a testcase with a horizontal Adjuster.
  188. Here the bottom widget expands to fill space on a window resize.
  189. Packing to the 'bottom' makes the top widget expand to fill space on window
  190. resize.</P>
  191. <P><STRONG>Using -restore => 0 for multiple columns</STRONG></P>
  192. <P>In the case of multiple columns (or rows) the ``restore'' functionality of the
  193. Adjuster can be inconvenient. When the user adjusts the width of one column
  194. and thereby pushes the Adjuster of another column off the window, this
  195. adjuster tries to restore itself by reducing the size of its managed widget.
  196. This has the effect that column widths shrink; and the original size
  197. is not restored when
  198. the user reverses the originating change. The <STRONG>-restore</STRONG> option can be
  199. used to turn off this functionality. (It makes some sense, however, to
  200. leave <STRONG>-restore</STRONG>
  201. turned on for the first-packed Adjuster, so that at least one Adjuster
  202. always remains visible.)</P>
  203. <PRE>
  204.   use Tk;
  205.   use Tk::Adjuster;
  206.   my $f = MainWindow->new;
  207.   my $lst1 = $f->Listbox();
  208.   my $adj1 = $f->Adjuster();
  209.   my $lst2 = $f->Listbox();
  210.   my $adj2 = $f->Adjuster(-restore => 0);
  211.   my $lst3 = $f->Listbox();</PRE>
  212. <PRE>
  213.   my $side = 'left';
  214.   $lst1->pack(-side => $side, -fill => 'both', -expand => 1);
  215.   $adj1->packAfter($lst1, -side => $side);
  216.   $lst2->pack(-side => $side, -fill => 'both', -expand => 1);
  217.   $adj2->packAfter($lst2, -side => $side);
  218.   $lst3->pack(-side => $side, -fill => 'both', -expand => 1);</PRE>
  219. <PRE>
  220.   MainLoop;</PRE>
  221. <P>
  222. <HR>
  223. <H1><A NAME="bugs">BUGS</A></H1>
  224. <P>It is currently not possible to configure the appearance of the Adjuster.
  225. It would be nice to be able to set the width and relief of the Adjuster ``line''
  226. and the presence/absence of the ``blob'' on the Adjuster.</P>
  227. <P>Tk::Adjuster works theoretically with the grid geometry manager but there
  228. are currently some problems which seem to be due to bugs in grid:</P>
  229. <PRE>
  230.   a) There's never an Unmap event for the adjuster, so the "restore"
  231.      functionality has no effect.
  232.   b) After adjusting, widgets protrude into the border of the master.
  233.   c) grid('Propagate', 0) on MainWindow has no effect - window shrinks/grows
  234.      when widgets are adjusted.
  235.   d) Widgets shuffle to correct position on startup</PRE>
  236. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  237. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  238. <STRONG><P CLASS=block> Tk::Adjuster - Allow size of packed widgets to be adjusted by user</P></STRONG>
  239. </TD></TR>
  240. </TABLE>
  241.  
  242. </BODY>
  243.  
  244. </HTML>
  245.