---
name: "Tk::DirSelect"
section: "3pm"
platform: "linux"
package: "libtk-dirselect-perl"
version: "1.12-4"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Tk::DirSelect"
---

# Tk::DirSelect(3pm)

Cross-platform directory selection widget.

## NAME

Tk::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.