OpenPKG CVS Repository
http://cvs.openpkg.org/
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web, openpkg-src Date: 21-Nov-2002 21:18:31
Branch: HEAD Handle: 2002112120183000
Modified files:
openpkg-src/perl-curses perl-curses.patch perl-curses.spec
openpkg-web news.txt
Log:
add latest RSE patches
Summary:
RevisionChanges Path
1.2 +333 -8 openpkg-src/perl-curses/perl-curses.patch
1.19+2 -2 openpkg-src/perl-curses/perl-curses.spec
1.2078 +1 -0 openpkg-web/news.txt
Index: openpkg-src/perl-curses/perl-curses.patch
$ cvs diff -u -r1.1 -r1.2 perl-curses.patch
--- openpkg-src/perl-curses/perl-curses.patch 20 Nov 2002 15:52:48 - 1.1
+++ openpkg-src/perl-curses/perl-curses.patch 21 Nov 2002 20:18:30 - 1.2
@@ -1,33 +1,254 @@
+Index: CHANGES.RSE
+===
+RCS file: CHANGES.RSE
+diff -N CHANGES.RSE
+--- /dev/nullThu Nov 21 21:15:00 2002
/tmp/rse/cvsWYEhjj Thu Nov 21 21:17:26 2002
+@@ -0,0 +1,19 @@
++
++ The following changes were made by Ralf S. Engelschall [EMAIL PROTECTED]
++ to the excellent Curses::UI 0.71 by Maurice Makaay [EMAIL PROTECTED].
++
++ o Make sure that Curses::UI::Listbox draws the selected values in bold
++also under multi and radio options to be consistent in look
++feel with the standard list box.
++
++ o Add support for root-overlapping(1) (default) and
++root-overlapping(0) to optimize the redrawing by reducing to
++the old and new focused widgets. The default is still to redraw
++everything which is necessary to support overlapping windows.
++
++ o Add -reverse option to Curses::UI::TextEditor.
++
++ o Add color support.
++
++ o Fix reverse rendering for Label demo in demo-widgets.
++
Index: lib/Curses/UI.pm
===
RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI.pm,v
retrieving revision 1.1.1.1
-diff -u -d -u -d -r1.1.1.1 UI.pm
+retrieving revision 1.2
+diff -u -d -u -d -r1.1.1.1 -r1.2
--- lib/Curses/UI.pm 2002/11/20 15:00:33 1.1.1.1
-+++ lib/Curses/UI.pm 2002/11/20 15:12:54
-@@ -65,6 +65,7 @@
lib/Curses/UI.pm 2002/11/21 18:14:03 1.2
+@@ -65,6 +65,8 @@
-cursor_mode = 0, # What is the current cursor_mode?
-debug = undef, # Turn on debugging mode?
-language = undef, # Which language to use?
+-overlapping = 1, # Whether overlapping widgets are supported
++-colors= 0, # Whether colors are used
%userargs,
-@@ -118,6 +119,7 @@
+@@ -118,6 +120,8 @@
sub clear_on_exit(;$) { shift()-accessor('-clear_on_exit', shift()) }
sub cursor_mode(;$) { shift()-accessor('-cursor_mode', shift()) }
sub lang(;$) { shift()-accessor('-language_object', shift()) }
+sub overlapping(;$) { shift()-accessor('-overlapping', shift()) }
++sub colors(;$){ shift()-accessor('-colors', shift()) }
# TODO: document
sub debug(;$)
+@@ -128,6 +132,58 @@
+ }
+
+ # --
++# Color support
++# --
++
++$Curses::UI::colorpairs = 0;
++$Curses::UI::colorpair = {};
++
++sub colorpair ($$;$$)
++{
++my $this = shift;
++my ($name, $fg, $bg) = @_;
++my $colors_name2num = {
++'black' = COLOR_BLACK,
++'red' = COLOR_RED,
++'green' = COLOR_GREEN,
++'yellow' = COLOR_YELLOW,
++'blue'= COLOR_BLUE,
++'magenta' = COLOR_MAGENTA,
++'cyan'= COLOR_CYAN,
++'white' = COLOR_WHITE
++};
++
++if (not $this-{-colors}) {
++return 0;
++}
++if (not defined($fg) and not defined($bg)) {
++return ($Curses::UI::colorpair-{$name} || 0);
++}
++else {
++my $n = $Curses::UI::colorpair-{$name};
++if (not defined($n)) {
++$Curses::UI::colorpairs++;
++$n = $Curses::UI::colorpairs;
++}
++$fg = $colors_name2num-{$fg} || 'default';
++if ($fg eq 'default') {
++my ($fg_d, $bg_d) = (0, 0);
++pair_content(0, $fg_d, $bg_d);
++$fg = $fg_d;
++}
++$bg = $colors_name2num-{$bg} || 'default';