view release on metacpan or  search on metacpan

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

package Tk::FileBrowser;

=head1 NAME

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;
use File::Spec::Link;
use Tie::Watch;
use Tk;
require Tk::ListBrowser;
use Tk::FileBrowser::Item;
require Tk::Photo;
require Tk::PNG;
require Tk::LabFrame;
require Tk::ListEntry;
require Tk::YADialog;
require Tk::Balloon;

my $iconfolder = Tk::findINC('Tk/FileBrowser/Icons');

my %timedata = (
	Accessed => 'atime',
	Created => 'ctime',
	Modified => 'mtime',
);

=head1 SYNOPSIS

 require Tk::FileBrowser;
 my $b = $window->FileBrowser(@options)->pack;
 $b->load($folder);

=head1 DESCRIPTION

A multicolumn file browser widget. Columns are configurable, sortable
and resizable.

if you left-click the header bar, you will get a popup menu to configure
case dependant sort, directories first and show hidden.

if you left-click the tree widget, you will get a popup menu to open the
current selected entry.

=head1 CONFIG VARIABLES

=over 4

=item Switch: B<-casedependantsort>

Default value 0;

If you change the value you have to call B<refresh> to see your changes.

=item Switch: B<-columns>

Specify a list of column names to display. Only available at create