home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _e4ef8a6b8f7ba44f32eb76206c702644 < prev    next >
Encoding:
Text File  |  2000-03-23  |  6.7 KB  |  172 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Tk::FileSelect - a widget for choosing files</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::FileSelect - a widget for choosing files</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="#authors">AUTHORS</A></LI>
  26.     <LI><A HREF="#history">HISTORY</A></LI>
  27.     <UL>
  28.  
  29.         <LI><A HREF="#950621  the following changes were made:">950621 - The following changes were made:</A></LI>
  30.         <LI><A HREF="#95/10/17, sol, lucc. lusol@lehigh.edu">95/10/17, SOL, LUCC.  <A HREF="mailto:lusol@Lehigh.EDU">lusol@Lehigh.EDU</A></A></LI>
  31.         <LI><A HREF="#961008  derf@ti.com :">961008 - <A HREF="mailto:derf@ti.com">derf@ti.com</A> :</A></LI>
  32.     </UL>
  33.  
  34. </UL>
  35. <!-- INDEX END -->
  36.  
  37. <HR>
  38. <P>
  39. <H1><A NAME="name">NAME</A></H1>
  40. <P>Tk::FileSelect - a widget for choosing files</P>
  41. <P>
  42. <HR>
  43. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  44. <UL>
  45. <LI>Linux</LI>
  46. <LI>Solaris</LI>
  47. <LI>Windows</LI>
  48. </UL>
  49. <HR>
  50. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  51. <PRE>
  52.  use Tk::FileSelect;</PRE>
  53. <PRE>
  54.  $FSref = $top->FileSelect(-directory => $start_dir);
  55.                $top            - a window reference, e.g. MainWindow->new
  56.                $start_dir      - the starting point for the FileSelect
  57.  $file = $FSref->Show;
  58.                Executes the fileselector until either a filename is
  59.                accepted or the user hits Cancel. Returns the filename
  60.                or the empty string, respectively, and unmaps the
  61.                FileSelect.
  62.  $FSref->configure(option => value[, ...])
  63.                Please see the Populate subroutine as the configuration
  64.                list changes rapidly.</PRE>
  65. <P>
  66. <HR>
  67. <H1><A NAME="description">DESCRIPTION</A></H1>
  68. <P>This Module pops up a Fileselector box, with a directory entry on
  69. top, a list of directories in the current directory, a list of
  70. files in the current directory, an entry for entering/modifying a
  71. file name, an accept button and a cancel button.</P>
  72. <P>You can enter a starting directory in the directory entry. After
  73. hitting Return, the listboxes get updated. Double clicking on any
  74. directory shows you the respective contents. Single clicking on a
  75. file brings it into the file entry for further consideration,
  76. double clocking on a file pops down the file selector and calls
  77. the optional command with the complete path for the selected file.
  78. Hitting return in the file selector box or pressing the accept
  79. button will also work. *NOTE* the file selector box will only then
  80. get destroyed if the file name is not zero length. If you want
  81. yourself take care of it, change the if(length(.. in sub
  82. accept_file.</P>
  83. <P>
  84. <HR>
  85. <H1><A NAME="authors">AUTHORS</A></H1>
  86. <P>Based on original FileSelect by
  87. Klaus Lichtenwalder, <A HREF="mailto:Lichtenwalder@ACM.org,">Lichtenwalder@ACM.org,</A> Datapat GmbH, Munich,
  88. April 22, 1995 adapted by
  89. Frederick L. Wagner, <A HREF="mailto:derf@ti.com,">derf@ti.com,</A> Texas Instruments Incorporated, Dallas,
  90. 21Jun95</P>
  91. <P>
  92. <HR>
  93. <H1><A NAME="history">HISTORY</A></H1>
  94. <P>
  95. <H2><A NAME="950621  the following changes were made:">950621 -- The following changes were made:</A></H2>
  96. <UL>
  97. <LI>
  98. Rewrote Tk stuff to take advantage of new Compound widget module, so
  99. FileSelect is now composed of 2 LabEntry and 2 ScrlListbox2
  100. subwidgets.
  101. <P></P>
  102. <LI>
  103. Moved entry labels (from to the left of) to above the entry fields.
  104. <P></P>
  105. <LI>
  106. Caller is now able to control these aspects of widget, in both
  107. FileSelect (new) and configure :
  108. <P>(Please see subroutine Populate for details, as these options
  109. change rapidly!)</P>
  110. <P></P>
  111. <LI>
  112. I changed from Double-Button-1 to Button-1 in the Files listbox,
  113. to work with multiple mode in addition to browse mode.  I also
  114. made some name changes (LastPath --> saved_path, ...).
  115. <P></P>
  116. <LI>
  117. The show method is not yet updated.
  118. <P></P>
  119. <LI>
  120. The topLevel stuff is not done yet.  I took it out while I toy with
  121. the idea of FileSelect as a subwidget.  Then the 'normal' topLevel
  122. thing with Buttons along the bottom could be build on top of it.
  123. <P></P>
  124. <LI>
  125. By request of Henry Katz <<A HREF="mailto:katz@fs09.webo.dg.com">katz@fs09.webo.dg.com</A>>, I added the functionality
  126. of using the Directory entry as a filter. So, if you want to only see the
  127. *.c files, you add a .c (the *'s already there :) and hit return.
  128. <P></P></UL>
  129. <P>
  130. <H2><A NAME="95/10/17, sol, lucc. lusol@lehigh.edu">95/10/17, SOL, LUCC.  <A HREF="mailto:lusol@Lehigh.EDU">lusol@Lehigh.EDU</A></A></H2>
  131. <UL>
  132. <LI>
  133. <PRE>
  134.  Allow either file or directory names to be accepted.</PRE>
  135. <LI>
  136. Require double click to move into a new directory rather than a single
  137. click.  This allows a single click to select a directory name so it can
  138. be accepted.
  139. <P></P>
  140. <LI>
  141. Add -verify list option so that standard Perl file test operators (like
  142. -d and -x) can be specified for further name validation.  The default
  143. value is the special value '!-d' (not a directory), so any name can be
  144. selected as long as it's not a directory - after all, this IS FileSelect!
  145. <P>For example:</P>
  146. <PRE>
  147.     $fs->configure(-verify => ['-d', [\&verify_code, $P1, $P2, ... $Pn]]);</PRE>
  148. <P>ensures that the selected name is a directory.  Further, if an element of
  149. the list is an array reference, the first element is a code reference to a
  150. subroutine and the remaining optional elements are it's parameters.  The
  151. subroutine is called like this:</P>
  152. <PRE>
  153.     &verify_code($cd, $leaf, $P1, $P2, ... $Pn);</PRE>
  154. <P>where $cd is the current directory, $leaf is a directory or file name, and
  155. $P1 .. $Pn are your optional parameters.  The subroutine should return TRUE
  156. if success or FALSE if failure.</P>
  157. <P></P></UL>
  158. <P>
  159. <H2><A NAME="961008  derf@ti.com :">961008 -- <A HREF="mailto:derf@ti.com">derf@ti.com</A> :</A></H2>
  160. <P>By request of Jim Stern <<A HREF="mailto:js@world.northgrum.com">js@world.northgrum.com</A>> and Brad Vance
  161. <<A HREF="mailto:bvance@ti.com">bvance@ti.com</A>>, I updated the Accept and Show functions to support
  162. selection of multiple files.  I also corrected a typo in the -verify code.</P>
  163. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  164. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  165. <STRONG><P CLASS=block> Tk::FileSelect - a widget for choosing files</P></STRONG>
  166. </TD></TR>
  167. </TABLE>
  168.  
  169. </BODY>
  170.  
  171. </HTML>
  172.