.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH FILESELECT 1 "2000-12-30" "perl v5.8.0" "User Contributed Perl Documentation"
Tk::FileSelect \- a widget for choosing files
\& $FSref = $top->FileSelect(-directory => $start_dir);
\& $top - a window reference, e.g. MainWindow->new
\& $start_dir - the starting point for the FileSelect
\& Executes the fileselector until either a filename is
\& accepted or the user hits Cancel. Returns the filename
\& or the empty string, respectively, and unmaps the
\& $FSref->configure(option => value[, ...])
\& Please see the Populate subroutine as the configuration
This Module pops up a Fileselector box, with a directory entry on
top, a list of directories in the current directory, a list of
files in the current directory, an entry for entering/modifying a
file name, an accept button and a cancel button.
You can enter a starting directory in the directory entry. After
hitting Return, the listboxes get updated. Double clicking on any
directory shows you the respective contents. Single clicking on a
file brings it into the file entry for further consideration,
double clocking on a file pops down the file selector and calls
the optional command with the complete path for the selected file.
Hitting return in the file selector box or pressing the accept
button will also work. *NOTE* the file selector box will only then
get destroyed if the file name is not zero length. If you want
yourself take care of it, change the if(length(.. in sub
Based on original FileSelect by
Klaus Lichtenwalder, Lichtenwalder@ACM.org, Datapat GmbH, Munich,
April 22, 1995 adapted by
Frederick L. Wagner, derf@ti.com, Texas Instruments Incorporated, Dallas,
.Sh "950621 \*(-- The following changes were made:"
.IX Subsection "950621 The following changes were made:"
Rewrote Tk stuff to take advantage of new Compound widget module, so
FileSelect is now composed of 2 LabEntry and 2 ScrlListbox2
Moved entry labels (from to the left of) to above the entry fields.
Caller is now able to control these aspects of widget, in both
FileSelect (new) and configure :
(Please see subroutine Populate for details, as these options
I changed from Double\-Button\-1 to Button\-1 in the Files listbox,
to work with multiple mode in addition to browse mode. I also
made some name changes (LastPath \-\-> saved_path, ...).
The show method is not yet updated.
The topLevel stuff is not done yet. I took it out while I toy with
the idea of FileSelect as a subwidget. Then the 'normal' topLevel
thing with Buttons along the bottom could be build on top of it.
By request of Henry Katz <katz@fs09.webo.dg.com>, I added the functionality
of using the Directory entry as a filter. So, if you want to only see the
*.c files, you add a .c (the *'s already there :) and hit return.
.Sh "95/10/17, \s-1SOL\s0, \s-1LUCC\s0. lusol@Lehigh.EDU"
.IX Subsection "95/10/17, SOL, LUCC. lusol@Lehigh.EDU"
\& Allow either file or directory names to be accepted.
Require double click to move into a new directory rather than a single
click. This allows a single click to select a directory name so it can
Add \-verify list option so that standard Perl file test operators (like
\&\-d and \-x) can be specified for further name validation. The default
value is the special value '!\-d' (not a directory), so any name can be
selected as long as it's not a directory \- after all, this \s-1IS\s0 FileSelect!
\& $fs->configure(-verify => ['-d', [\e&verify_code, $P1, $P2, ... $Pn]]);
ensures that the selected name is a directory. Further, if an element of
the list is an array reference, the first element is a code reference to a
subroutine and the remaining optional elements are it's parameters. The
subroutine is called like this:
\& &verify_code($cd, $leaf, $P1, $P2, ... $Pn);
where \f(CW$cd\fR is the current directory, \f(CW$leaf\fR is a directory or file name, and
\&\f(CW$P1\fR .. \f(CW$Pn\fR are your optional parameters. The subroutine should return \s-1TRUE\s0
if success or \s-1FALSE\s0 if failure.
.Sh "961008 \*(-- derf@ti.com :"
.IX Subsection "961008 derf@ti.com :"
By request of Jim Stern <js@world.northgrum.com> and Brad Vance
<bvance@ti.com>, I updated the Accept and Show functions to support
selection of multiple files. I also corrected a typo in the \-verify code.
projects / OpenSPARC-T2-DV / blob