NAME

 SelFile - a widget for choosing a file to read or write

SYNOPSIS

 require 5.001;
 use Tk;
 use SelFile;

 $mw = MainWindow->new;  # For example.

 $start_dir = ".";
 $sfw = $mw->SelFile(
                     -directory => $start_dir,
                     -width     =>  30,
                     -height    =>  20,
                     -filelistlabel  => 'Files',
                     -filter         => '*',
                     -filelabel      => 'File',
                     -dirlistlabel   => 'Directories',
                     -dirlabel       => 'Filter',
                     );

 A call with fewer (or no options) such as shown below
 will result in the default values shown above.
 $sfw = $mw->SelFile;

 In a callback bound to an event the user can invoke the widget
 to request a file selection with the following line.
 ($opcode, $filename) = $sfw->show;

 $opcode will have the value 'READ', 'WRITE' or 'CANCEL'.
 $filename will be a file pathname, or in the case of CANCEL
 it will be a single space character.

DESCRIPTION

   This Module pops up a Fileselector box, with a directory entry
   with filter on top, a list of directories in the current directory,
   a list of files in the current directory, an entry for entering
   or modifying a file name, a read button, a write button, and a
   cancel button.

   If your system administrator does not have time to install
   this package, you could put it into a directory such as
   $HOME/Myperl (with the name SelFile.pm) and at the top of
   any Perl script have the following

 BEGIN {
    @INC = ("$ENV{'HOME'}/Myperl", @INC);
 }

AUTHORS

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, 21Jun95 further adapted by Alan Louis Scheinine, scheinin@crs4.it, Centro di Ricerca, Sviluppo e Studi Superiori in Sardegna (CRS4) Cagliari, 14 November 1995

HISTORY