view release on metacpan or  search on metacpan

lib/Tk/FileBrowser.pm  view on Meta::CPAN

Tk::FileBrowser - Advanced file system explorer

=cut

use strict;
use warnings;
use Carp;
use vars qw($VERSION);
$VERSION = '0.15';

use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'FileBrowser';

use POSIX qw( strftime );

use Config;
my $mswin = $Config{'osname'} eq 'MSWin32';

use Cwd;
use File::Basename;
use File::Spec;

lib/Tk/FileManager.pm  view on Meta::CPAN

Tk::FileManager - Tk::FileBrowser based filemanager

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = 0.12;

use base qw(Tk::Derived Tk::FileBrowser);
Construct Tk::Widget 'FileManager';

use Config;
my $mswin = $Config{'osname'} eq 'MSWin32';

use File::Basename;
use File::Copy;
require Tk::HList;
require Tk::YADialog;
require Tk::YAMessage;

lib/Tk/FilePicker.pm  view on Meta::CPAN

Tk::FilePicker - Tk::FileBrowser based file dialog

=cut

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = 0.09;

use base qw(Tk::Derived Tk::YADialog);
Construct Tk::Widget 'FilePicker';

require Tk::FileBrowser;
require Tk::YAMessage;

=head1 SYNOPSIS

 require Tk::FilePicker;
 my $p = $window->FilePicker(@options);
 my @files = $p->pick;