From 4fa70ada77a24c95a91dc0db291d2f82d61f0549 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 28 Jan 2003 13:34:20 +0000
Subject: cleanup use of flags

---
 perl-install/interactive/newt.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/interactive')

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;
 }
-- 
cgit v1.2.1