Tk::DirSelect(3) User Contributed Perl Documentation Tk::DirSelect(3)NAMETk::DirSelect - Cross-platform directory selection widget.
SYNOPSIS
use Tk::DirSelect;
my $ds = $mw->DirSelect();
my $dir = $ds->Show();
DESCRIPTION
This module provides a cross-platform directory selection widget. For
systems running Microsoft Windows, this includes selection of local and
mapped network drives. A context menu (right-click or <Button3>) allows
the creation, renaming, and deletion of directories while browsing.
Note: Perl/Tk 804 added the "chooseDirectory" method which uses native
system dialogs where available. (i.e. Windows) If you want a native
feel for your program, you probably want to use that method instead --
possibly using this module as a fallback for systems with older
versions of Tk installed.
METHODS
"DirSelect([-title => 'title'], [options])"
Constructs a new DirSelect widget as a child of the invoking object
(usually a MainWindow).
The title for the widget can be set by specifying "-title => 'Title'".
Any other options provided will be passed through to the DirTree widget
that displays directories, so be sure they're appropriate (e.g.
"-width")
"Show([directory], [options])"
Displays the DirSelect widget and returns the user selected directory
or "undef" if the operation is canceled.
All arguments are optional. The first argument (if defined) is the
initial directory to display. The default is to display the current
working directory. Any additional options are passed through to the
Popup() method. This means that you can do something like
$ds->Show(undef, -popover => $mw);
to center the dialog over your application.
DEPENDENCIES
· Perl 5.004
· Tk 800
· Win32API::File (under Microsoft Windows only)
LICENSE AND COPYRIGHT
Copyright 2000-2001 Kristi Thompson <kristi@kristi.ca> Copyright
2002-2005,2010 Michael Carman <mjcarman@cpan.org>
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
perl v5.14.1 2010-02-18 Tk::DirSelect(3)