upgrading package: perl-curses 20030123 -> 20030328

perl-curses/perl-curses.patch

@@ -2,12 +2,12 @@ Index: CHANGES.RSE
 ===================================================================
 RCS file: CHANGES.RSE
 diff -N CHANGES.RSE
---- /dev/null	Thu Nov 21 21:45:01 2002
-+++ CHANGES.RSE	Thu Nov 21 21:45:22 2002
+--- /dev/null	1 Jan 1970 00:00:00 -0000
++++ CHANGES.RSE	28 Mar 2003 08:24:58 -0000	1.5
 @@ -0,0 +1,19 @@
 +
 +  The following changes were made by Ralf S. Engelschall <rse@engelschall.com>
-+  to the excellent Curses::UI 0.71 by Maurice Makaay <maurice@gitaar.net>.
++  to the excellent Curses::UI 0.72 by Maurice Makaay <maurice@gitaar.net>.
 +
 +  o Make sure that Curses::UI::Listbox draws the selected values in bold
 +    also under "multi" and "radio" options to be consistent in look &
@@ -26,22 +26,22 @@ diff -N CHANGES.RSE
 +
 Index: lib/Curses/UI.pm
 ===================================================================
-RCS file: lib/Curses/UI.pm,v
-retrieving revision 1.1.1.1
-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 20:44:25	1.3
-@@ -65,6 +65,8 @@
-         -cursor_mode   => 0,     # What is the current cursor_mode?
+RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI.pm,v
+retrieving revision 1.1.1.2
+retrieving revision 1.4
+diff -u -d -u -d -r1.1.1.2 -r1.4
+--- lib/Curses/UI.pm	28 Mar 2003 08:22:34 -0000	1.1.1.2
++++ lib/Curses/UI.pm	28 Mar 2003 08:24:58 -0000	1.4
+@@ -67,6 +67,8 @@
  	-debug         => undef, # Turn on debugging mode?
  	-language      => undef, # Which language to use?
+ 	-mouse_support => 1,     # Do we want mouse support
 +        -overlapping   => 1,     # Whether overlapping widgets are supported
 +        -colors        => 0,     # Whether colors are used
  
          %userargs,
  
-@@ -118,6 +120,8 @@
+@@ -123,6 +125,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()) }
@@ -50,7 +50,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.3
  
  # TODO: document
  sub debug(;$)         
-@@ -128,6 +132,61 @@
+@@ -133,6 +137,61 @@
  }
  
  # ----------------------------------------------------------------------
@@ -112,7 +112,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.3
  # Window resizing support
  # ----------------------------------------------------------------------
  
-@@ -143,6 +202,23 @@
+@@ -148,6 +207,23 @@
      initscr();
      noecho();
      raw();
@@ -139,12 +139,12 @@ diff -u -d -u -d -r1.1.1.1 -r1.3
 Index: lib/Curses/UI/Label.pm
 ===================================================================
 RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI/Label.pm,v
-retrieving revision 1.1.1.1
-retrieving revision 1.2
-diff -u -d -u -d -r1.1.1.1 -r1.2
---- lib/Curses/UI/Label.pm	2002/11/20 15:00:33	1.1.1.1
-+++ lib/Curses/UI/Label.pm	2002/11/21 18:14:03	1.2
-@@ -50,6 +50,7 @@
+retrieving revision 1.1.1.2
+retrieving revision 1.3
+diff -u -d -u -d -r1.1.1.2 -r1.3
+--- lib/Curses/UI/Label.pm	28 Mar 2003 08:22:35 -0000	1.1.1.2
++++ lib/Curses/UI/Label.pm	28 Mar 2003 08:24:58 -0000	1.3
+@@ -51,6 +51,7 @@
          -dim             => 0,
          -blink           => 0,
          -paddingspaces   => 0,        # Pad text with spaces?
@@ -152,7 +152,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          
          %userargs,
          
-@@ -103,6 +104,7 @@
+@@ -104,6 +105,7 @@
  sub underline ($;$) { shift()->set_attribute('-underline', shift()) }
  sub dim ($;$)       { shift()->set_attribute('-dim', shift())       }
  sub blink ($;$)     { shift()->set_attribute('-blink', shift())     }
