OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-src Date: 21-Nov-2002 21:46:16
Branch: HEAD Handle: 2002112120461600
Modified files:
openpkg-src/perl-curses perl-curses.patch
Log:
allow default colors to be set, too
Summary:
Revision Changes Path
1.3 +10 -7 openpkg-src/perl-curses/perl-curses.patch
____________________________________________________________________________
Index: openpkg-src/perl-curses/perl-curses.patch
============================================================
$ cvs diff -u -r1.2 -r1.3 perl-curses.patch
--- openpkg-src/perl-curses/perl-curses.patch 21 Nov 2002 20:18:30 -0000 1.2
+++ openpkg-src/perl-curses/perl-curses.patch 21 Nov 2002 20:46:16 -0000 1.3
@@ -2,8 +2,8 @@
===================================================================
RCS file: CHANGES.RSE
diff -N CHANGES.RSE
---- /dev/null Thu Nov 21 21:15:00 2002
-+++ /tmp/rse/cvsWYEhjj Thu Nov 21 21:17:26 2002
+--- /dev/null Thu Nov 21 21:45:01 2002
++++ /tmp/rse/cvswnxWiC Thu Nov 21 21:45:22 2002
@@ -0,0 +1,19 @@
+
+ The following changes were made by Ralf S. Engelschall <[EMAIL PROTECTED]>
@@ -28,10 +28,10 @@
===================================================================
RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI.pm,v
retrieving revision 1.1.1.1
-retrieving revision 1.2
-diff -u -d -u -d -r1.1.1.1 -r1.2
+retrieving revision 1.3
+diff -u -d -u -d -r1.1.1.1 -r1.3
--- lib/Curses/UI.pm 2002/11/20 15:00:33 1.1.1.1
-+++ lib/Curses/UI.pm 2002/11/21 18:14:03 1.2
++++ lib/Curses/UI.pm 2002/11/21 20:44:25 1.3
@@ -65,6 +65,8 @@
-cursor_mode => 0, # What is the current cursor_mode?
-debug => undef, # Turn on debugging mode?
@@ -50,7 +50,7 @@
# TODO: document
sub debug(;$)
-@@ -128,6 +132,58 @@
+@@ -128,6 +132,61 @@
}
# ----------------------------------------------------------------------
@@ -100,6 +100,9 @@
+ $bg = $bg_d;
+ }
+ init_pair($n, $fg, $bg);
++ if ($name eq 'default') {
++ assume_default_colors($fg, $bg);
++ }
+ $Curses::UI::colorpair->{$name} = $n;
+ return $n;
+ }
@@ -109,7 +112,7 @@
# Window resizing support
# ----------------------------------------------------------------------
-@@ -143,6 +199,23 @@
+@@ -143,6 +202,23 @@
initscr();
noecho();
raw();
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
