Tk::FBox − a file dialog
use Tk::FBox;
$file = $mw−>FBox(...)−>Show;
"Tk::FBox"
is the dialog implementation behind the
"getOpenFile", "getSaveFile", and
"chooseDirectory" method calls in the Unix/X11
world. As such, it supports all options for these methods
and additionally:
−sortcmd => sub { $_[0] cmp $_[1] }
Specified a callback for changing the sorting of the icons in the "IconList" widget. By default, perl’s "cmp" operator will be used.
From the source code:
# Using
−sortcmd is really strange :−(
# $top−>getOpenFile(−sortcmd => sub {
package Tk::FBox; uc $b cmp uc $a});
# or, un−perlish, but useable (now activated in code):
# $top−>getOpenFile(−sortcmd => sub { uc
$_[1] cmp uc $_[0]});
This is an experimental option!
−type => $type
Type should be "open" for choosing existing files to open (default), "save" for choosing existing or non-existing files to save, or "dir" for choosing directories.
−filter => $glob
A file glob to restrict displayed files. This is only active if no −filetypes are defined.
−force => $bool
If true, then there will be no dialog if a file already exists.
The original tkfbox.tcl from Tcl/Tk is:
Copyright (c) 1994−1996 Sun Microsystems, Inc.
See the file "license.terms" for information on usage and redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
Translated to Perl/Tk by Slaven Rezic <[email protected]>.
Tk::getOpenFile, Tk::IconList.