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