@@ -160,7 +160,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
  
  sub set_attribute($$;)
  {
-@@ -182,6 +184,7 @@
+@@ -183,6 +185,7 @@
      $this->{-canvasscr}->attron(A_UNDERLINE) if $this->{-underline};
      $this->{-canvasscr}->attron(A_BLINK)     if $this->{-blink};
      $this->{-canvasscr}->attron(A_DIM)       if $this->{-dim};
@@ -171,12 +171,12 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
 Index: lib/Curses/UI/Listbox.pm
 ===================================================================
 RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI/Listbox.pm,v
-retrieving revision 1.1.1.1
-retrieving revision 1.2
-diff -u -d -u -d -r1.1.1.1 -r1.2
---- lib/Curses/UI/Listbox.pm	2002/11/20 15:00:33	1.1.1.1
-+++ lib/Curses/UI/Listbox.pm	2002/11/21 18:14:03	1.2
-@@ -289,10 +289,12 @@
+retrieving revision 1.1.1.2
+retrieving revision 1.3
+diff -u -d -u -d -r1.1.1.2 -r1.3
+--- lib/Curses/UI/Listbox.pm	28 Mar 2003 08:22:35 -0000	1.1.1.2
++++ lib/Curses/UI/Listbox.pm	28 Mar 2003 08:24:58 -0000	1.3
+@@ -306,10 +306,12 @@
              }
  
              # Show selected element bold. 
@@ -196,12 +196,12 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
 Index: lib/Curses/UI/TextEditor.pm
 ===================================================================
 RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI/TextEditor.pm,v
-retrieving revision 1.1.1.1
-retrieving revision 1.2
-diff -u -d -u -d -r1.1.1.1 -r1.2
---- lib/Curses/UI/TextEditor.pm	2002/11/20 15:00:34	1.1.1.1
-+++ lib/Curses/UI/TextEditor.pm	2002/11/21 20:13:17	1.2
-@@ -150,6 +150,7 @@
+retrieving revision 1.1.1.2
+retrieving revision 1.3
+diff -u -d -u -d -r1.1.1.2 -r1.3
+--- lib/Curses/UI/TextEditor.pm	28 Mar 2003 08:22:36 -0000	1.1.1.2
++++ lib/Curses/UI/TextEditor.pm	28 Mar 2003 08:24:58 -0000	1.3
+@@ -151,6 +151,7 @@
          -vscrollbar      => 0,           # show vertical scrollbar
          -hscrollbar      => 0,           # show horizontal scrollbar
          -readonly        => 0,           # only used as viewer?
@@ -209,7 +209,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
  
          # Single line options
          -password        => undef,       # masquerade chars with given char
-@@ -450,9 +451,10 @@
+@@ -451,9 +452,10 @@
  
      # Turn on underlines and fill the screen with lines
      # if neccessary.
@@ -222,7 +222,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          for my $y (0..$this->canvasheight-1) {
              $this->{-canvasscr}->addstr($y, 0, " "x($this->canvaswidth));
          }
-@@ -463,9 +465,11 @@
+@@ -464,9 +466,11 @@
      {    
          if (defined $this->{-search_highlight} 
              and $this->{-search_highlight} == ($id+$this->{-yscrpos})) {
@@ -236,7 +236,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          }
  
          my $l = $this->{-scr_lines}->[$id + $this->{-yscrpos}];
-@@ -559,6 +563,7 @@
+@@ -560,6 +564,7 @@
      }
      
      $this->{-canvasscr}->attroff(A_UNDERLINE) if $this->{-showlines};
@@ -247,12 +247,12 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
 Index: lib/Curses/UI/Widget.pm
 ===================================================================
 RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI/Widget.pm,v
-retrieving revision 1.1.1.1
-retrieving revision 1.2
-diff -u -d -u -d -r1.1.1.1 -r1.2
---- lib/Curses/UI/Widget.pm	2002/11/20 15:00:33	1.1.1.1
-+++ lib/Curses/UI/Widget.pm	2002/11/21 18:14:03	1.2
-@@ -460,7 +460,7 @@
+retrieving revision 1.1.1.2
+retrieving revision 1.3
+diff -u -d -u -d -r1.1.1.2 -r1.3
+--- lib/Curses/UI/Widget.pm	28 Mar 2003 08:22:35 -0000	1.1.1.2
++++ lib/Curses/UI/Widget.pm	28 Mar 2003 08:24:58 -0000	1.3
+@@ -461,7 +461,7 @@
      my $parent = $this->parent;
      $parent->focus($this) if defined $parent;
  
@@ -261,7 +261,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
      return $this;
  }
  
