r10399 - in /trunk/libtk-filedialog-perl: FileDialog.pm debian/ debian/changelog debian/compat debian/control debian/copyright debian/rules debian/substvars debian/watch example.pl
vdanjean at users.alioth.debian.org
vdanjean at users.alioth.debian.org
Sat Dec 1 12:22:46 UTC 2007
Author: vdanjean
Date: Sat Dec 1 12:22:46 2007
New Revision: 10399
URL: http://svn.debian.org/wsvn/?sc=1&rev=10399
Log:
[svn-inject] Applying Debian modifications to trunk
Added:
trunk/libtk-filedialog-perl/debian/
trunk/libtk-filedialog-perl/debian/changelog
trunk/libtk-filedialog-perl/debian/compat
trunk/libtk-filedialog-perl/debian/control
trunk/libtk-filedialog-perl/debian/copyright
trunk/libtk-filedialog-perl/debian/rules (with props)
trunk/libtk-filedialog-perl/debian/substvars
trunk/libtk-filedialog-perl/debian/watch
trunk/libtk-filedialog-perl/example.pl
Modified:
trunk/libtk-filedialog-perl/FileDialog.pm
Modified: trunk/libtk-filedialog-perl/FileDialog.pm
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/FileDialog.pm?rev=10399&op=diff
==============================================================================
--- trunk/libtk-filedialog-perl/FileDialog.pm (original)
+++ trunk/libtk-filedialog-perl/FileDialog.pm Sat Dec 1 12:22:46 2007
@@ -76,7 +76,7 @@
=item
- #!/usr/local/bin/perl -w
+ #!/usr/bin/perl -w
use Tk;
use Tk::FileDialog;
Added: trunk/libtk-filedialog-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/changelog?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/changelog (added)
+++ trunk/libtk-filedialog-perl/debian/changelog Sat Dec 1 12:22:46 2007
@@ -1,0 +1,11 @@
+libtk-filedialog-perl (1.3-2) unstable; urgency=low
+
+ * Adds debian/watch so uscan will actually work
+
+ -- Jay Bonci <jaybonci at debian.org> Mon, 11 Oct 2004 03:03:28 -0400
+
+libtk-filedialog-perl (1.3-1) unstable; urgency=low
+
+ * Initial Release (Closes: #110785)
+
+ -- Jay Bonci <jaybonci at debian.org> Thu, 18 Sep 2003 12:27:16 -0400
Added: trunk/libtk-filedialog-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/compat?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/compat (added)
+++ trunk/libtk-filedialog-perl/debian/compat Sat Dec 1 12:22:46 2007
@@ -1,0 +1,1 @@
+4
Added: trunk/libtk-filedialog-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/control?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/control (added)
+++ trunk/libtk-filedialog-perl/debian/control Sat Dec 1 12:22:46 2007
@@ -1,0 +1,16 @@
+Source: libtk-filedialog-perl
+Section: perl
+Priority: optional
+Maintainer: Jay Bonci <jaybonci at debian.org>
+Build-Depends-Indep: debhelper (>> 4.0.0)
+Standards-Version: 3.6.1.0
+
+Package: libtk-filedialog-perl
+Architecture: all
+Depends: ${perl:Depends}, perl-tk
+Description: A 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
Added: trunk/libtk-filedialog-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/copyright?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/copyright (added)
+++ trunk/libtk-filedialog-perl/debian/copyright Sat Dec 1 12:22:46 2007
@@ -1,0 +1,24 @@
+This package was debianized by Jay Bonci <jay at bonci.com> on
+Sun, 16 Mar 2003 02:01:08 -0500.
+
+It was downloaded from http://search.cpan.org/dist/Tk-FileDialog/
+
+Upstream Author: Brent B. Powers, Merrill Lynch (B2Pi) <powers at ml.com>
+
+Copyright:
+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of either:
+
+ a) the GNU General Public License as published by the Free
+ Software Foundation; either version 1, or (at your option) any
+ later version, or
+
+ b) the "Artistic License"
+
+ See:
+
+ /usr/share/common-licenses/Artistic
+ /usr/share/common-licenses/GPL
+
+ For more information regarding these licensing options
Added: trunk/libtk-filedialog-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/rules?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/rules (added)
+++ trunk/libtk-filedialog-perl/debian/rules Sat Dec 1 12:22:46 2007
@@ -1,0 +1,55 @@
+#!/usr/bin/make -f
+# Sample debian/rules that uses debhelper.
+# GNU copyright 1997 to 1999 by Joey Hess.
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+# This is the debhelper compatibility version to use.
+# export DH_COMPAT=4
+
+PACKAGE=`pwd | sed -e "s/.*\/\\(.*\\)-.*/\\1/"`
+
+
+build:
+ dh_testdir
+ # Add here commands to compile the package.
+ perl Makefile.PL verbose INSTALLDIRS=vendor
+clean:
+ dh_testdir
+ dh_testroot
+
+ -$(MAKE) clean
+ rm -f Makefile.old
+ dh_clean
+
+install:
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ dh_installdirs
+
+ install -d $(CURDIR)/debian/$(PACKAGE)/usr/share/doc/$(PACKAGE)/examples
+ install -m 755 example.pl $(CURDIR)/debian/$(PACKAGE)/usr/share/doc/$(PACKAGE)/examples
+ $(MAKE) PREFIX=$(CURDIR)/debian/$(PACKAGE)/usr OPTIMIZE="-O2 -g -Wall" test install
+ -find $(CURDIR)/debian -type d | xargs rmdir -p --ignore-fail-on-non-empty
+
+binary-arch:;
+binary-indep: build install
+ dh_testdir
+ dh_testroot
+ dh_installdocs
+ dh_installman
+ dh_installchangelogs
+ dh_link
+ dh_strip
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_perl
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary install configure
Propchange: trunk/libtk-filedialog-perl/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libtk-filedialog-perl/debian/substvars
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/substvars?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/substvars (added)
+++ trunk/libtk-filedialog-perl/debian/substvars Sat Dec 1 12:22:46 2007
@@ -1,0 +1,1 @@
+perl:Depends=perl (>= 5.6.0-16)
Added: trunk/libtk-filedialog-perl/debian/watch
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/debian/watch?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/debian/watch (added)
+++ trunk/libtk-filedialog-perl/debian/watch Sat Dec 1 12:22:46 2007
@@ -1,0 +1,2 @@
+version=2
+http://www.cpan.org/modules/by-module/Tk/Tk-FileDialog-([0-9].*)\.tar.gz
Added: trunk/libtk-filedialog-perl/example.pl
URL: http://svn.debian.org/wsvn/trunk/libtk-filedialog-perl/example.pl?rev=10399&op=file
==============================================================================
--- trunk/libtk-filedialog-perl/example.pl (added)
+++ trunk/libtk-filedialog-perl/example.pl Sat Dec 1 12:22:46 2007
@@ -1,0 +1,54 @@
+#!/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;
+
+
More information about the Pkg-perl-cvs-commits
mailing list