r3750 - in /packages/libcurses-widgets-perl/trunk: Widgets.pm
Widgets/ListBox.pm debian/ debian/changelog debian/compat debian/control
debian/copyright debian/rules debian/watch test.pl
gwolf at users.alioth.debian.org
gwolf at users.alioth.debian.org
Thu Sep 14 17:57:22 UTC 2006
Author: gwolf
Date: Thu Sep 14 17:57:21 2006
New Revision: 3750
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3750
Log:
Load libcurses-widgets-perl-1.997 into
packages/libcurses-widgets-perl/trunk.
Added:
packages/libcurses-widgets-perl/trunk/debian/
packages/libcurses-widgets-perl/trunk/debian/changelog
packages/libcurses-widgets-perl/trunk/debian/compat
packages/libcurses-widgets-perl/trunk/debian/control
packages/libcurses-widgets-perl/trunk/debian/copyright
packages/libcurses-widgets-perl/trunk/debian/rules (with props)
packages/libcurses-widgets-perl/trunk/debian/watch
Modified:
packages/libcurses-widgets-perl/trunk/Widgets.pm
packages/libcurses-widgets-perl/trunk/Widgets/ListBox.pm
packages/libcurses-widgets-perl/trunk/test.pl (props changed)
Modified: packages/libcurses-widgets-perl/trunk/Widgets.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/Widgets.pm?rev=3750&op=diff
==============================================================================
--- packages/libcurses-widgets-perl/trunk/Widgets.pm (original)
+++ packages/libcurses-widgets-perl/trunk/Widgets.pm Thu Sep 14 17:57:21 2006
@@ -719,6 +719,7 @@
my $self = shift;
my $mwh = shift;
my $active = shift;
+ my $conf = $self->{CONF};
my (@geom, $dwh, $cwh);
# Get the canvas geometry and create a window handle to it
@@ -730,7 +731,7 @@
$self->_caption($dwh);
# Get the content area geometry and create a window handle to it
- $cwh = $self->_canvas($dwh, $self->_cgeometry);
+ $cwh = $$conf{BORDER} ? $self->_canvas($dwh, $self->_cgeometry) : $dwh;
unless (defined $cwh) {
$dwh->delwin;
return 0;
@@ -740,8 +741,10 @@
$self->_cursor($cwh) if $active;
# Flush the changes to the screen and release the window handles
- $cwh->refresh;
- $cwh->delwin;
+ if ($$conf{BORDER}) {
+ $cwh->refresh;
+ $cwh->delwin;
+ }
$dwh->refresh;
$dwh->delwin;
Modified: packages/libcurses-widgets-perl/trunk/Widgets/ListBox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/Widgets/ListBox.pm?rev=3750&op=diff
==============================================================================
--- packages/libcurses-widgets-perl/trunk/Widgets/ListBox.pm (original)
+++ packages/libcurses-widgets-perl/trunk/Widgets/ListBox.pm Thu Sep 14 17:57:21 2006
@@ -314,6 +314,8 @@
my $sel = $$conf{VALUE};
my @items = @{$$conf{LISTITEMS}};
my $pos = $$conf{CURSORPOS};
+ my $top = $$conf{TOPELEMENT};
+ my $lines = $$conf{LINES};
my $re = $$conf{TOGGLE};
my $np;
@@ -337,17 +339,23 @@
if ($in eq KEY_HOME) {
beep if $pos == 0;
$pos = 0;
+ $top = 0;
} elsif ($in eq KEY_END) {
beep if $pos == $#items;
$pos = $#items;
+ $top = $#items - $lines + 1;
} elsif ($in eq KEY_PPAGE) {
beep if $pos == 0;
- $pos -= $$conf{LINES};
+ $pos -= ($lines - 1);
+ $top -= ($lines - 1);
$pos = 0 if $pos < 0;
+ $top = 0 if $top < 0;
} elsif ($in eq KEY_NPAGE) {
beep if $pos == $#items;
- $pos += $$conf{LINES};
+ $pos += ($lines - 1);
+ $top += ($lines - 1);
$pos = $#items if $pos > $#items;
+ $top = ($#items - $lines + 1) if $pos > ($#items - $lines + 1);
}
} else {
beep;
@@ -377,7 +385,7 @@
}
# Save the changes
- @$conf{qw(VALUE CURSORPOS)} = ($sel, $pos);
+ @$conf{qw(VALUE CURSORPOS TOPELEMENT)} = ($sel, $pos, $top);
}
sub match_key {
Added: packages/libcurses-widgets-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/changelog?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/changelog (added)
+++ packages/libcurses-widgets-perl/trunk/debian/changelog Thu Sep 14 17:57:21 2006
@@ -1,0 +1,47 @@
+libcurses-widgets-perl (1.997-3) unstable; urgency=low
+
+ * New maintainer (Closes: #279782).
+ * Adding a watch file.
+ * BORDER => 0 now displaying widgets (Closes: #341715).
+ - Thanks to William Thompson.
+ * Standards-Version updated to 3.7.2.
+
+ -- David Moreno Garza <damog at debian.org> Thu, 18 May 2006 12:48:44 -0500
+
+libcurses-widgets-perl (1.997-2) unstable; urgency=low
+
+ * QA Upload
+ * Changed Maintainer to Debian QA Group <packages at qa.debian.org>
+
+ -- Stephen Quinney <stephen at jadevine.org.uk> Sat, 26 Feb 2005 10:32:45 +0000
+
+libcurses-widgets-perl (1.997-1) unstable; urgency=low
+
+ * New upstream release,
+ Closes: #181908
+ * Apply patch to make ListBox.pm keep the bottom element of a list in
+ view when paging down & the top element of a list in view when paging
+ up,
+ Closes: #171719
+
+ -- Stephen Zander <gibreel at debian.org> Tue, 2 Mar 2004 01:13:33 -0800
+
+libcurses-widgets-perl (1.992-1) unstable; urgency=low
+
+ * New upstream version.
+
+ -- Stephen Zander <gibreel at debian.org> Tue, 13 Aug 2002 11:54:55 -0700
+
+libcurses-widgets-perl (1.2-1) unstable; urgency=low
+
+ * New upstream source
+ * New maintainer, Closes: #123501
+
+ -- Stephen Zander <gibreel at debian.org> Fri, 11 Jan 2002 19:41:54 -0800
+
+libcurses-widgets-perl (0.9-1) unstable; urgency=low
+
+ * New upstream version.
+
+ -- Raphael Bossek <bossekr at debian.org> Sun, 9 Jan 2000 17:39:04 +0100
+
Added: packages/libcurses-widgets-perl/trunk/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/compat?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/compat (added)
+++ packages/libcurses-widgets-perl/trunk/debian/compat Thu Sep 14 17:57:21 2006
@@ -1,0 +1,1 @@
+4
Added: packages/libcurses-widgets-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/control?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/control (added)
+++ packages/libcurses-widgets-perl/trunk/debian/control Thu Sep 14 17:57:21 2006
@@ -1,0 +1,19 @@
+Source: libcurses-widgets-perl
+Section: perl
+Priority: optional
+Maintainer: David Moreno Garza <damog at debian.org>
+Standards-Version: 3.7.2
+Build-Depends: debhelper (>> 4)
+Build-Depends-Indep: perl (>> 5.8.1), libcurses-perl
+
+Package: libcurses-widgets-perl
+Architecture: all
+Depends: ${perl:Depends}, libcurses-perl (>= 1.02)
+Description: Curses widget interface for Perl
+ This module provides a standard library of functions and
+ widgets for use in creating Curses-based interfaces. Should
+ work reliably with both Curses and nCurses libraries.
+ .
+ Current widgets include text field, list box, button sets,
+ calendar, message box, input box
+
Added: packages/libcurses-widgets-perl/trunk/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/copyright?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/copyright (added)
+++ packages/libcurses-widgets-perl/trunk/debian/copyright Thu Sep 14 17:57:21 2006
@@ -1,0 +1,15 @@
+This is the Debian GNU/Linux version of the Curses::Widgets perl module
+
+The developer of this software is Arthur Corliss <corliss at odinicfoundation.org>.
+
+This software is released under the terms of the GNU General Public License.
+
+The full text of the GPL is available on Debian systems in
+/usr/share/common-licenses/GPL
+
+This package has been through multiple maintainers (for a list see
+/usr/share/doc/libapache-asp-perl/changelog.Debian.gz).
+
+Current Debian specific changes are copyright (c) 2000-2002,
+Stephen Zander <gibreel at debian.org>
+
Added: packages/libcurses-widgets-perl/trunk/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/rules?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/rules (added)
+++ packages/libcurses-widgets-perl/trunk/debian/rules Thu Sep 14 17:57:21 2006
@@ -1,0 +1,56 @@
+#! /usr/bin/make -f
+# -*-makefile-*-
+# debian/rules file for libcurses-widgets-perl
+
+PERL ?= /usr/bin/perl
+
+package := $(firstword $(shell dh_listpackages))
+prefix := $(PWD)/debian/$(package)/usr
+
+version := $(shell dpkg-parsechangelog | \
+ sed -ne 's/^Version: *\([0-9]\+:\)*//p')
+
+tag:
+ cvs tag -c -F $(subst .,_,debian_version_$(version))
+ifeq ($(findstring -,$(version)),)
+ cvs tag -c -F $(subst .,_,upstream_version_$(version))
+endif
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+ $(PERL) Makefile.PL INSTALLDIRS=vendor PERL=$(PERL)
+ $(MAKE) LD_RUN_PATH=
+ touch $@
+
+clean: checkroot
+ rm -f build-stamp
+ -$(MAKE) distclean
+ dh_clean
+
+binary-indep: checkroot build
+ dh_clean
+ dh_installdirs
+
+ $(MAKE) pure_install PREFIX=$(prefix)
+ -rmdir -p $(prefix)/lib/perl5
+ dh_installdocs README
+ dh_installchangelogs CHANGELOG
+
+ dh_compress
+ dh_fixperms
+ dh_perl
+ dh_installdeb
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary-arch: checkroot build
+
+binary: binary-indep binary-arch
+
+checkroot:
+ dh_testdir
+ dh_testroot
+
+.PHONY: binary binary-arch binary-indep clean checkroot build
Propchange: packages/libcurses-widgets-perl/trunk/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: packages/libcurses-widgets-perl/trunk/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcurses-widgets-perl/trunk/debian/watch?rev=3750&op=file
==============================================================================
--- packages/libcurses-widgets-perl/trunk/debian/watch (added)
+++ packages/libcurses-widgets-perl/trunk/debian/watch Thu Sep 14 17:57:21 2006
@@ -1,0 +1,2 @@
+version=3
+http://www.cpan.org/modules/by-module/Curses/CursesWidgets-(.*)\.tar\.gz
Propchange: packages/libcurses-widgets-perl/trunk/test.pl
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Thu Sep 14 17:57:21 2006
@@ -1,0 +1,1 @@
+*
More information about the Pkg-perl-cvs-commits
mailing list