-@@ -511,6 +511,7 @@
+@@ -513,6 +513,7 @@
          if ($this->{-sbborder})  # Square bracket ([,]) border
          {
          $this->{-borderscr}->attron(A_BOLD) if $this->{-focus};
@@ -269,7 +269,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          my $offset = 1;
          $offset++ if $this->{-vscrollbar};
          for my $y (0 .. $this->{-sh}-1)
-@@ -520,10 +521,12 @@
+@@ -522,10 +523,12 @@
              $this->{-borderscr}->addstr($rel_y, $this->{-bw}-$offset, ']');
          }
          $this->{-borderscr}->attroff(A_BOLD) if $this->{-focus};
@@ -282,7 +282,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          if ($this->root->compat) {
              $this->{-borderscr}->border(
                  '|','|','-','-',
-@@ -533,6 +536,7 @@
+@@ -535,6 +538,7 @@
              $this->{-borderscr}->box(ACS_VLINE, ACS_HLINE);
          }
          $this->{-borderscr}->attroff(A_BOLD) if $this->{-focus};
@@ -290,7 +290,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          
          # Draw a title if needed.
          if (defined $this->{-title})
-@@ -612,6 +616,7 @@
+@@ -614,6 +618,7 @@
          # Draw the base of the scrollbar, in case
          # there is no border.
          $this->{-borderscr}->attron(A_BOLD) if $this->{-focus};
@@ -298,7 +298,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          $this->{-borderscr}->move($ypos_min, $xpos);
          $this->{-borderscr}->vline(ACS_VLINE,$scrlen);
          if ($this->root->compat) {
-@@ -620,6 +625,7 @@
+@@ -622,6 +627,7 @@
              $this->{-borderscr}->vline(ACS_VLINE,$scrlen);
          }
          $this->{-borderscr}->attroff(A_BOLD) if $this->{-focus};
@@ -306,7 +306,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
  
          # Should an active region be drawn?
          my $scroll_active = ($this->{-vscrolllen} > $scrlen);
-@@ -677,6 +683,7 @@
+@@ -679,6 +685,7 @@
          # Draw the base of the scrollbar, in case
          # there is no border.
          $this->{-borderscr}->attron(A_BOLD) if $this->{-focus};
@@ -314,7 +314,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
          $this->{-borderscr}->move($ypos, $xpos_min);
          if ($this->root->compat) {
              $this->{-borderscr}->hline('-',$scrlen);
-@@ -684,6 +691,7 @@
+@@ -686,6 +693,7 @@
              $this->{-borderscr}->hline(ACS_HLINE,$scrlen);
          }
          $this->{-borderscr}->attroff(A_BOLD) if $this->{-focus};
@@ -322,7 +322,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
  
          # Should an active region be drawn?
          my $scroll_active = ($this->{-hscrolllen} > $scrlen);
-@@ -943,6 +951,8 @@
+@@ -945,6 +953,8 @@
      my $show_cursor = $this->{-nocursor} ? 0 : 1;
      $this->root->cursor_mode($show_cursor);
  
@@ -331,7 +331,7 @@ diff -u -d -u -d -r1.1.1.1 -r1.2
      return $this;
  }
  
-@@ -951,6 +961,7 @@
+@@ -953,6 +963,7 @@
      my $this = shift;
      $this->{-focus} = 0;
      $this->run_event('-onblur');
@@ -345,8 +345,8 @@ RCS file: /u/rse/wrk/cui/cvs/cui/examples/demo-widgets,v
 retrieving revision 1.1.1.1
 retrieving revision 1.4
 diff -u -d -u -d -r1.1.1.1 -r1.4
---- examples/demo-widgets	2002/11/20 15:00:36	1.1.1.1
-+++ examples/demo-widgets	2002/11/21 20:14:59	1.4
+--- examples/demo-widgets	20 Nov 2002 15:00:36 -0000	1.1.1.1
++++ examples/demo-widgets	21 Nov 2002 20:14:59 -0000	1.4
 @@ -1,5 +1,10 @@
 -#!/usr/bin/perl -w
 +#!/usr/lpkg/bin/perl -w

perl-curses/perl-curses.spec

@@ -25,7 +25,7 @@
 
 #   versions of individual parts
 %define       V_curses          1.06
-%define       V_curses_ui       0.71
+%define       V_curses_ui       0.72
 %define       V_curses_ui_dtv   0.10
 %define       V_curses_widgets  1.997
 %define       V_curses_forms    1.997
@@ -40,8 +40,8 @@ Packager:     The OpenPKG Project
 Distribution: OpenPKG [BASE]
 Group:        Language
 License:      GPL/Artistic
-Version:      20030123
-Release:      20030123
+Version:      20030328
+Release:      20030328
 
 #   list of sources
 Source0:      http://www.cpan.org/modules/by-module/Curses/Curses-%{V_curses}.tar.gz