debian/0000755000000000000000000000000011614633136007172 5ustar debian/rules0000755000000000000000000000003611614615210010242 0ustar #!/usr/bin/make -f %: dh $@ debian/example.pl0000644000000000000000000000213711614604004011155 0ustar #!/usr/bin/perl -w # Originally found in the FileDialog.pm pod documentation use Tk; use Tk::FileDialog; use strict; my($main) = MainWindow->new; my($Horiz) = 1; my($fname); my($LoadDialog) = $main->FileDialog(-Title =>'This is my title', -Create => 0); print "Using FileDialog Version ",$LoadDialog->Version,"\n"; $LoadDialog->configure(-FPat => '*pl', -ShowAll => 'NO'); $main->Entry(-textvariable => \$fname) ->pack(-expand => 1, -fill => 'x'); $main->Button(-text => 'Kick me!', -command => sub { $fname = $LoadDialog->Show(-Horiz => $Horiz); if (!defined($fname)) { $fname = "Fine,Cancel, but no Chdir anymore!!!"; $LoadDialog->configure(-Chdir =>'NO'); } }) ->pack(-expand => 1, -fill => 'x'); $main->Checkbutton(-text => 'Horizontal', -variable => \$Horiz) ->pack(-expand => 1, -fill => 'x'); $main->Button(-text => 'Exit', -command => sub { $main->destroy; }) ->pack(-expand => 1, -fill => 'x'); MainLoop; print "Exit Stage right!\n"; exit; debian/changelog0000644000000000000000000000527511614633136011055 0ustar libtk-filedialog-perl (1.3-4) unstable; urgency=low [ gregor herrmann ] * debian/rules: switch order of arguments to dh. [ Tim Retout ] * debian/control: + Update my email address. + Remove leading article from short description, and remove unnecessary capitalization in long and short descriptions. + Bump Standards-Version to 3.9.2 (no changes needed). + Remove Build-Depends on quilt. + Build-Depend on debhelper 8. * debian/patches/fix-pod: New patch to clean up POD. * debian/copyright: Refer to GPL-1 common-licenses file. * debian/source/format: Use 3.0 (quilt). * debian/rules: Remove "--with quilt" dh option. * debian/compat: Bump to 8. [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. -- Tim Retout Fri, 29 Jul 2011 23:38:16 +0100 libtk-filedialog-perl (1.3-3) unstable; urgency=low [ gregor herrmann ] * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). * Set Maintainer to Debian Perl Group. * Use dist-based URL in debian/watch. * debian/rules: delete /usr/lib/perl5 only if it exists. * Move example.pl to debian/ and install it with dh_installexamples from debian/rules. * Move the change to FileDialog.pm into a patch; add quilt framework. * Refresh debian/rules, no functional changes. * Separate Build-Depends and Build-Depends-Indep. * Add debian/README.source to document quilt usage, as required by Debian Policy since 3.8.0. * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). * debian/control: Added: ${misc:Depends} to Depends: field. * debian/watch: use extended regexp for matching upstream versions. [ Tim Retout ] * debian/control: + Add self to Uploaders. + Remove ancient versioning from perl B-D-I entry. + Build-Depend on debhelper (>= 7.0.8) and quilt (>= 0.46-7) + Update Standards-Version to 3.8.3. * debian/rules: Switch to minimal dh7 rules file with quilt. * debian/compat: Bump to 7. * debian/copyright: Change to draft machine-readable format. * debian/libtk-filedialog-perl.examples: Add debian/example.pl * debian/patches/fix-own-master-error: New patch to fix error about making ".filedialog" its own master. (Closes: #544894) -- Tim Retout Fri, 27 Nov 2009 19:12:37 +0000 libtk-filedialog-perl (1.3-2) unstable; urgency=low * Adds debian/watch so uscan will actually work -- Jay Bonci Mon, 11 Oct 2004 03:03:28 -0400 libtk-filedialog-perl (1.3-1) unstable; urgency=low * Initial Release (Closes: #110785) -- Jay Bonci Thu, 18 Sep 2003 12:27:16 -0400 debian/README.source0000644000000000000000000000036311614604004011343 0ustar This package uses quilt to manage all modifications to the upstream source. Changes are stored in the source package as diffs in debian/patches and applied during the build. See /usr/share/doc/quilt/README.source for a detailed explanation. debian/source/0000755000000000000000000000000011614614757010502 5ustar debian/source/format0000644000000000000000000000001411614614757011710 0ustar 3.0 (quilt) debian/patches/0000755000000000000000000000000011614613545010623 5ustar debian/patches/fix-pod0000644000000000000000000001401311614613545012113 0ustar Description: Clean up POD. Author: Tim Retout --- a/FileDialog.pm +++ b/FileDialog.pm @@ -58,8 +58,6 @@ =head1 SYNOPSIS -=over 4 - =head2 Usage Description To use FileDialog, simply create your FileDialog objects during initialization (or at @@ -72,10 +70,6 @@ The following code creates a FileDialog and calls it. Note that perl5.002gamma is required. -=over 4 - -=item - #!/usr/bin/perl -w use Tk; @@ -127,25 +121,12 @@ exit; - -=back - -=back - =head1 METHODS -=over 4 - -=item - The following non-standard methods may be used with a FileDialog object -=item - =head2 Show -=over 4 - Displays the file dialog box for the user to operate. Additional configuration items may be passed in at Show-time In other words, this code snippet: @@ -156,17 +137,10 @@ $fd->configure(-Title => 'Ooooh, Preeeeeety!'); $fd->Show; - -=back - -=item - =head2 Version Returns the current Version of FileDialog -=back - =head1 CONFIGURATION Any of the following configuration items may be set via the configure (or Show) method, @@ -180,24 +154,12 @@ =over 4 -=item - -=head2 -Chdir - -=over 8 - -=item +=item -Chdir Enable the user to change directories. The default is 1. If disabled, the directory list box will not be shown. -=back - -=head2 -Create - -=over 8 - -=item +=item -Create Enable the user to specify a file that does not exist. If not enabled, and the user specifies a non-existent file, a dialog box will be shown informing the user of the @@ -205,97 +167,47 @@ default: 1 -=back - -=head2 -ShowAll - -=over 8 - -=item +=item -ShowAll Determines whether hidden files (.*) are displayed in the File and Directory Listboxes. The default is 0. The Show All Checkbox reflects the setting of this switch. -=back - -=head2 -DisableShowAll - -=over 8 - -=item +=item -DisableShowAll Disables the ability of the user to change the status of the ShowAll flag. The default is 0 (the user is by default allowed to change the status). -=back - -=head2 -Grab - -=over 8 - -=item +=item -Grab Enables the File Dialog to do an application Grab when displayed. The default is 1. -=back - -=head2 -Horiz - -=over 8 - -=item +=item -Horiz True sets the File List box to be to the right of the Directory List Box. If 0, the File List box will be below the Directory List box. The default is 1. -=back - -=head2 -SelDir - -=over 8 - -=item +=item -SelDir If True, enables selection of a directory rather than a file, and disables the actions of the File List Box. The default is 0. =back -=back - =head2 I =over 4 -=item - -=head2 -FPat - -=over 8 - -=item +=item -FPat Sets the default file selection pattern. The default is '*'. Only files matching this pattern will be displayed in the File List Box. -=back - -=head2 -Geometry - -=over 8 - -=item +=item -Geometry Sets the geometry of the File Dialog. Setting the size is a dangerous thing to do. If not configured, or set to '', the File Dialog will be centered. -=back - -=head2 -SelHook - -=over 8 - -=item +=item -SelHook SelHook is configured with a reference to a routine that will be called when a file is chosen. The file is called with a sole parameter of the full path and file name @@ -316,8 +228,6 @@ =back -=back - =head2 I The following two switches may be used to set default variables, and to get final @@ -326,11 +236,13 @@ =over 4 -=item +=item -File + +The file selected, or the default file. The default is ''. -B<-File> The file selected, or the default file. The default is ''. +=item -Path -B<-Path> The path of the selected file, or the initial path. The default is $ENV{'HOME'}. +The path of the selected file, or the initial path. The default is $ENV{'HOME'}. =back @@ -341,21 +253,33 @@ =over 4 -=item +=item -Title + +The Title of the dialog box. The default is 'Select File:'. + +=item -DirLBCaption -B<-Title> The Title of the dialog box. The default is 'Select File:'. +The Caption above the Directory List Box. The default is 'Directories'. -B<-DirLBCaption> The Caption above the Directory List Box. The default is 'Directories'. +=item -FileLBCaption -B<-FileLBCaption> The Caption above the File List Box. The default is 'Files'. +The Caption above the File List Box. The default is 'Files'. -B<-FileEntryLabel> The label to the left of the File Entry. The Default is 'Filename:'. +=item -FileEntryLabel -B<-PathEntryLabel> The label to the left of the Path Entry. The default is 'Pathname:'. +The label to the left of the File Entry. The Default is 'Filename:'. -B<-FltEntryLabel> The label to the left of the Filter entry. The default is 'Filter:'. +=item -PathEntryLabel -B<-ShowAllLabel> The text of the Show All Checkbutton. The default is 'Show All'. +The label to the left of the Path Entry. The default is 'Pathname:'. + +=item -FltEntryLabel + +The label to the left of the Filter entry. The default is 'Filter:'. + +=item -ShowAllLabel + +The text of the Show All Checkbutton. The default is 'Show All'. =back @@ -365,13 +289,17 @@ =over 4 -=item +=item -OKButtonLabel + +The text for the OK button. The default is 'OK'. -B<-OKButtonLabel> The text for the OK button. The default is 'OK'. +=item -RescanButtonLabel -B<-RescanButtonLabel> The text for the Rescan button. The default is 'Rescan'. +The text for the Rescan button. The default is 'Rescan'. -B<-CancelButtonLabel> The text for the Cancel button. The default is 'Cancel'. +=item -CancelButtonLabel + +The text for the Cancel button. The default is 'Cancel'. =back @@ -383,23 +311,11 @@ =over 4 -=item - -=head2 -EDlgTitle - -=over 8 - -=item +=item -EDlgTitle The title of the Error Dialog Box. The default is 'File does not exist!'. -=back - -=head2 -EDlgText - -=over 8 - -=item +=item -EDlgText The message of the Error Dialog Box. The variables $path, $file, and $filename (the full path and filename of the selected file) are available. The default @@ -407,8 +323,6 @@ =back -=back - =head1 Author B debian/patches/series0000644000000000000000000000005411614607245012037 0ustar hashbang.patch fix-own-master-error fix-pod debian/patches/hashbang.patch0000644000000000000000000000031711614604004013406 0ustar Description = fix hashbang in example script --- a/FileDialog.pm +++ b/FileDialog.pm @@ -76,7 +76,7 @@ required. =item - #!/usr/local/bin/perl -w + #!/usr/bin/perl -w use Tk; use Tk::FileDialog; debian/patches/fix-own-master-error0000644000000000000000000000103011614604004014535 0ustar Description: Fix ``can't make ".filedialog" its own master'' error. Bug: http://rt.cpan.org/Public/Bug/Display.html?id=12726 Bug-Debian: http://bugs.debian.org/544894 Origin: http://rt.cpan.org/Ticket/Attachment/131163/34704/ Author: Lee Goddard --- a/FileDialog.pm +++ b/FileDialog.pm @@ -467,7 +467,7 @@ $FDialog->{'Can'}->invoke; } }); - $FDialog->transient($FDialog->toplevel); + $FDialog->transient($FDialog->parent->toplevel); foreach (@TabOrder) { $FDialog->{'TabSel'}->{$_} = 1; debian/libtk-filedialog-perl.examples0000644000000000000000000000002211614604004015056 0ustar debian/example.pl debian/watch0000644000000000000000000000016511614604004010215 0ustar version=3 http://search.cpan.org/dist/Tk-FileDialog/ .*/Tk-FileDialog-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/copyright0000644000000000000000000000217711614614372011135 0ustar Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59 Maintainer: Brent B. Powers Source: http://search.cpan.org/dist/Tk-FileDialog/ Name: Tk-FileDialog Files: * Copyright: 1996, Brent B. Powers X-Comment: This is deduced from the changelog in FileDialog.pm. License: Artistic or GPL-1+ Files: debian/* Copyright: 2003, 2004, Jay Bonci 2009, Tim Retout License: Artistic or GPL-1+ License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian GNU/Linux systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic' License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian GNU/Linux systems, the complete text of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1' debian/control0000644000000000000000000000176111614615237010604 0ustar Source: libtk-filedialog-perl Section: perl Priority: optional Maintainer: Debian Perl Group Uploaders: Jay Bonci , Tim Retout Build-Depends: debhelper (>= 8) Build-Depends-Indep: perl Standards-Version: 3.9.2 Homepage: http://search.cpan.org/dist/Tk-FileDialog/ Vcs-Git: git://git.debian.org/pkg-perl/packages/libtk-filedialog-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libtk-filedialog-perl.git Package: libtk-filedialog-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends}, perl-tk Description: highly configurable file dialog widget for Perl/Tk This file dialog widget is a collection of sub-widgets: a listbox for files and (optionally) directories, an entry for filename, an (optional) entry for pathname, an entry for a filter pattern, a 'ShowAll' checkbox (for enabling display of .* files and directories), and three buttons, namely OK, Rescan, and Cancel debian/compat0000644000000000000000000000000211614615225010367 0ustar 8