summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-28 13:34:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-28 13:34:20 +0000
commit4fa70ada77a24c95a91dc0db291d2f82d61f0549 (patch)
tree3d9622fc7bdbcbad0379fab819980a9e5c5e541c /perl-install/interactive
parent40510f6ae00159369bb9886b6fe3ae5f19a3c615 (diff)
downloaddrakx-4fa70ada77a24c95a91dc0db291d2f82d61f0549.tar
drakx-4fa70ada77a24c95a91dc0db291d2f82d61f0549.tar.gz
drakx-4fa70ada77a24c95a91dc0db291d2f82d61f0549.tar.bz2
drakx-4fa70ada77a24c95a91dc0db291d2f82d61f0549.tar.xz
drakx-4fa70ada77a24c95a91dc0db291d2f82d61f0549.zip
cleanup use of flags
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/newt.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 58d03d251..6807b0e38 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -37,16 +37,16 @@ sub myTextbox {
my $width = $width - 9;
my @l = warp_text(join("\n", @messages), $width);
my $h = min($free_height - 13, int @l);
- my $flag = 1 << 6;
+ my $want_scroll;
if ($h < @l) {
if ($allow_scroll) {
- $flag |= 1 << 2; #- NEWT_FLAG_SCROLL
+ $want_scroll = 1;
} else {
# remove the text, no other way!
@l = @l[0 .. $h-1];
}
}
- my $mess = Newt::Component::Textbox(1, 0, my $w = max(map { length } @l) + 1, $h, $flag);
+ my $mess = Newt::Component::Textbox(1, 0, my $w = max(map { length } @l) + 1, $h, $want_scroll);
$mess->TextboxSetText(join("\n", @l));
$mess, $w + 1, $h;
}