view release on metacpan or  search on metacpan

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

package Tk::FilePicker;

=head1 NAME

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;

=head1 DESCRIPTION

=head1 CONFIG VARIABLES

=over 4

=item Switch: B<-checkoverwrite>

Only works when the '-selectmode' option is set to single.
Checks if the selected file exists and prompts and overwrite dialog.

=item Switch: B<-selectstring>

Text string for the 'Ok' button.

=back

=head1 ADVERTISED SUBWIDGETS

=over 4

=item B<Browser>

=item B<Entry>

=back

=head1 METHODS

=cut

sub Populate {
	my ($self,$args) = @_;

	$args->{'-buttons'} = ['Cancel'];
	
	$self->SUPER::Populate($args);
	
	$self->{LASTFOLDER} = '.';
	
	my $okbutton = $self->Subwidget('buttonframe')->Button(
		-command => ['OkButton', $self],
	);
	$self->ButtonPack($okbutton);
	$self->Advertise('okbutton', $okbutton);
	
	my @padding = (-padx => 2, -pady => 2);

	my $browser = $self->FileBrowser(