[CVS] OpenPKG: openpkg-src/perl-curses perl-curses.patch

[Ralf S. Engelschall]

  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:   20-Nov-2002 16:52:48
  Branch: HEAD                             Handle: 2002112015524800

  Added files:
    openpkg-src/perl-curses perl-curses.patch

  Log:
    add explicit (non-)overlapping support to Curses::UI

  Summary:
    Revision    Changes     Path
    1.1         +56 -0      openpkg-src/perl-curses/perl-curses.patch
  ____________________________________________________________________________

  Index: openpkg-src/perl-curses/perl-curses.patch
  ============================================================
  $ cvs update -p -r1.1 perl-curses.patch
  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
  --- 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 @@
           -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
   
           %userargs,
   
  @@ -118,6 +119,7 @@
   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()) }
   
   # TODO: document
   sub debug(;$)         
  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
  diff -u -d -u -d -r1.1.1.1 Widget.pm
  --- lib/Curses/UI/Widget.pm   2002/11/20 15:00:33     1.1.1.1
  +++ lib/Curses/UI/Widget.pm   2002/11/20 15:41:37
  @@ -460,7 +460,7 @@
       my $parent = $this->parent;
       $parent->focus($this) if defined $parent;
   
  -    $this->draw(1);
  +    $this->draw(1) if ($this->root->overlapping);
       return $this;
   }
   
  @@ -943,6 +943,8 @@
       my $show_cursor = $this->{-nocursor} ? 0 : 1;
       $this->root->cursor_mode($show_cursor);
   
  +    $this->draw(1) if (not $this->root->overlapping);
  +
       return $this;
   }
   
  @@ -951,6 +953,7 @@
       my $this = shift;
       $this->{-focus} = 0;
       $this->run_event('-onblur');
  +    $this->draw(1) if (not $this->root->overlapping);
       return $this;
   }
   
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     [EMAIL PROTECTED]