summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-05 13:20:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-05 13:20:15 +0000
commitb8687904824bcc18f07e1140125f5218d04b08e0 (patch)
tree00c2b7ff096d32b3e4c2a7cf7595d5234c207e40 /perl-install/interactive/newt.pm
parent97cbb1bf94d822d63971d30b25042d8d47c9f246 (diff)
downloaddrakx-b8687904824bcc18f07e1140125f5218d04b08e0.tar
drakx-b8687904824bcc18f07e1140125f5218d04b08e0.tar.gz
drakx-b8687904824bcc18f07e1140125f5218d04b08e0.tar.bz2
drakx-b8687904824bcc18f07e1140125f5218d04b08e0.tar.xz
drakx-b8687904824bcc18f07e1140125f5218d04b08e0.zip
- fix dialog boxes using a scrollbar
- cleanup
Diffstat (limited to 'perl-install/interactive/newt.pm')
-rw-r--r--perl-install/interactive/newt.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 0f3dd7456..43b58aa62 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -175,15 +175,14 @@ sub ask_fromW_real {
#- options of a native PostScript printer in printerdrake)
#- !! works badly together with list's (lists are one widget, so a
#- big list window will not switch to scrollbar mode) :-(
- if ((((grep { $_->{type} eq 'bool' } @$l) > 6) ||
- ((@$l) > 3)) && $total_size > $height) {
+ if (@$l > 3 && $total_size > $height) {
$grid->GridPlace(1, 1); #- Uh?? otherwise the size allocated is bad
- my $scroll = Newt::Component::VerticalScrollbar(-1, -1, $height, 9, 10);
+ my $scroll = Newt::Component::VerticalScrollbar(-1, -1, $height, 9, 10); # 9=NEWT_COLORSET_CHECKBOX, 10=NEWT_COLORSET_ACTCHECKBOX
my $subf = $scroll->Form('', 0);
$subf->FormSetHeight($height);
$subf->FormAddGrid($grid, 0);
- Newt::Grid::HCloseStacked($subf, separator(1, $height), $scroll);
+ Newt::Grid::HCloseStacked3($subf, separator(1, $height-1), $scroll);
} else {
$grid;
}