1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
Author: David Moreno Garza <damog@debian.org>
Description: BORDER => 0 now displaying widgets
Bug: #341715
--- a/Widgets.pm
+++ b/Widgets.pm
@@ -719,6 +719,7 @@ sub draw {
my $self = shift;
my $mwh = shift;
my $active = shift;
+ my $conf = $self->{CONF};
my (@geom, $dwh, $cwh);
# Get the canvas geometry and create a window handle to it
@@ -730,7 +731,7 @@ sub draw {
$self->_caption($dwh);
# Get the content area geometry and create a window handle to it
- $cwh = $self->_canvas($dwh, $self->_cgeometry);
+ $cwh = $$conf{BORDER} ? $self->_canvas($dwh, $self->_cgeometry) : $dwh;
unless (defined $cwh) {
$dwh->delwin;
return 0;
@@ -740,8 +741,10 @@ sub draw {
$self->_cursor($cwh) if $active;
# Flush the changes to the screen and release the window handles
- $cwh->refresh;
- $cwh->delwin;
+ if ($$conf{BORDER}) {
+ $cwh->refresh;
+ $cwh->delwin;
+ }
$dwh->refresh;
$dwh->delwin;
|
