r16453 - in /trunk/libcurses-ui-perl: Changes MANIFEST META.yml Makefile.PL debian/changelog debian/rules inc/ lib/Curses/UI.pm lib/Curses/UI/Label.pm t/06ui.t t/13notebook.t t/98misc.t t/99misc.t t/99template.t
rra at users.alioth.debian.org
rra at users.alioth.debian.org
Tue Mar 4 05:18:08 UTC 2008
Author: rra
Date: Tue Mar 4 05:18:07 2008
New Revision: 16453
URL: http://svn.debian.org/wsvn/?sc=1&rev=16453
Log:
* New upstream release.
* Remove commented-out and unneeded debian/rules commands.
Added:
trunk/libcurses-ui-perl/META.yml
- copied unchanged from r16452, branches/upstream/libcurses-ui-perl/current/META.yml
trunk/libcurses-ui-perl/inc/
- copied from r16452, branches/upstream/libcurses-ui-perl/current/inc/
trunk/libcurses-ui-perl/t/99misc.t
- copied unchanged from r16452, branches/upstream/libcurses-ui-perl/current/t/99misc.t
Removed:
trunk/libcurses-ui-perl/t/98misc.t
trunk/libcurses-ui-perl/t/99template.t
Modified:
trunk/libcurses-ui-perl/Changes
trunk/libcurses-ui-perl/MANIFEST
trunk/libcurses-ui-perl/Makefile.PL
trunk/libcurses-ui-perl/debian/changelog
trunk/libcurses-ui-perl/debian/rules
trunk/libcurses-ui-perl/lib/Curses/UI.pm
trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm
trunk/libcurses-ui-perl/t/06ui.t
trunk/libcurses-ui-perl/t/13notebook.t
Modified: trunk/libcurses-ui-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/Changes?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/Changes (original)
+++ trunk/libcurses-ui-perl/Changes Tue Mar 4 05:18:07 2008
@@ -1,4 +1,12 @@
Changelog for the Curses::UI distribution:
+
+Version 0.9602
+==============
+ - Using Module::Install now
+ - Removed effectively null t/99template.t which was causing
+ FAILs for CPAN testers (to be replaced with more testing
+ at a later date)
+ - Apologies for the weird previous version number
Version 0.96_01
===============
Modified: trunk/libcurses-ui-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/MANIFEST?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/MANIFEST (original)
+++ trunk/libcurses-ui-perl/MANIFEST Tue Mar 4 05:18:07 2008
@@ -15,10 +15,20 @@
examples/mouse_focustest
examples/pop3_reader
examples/tutorial
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
INSTALL
lib/Curses/UI.pm
lib/Curses/UI/Buttonbox.pm
-lib/Curses/UI/Notebook.pm
lib/Curses/UI/Calendar.pm
lib/Curses/UI/Checkbox.pm
lib/Curses/UI/Color.pm
@@ -35,6 +45,7 @@
lib/Curses/UI/Label.pm
lib/Curses/UI/Language.pm
lib/Curses/UI/Language/chinese.pm
+lib/Curses/UI/Language/czech.pm
lib/Curses/UI/Language/dutch.pm
lib/Curses/UI/Language/english.pm
lib/Curses/UI/Language/french.pm
@@ -44,11 +55,12 @@
lib/Curses/UI/Language/polish.pm
lib/Curses/UI/Language/portuguese.pm
lib/Curses/UI/Language/russian.pm
+lib/Curses/UI/Language/slovak.pm
lib/Curses/UI/Language/spanish.pm
lib/Curses/UI/Language/turkish.pm
-lib/Curses/UI/Language/slovak.pm
lib/Curses/UI/Listbox.pm
lib/Curses/UI/Menubar.pm
+lib/Curses/UI/Notebook.pm
lib/Curses/UI/PasswordEntry.pm
lib/Curses/UI/Popupmenu.pm
lib/Curses/UI/Progressbar.pm
@@ -77,9 +89,7 @@
t/11listbox.t
t/12gpm_handler.t
t/13notebook.t
-t/98misc.t
-t/99template.t
+t/99misc.t
t/fakelib/Curses.pm
t/lorem.pl
TODO
-
Modified: trunk/libcurses-ui-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/Makefile.PL?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/Makefile.PL (original)
+++ trunk/libcurses-ui-perl/Makefile.PL Tue Mar 4 05:18:07 2008
@@ -1,17 +1,17 @@
-use ExtUtils::MakeMaker;
+# Load the Module::Install bundled in ./inc/
+use inc::Module::Install;
-WriteMakefile(
- NAME => 'Curses::UI',
- VERSION_FROM => 'lib/Curses/UI.pm',
- DISTNAME => 'Curses-UI',
- PREREQ_PM => {
- 'Curses' => 0,
- 'Term::ReadKey' => 0,
- 'Test::Pod' => 0,
- 'Test::More' => 0,
- },
+# Define metadata
+name 'Curses-UI';
+all_from 'lib/Curses/UI.pm';
- dist => { COMPRESS => 'gzip', SUFFIX => 'gz' },
- clean => { FILES => 'MANIFEST.bak' },
-);
+# Specific dependencies
+requires 'Curses' => 0;
+requires 'Term::ReadKey' => 0;
+build_requires 'Test::More' => 0;
+build_requires 'Test::Pod' => 0;
+no_index 'directory' => 'examples';
+
+auto_install;
+WriteAll;
Modified: trunk/libcurses-ui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/debian/changelog?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/debian/changelog (original)
+++ trunk/libcurses-ui-perl/debian/changelog Tue Mar 4 05:18:07 2008
@@ -1,3 +1,10 @@
+libcurses-ui-perl (0.9602-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+ * Remove commented-out and unneeded debian/rules commands.
+
+ -- Russ Allbery <rra at debian.org> Mon, 03 Mar 2008 21:16:09 -0800
+
libcurses-ui-perl (0.9601-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libcurses-ui-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/debian/rules?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/debian/rules (original)
+++ trunk/libcurses-ui-perl/debian/rules Tue Mar 4 05:18:07 2008
@@ -6,9 +6,6 @@
# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
# be used freely wherever it is useful.
-
-# Use quilt to manage patches.
-#include /usr/share/quilt/quilt.make
# Uncomment this to turn on verbose mode.
# export DH_VERBOSE=1
@@ -24,7 +21,6 @@
build: build-arch build-indep
build-arch:
build-indep: build-stamp
-#build-stamp: patch
build-stamp:
dh_testdir
chmod 755 examples/demo-buttonbox
@@ -32,25 +28,21 @@
$(MAKE)
touch build-stamp
-#clean: unpatch
clean:
dh_testdir
dh_testroot
rm -f build-stamp install-stamp
[ ! -f Makefile ] || $(MAKE) distclean
-# dh_clean -XTextEditor.pm.orig
dh_clean
install: install-stamp
install-stamp: build-stamp
dh_testdir
dh_testroot
-# dh_clean -k -XTextEditor.pm.orig
dh_clean
$(MAKE) test
$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
[ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5
-# rm $(TMP)/usr/share/perl5/Curses/UI/TextEditor.pm.orig
touch install-stamp
binary: binary-arch binary-indep
Modified: trunk/libcurses-ui-perl/lib/Curses/UI.pm
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/lib/Curses/UI.pm?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/lib/Curses/UI.pm (original)
+++ trunk/libcurses-ui-perl/lib/Curses/UI.pm Tue Mar 4 05:18:07 2008
@@ -29,11 +29,11 @@
=head1 VERSION
-Version 0.96_01
+Version 0.9602
=cut
-$VERSION = 0.96_01;
+$VERSION = 0.9602;
=head1 SYNOPSIS
Modified: trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm (original)
+++ trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm Tue Mar 4 05:18:07 2008
@@ -47,15 +47,15 @@
-textalignment => undef, # left / middle / right
-bold => 0, # Special attributes
-reverse => 0,
- -underline => 0,
+ -underline => 0,
-dim => 0,
-blink => 0,
-paddingspaces => 0, # Pad text with spaces?
-bg => -1,
-fg => -1,
-
+
%userargs,
-
+
-nocursor => 1, # This widget uses no cursor
-focusable => 0, # This widget can't be focused
);
@@ -75,16 +75,16 @@
$l = 1 if $l <= 0;
$args{-height} = height_by_windowscrheight($l, %args);
}
-
+
# No width given? Then make the width the same size
# as the text. No initial text? Then let
# Curses::UI::Widget figure it out.
$args{-width} = width_by_windowscrwidth($text_dimension[0], %args)
unless defined $args{-width} or not defined $args{-text};
- # If no text was defined (how silly...) we define an empty strin.
+ # If no text was defined (how silly...) we define an empty string.
$args{-text} = '' unless defined $args{-text};
-
+
# Create the widget.
my $this = $class->SUPER::new( %args );
@@ -170,10 +170,10 @@
{
my $this = shift;
my $no_doupdate = shift || 0;
-
+
# Draw the widget.
$this->SUPER::draw(1) or return $this;
-
+
# Clear all attributes.
$this->{-canvasscr}->attroff(A_REVERSE);
$this->{-canvasscr}->attroff(A_BOLD);
@@ -209,15 +209,15 @@
$line = substr($line, 0, $this->canvaswidth);
$line =~ s/.$/\$/;
} elsif ($this->{-paddingspaces}) {
- $this->{-canvasscr}->addstr($ypos, 0, " "x$this->canvaswidth);
- }
+ $this->{-canvasscr}->addstr($ypos, 0, " "x$this->canvaswidth);
+ }
my $xpos = $this->compute_xpos($line);
$this->{-canvasscr}->addstr($ypos, $xpos, $line);
$ypos++;
}
-
+
$this->{-canvasscr}->noutrefresh;
doupdate() unless $no_doupdate;
Modified: trunk/libcurses-ui-perl/t/06ui.t
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/t/06ui.t?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/t/06ui.t (original)
+++ trunk/libcurses-ui-perl/t/06ui.t Tue Mar 4 05:18:07 2008
@@ -1,6 +1,6 @@
-# -*- perl -*-
+use Test::More tests => 8;
use strict;
-use Test::More tests => 8;
+use warnings;
use FindBin;
use lib "$FindBin::RealBin/fakelib";
use lib "$FindBin::RealBin/../lib";
Modified: trunk/libcurses-ui-perl/t/13notebook.t
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/t/13notebook.t?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/t/13notebook.t (original)
+++ trunk/libcurses-ui-perl/t/13notebook.t Tue Mar 4 05:18:07 2008
@@ -1,14 +1,15 @@
-# -*- perl -*-
-# $Id: 13notebook.t,v 1.4 2005/03/18 10:10:51 mthies2s Exp $
+use Test::More tests => 25;
-use Test::More tests => 24;
+use strict;
+use warnings;
+
use FindBin;
use lib "$FindBin::RealBin/fakelib";
use lib "$FindBin::RealBin/../lib";
use Curses::UI;
# Tests 1: module load.
-BEGIN {
+BEGIN {
$| = 1;
# Ensure Term::ReadKey doesn't fail to get the screen size.
$ENV{LINES} = 25;
@@ -19,10 +20,8 @@
my $debug = 0;
-my $cui = new Curses::UI (
- -clear_on_exit => 0,
- -debug => $debug,
-);
+my $cui = new Curses::UI ( -clear_on_exit => 0,
+ -debug => $debug, );
$cui->leave_curses();
my $win = $cui->add(undef, 'Window');
@@ -30,8 +29,9 @@
# Tests 2-4: notebook object creation.
my $nb1 = $win->add(undef, 'Notebook');
+isa_ok( $nb1, 'Curses::UI::Notebook');
+
ok(
- $nb1->isa('Curses::UI::Notebook') &&
$nb1->{-border} == 1 && $nb1->{-sbborder} == 0 &&
$nb1->{-padleft} == 0 && $nb1->{-ipadleft} == 1,
'Initialization w/ defaults'
More information about the Pkg-perl-cvs-commits
mailing list