You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.8 KiB
56 lines
1.8 KiB
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; |
|
} |
|
|
|
|