From bcdadca806b3b301a69d1ff6f69b52fe156b1bb4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 7 Jan 2000 21:11:15 +0000
Subject: *** empty log message ***

---
 perl-install/interactive_newt.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'perl-install/interactive_newt.pm')

diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 16831a8df..d16e3632f 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -20,7 +20,7 @@ sub new() {
     Newt::changeColors;
     Newt::Cls;
     Newt::SetSuspendCallback;
-    open STDERR,">/dev/null";
+    open STDERR,">/dev/null" if $::isStandalone;
     bless {}, $_[0];
 }
 
@@ -50,13 +50,16 @@ sub ask_from_listW {
     my ($title, @okcancel) = ref $title_ ? @$title_ : ($title_, _("Ok"), _("Cancel"));
 
     my $mesg = join("\n", @$messages);
+    my $len = 0; $len += length($_) foreach @$l;
 
     if (@$l == 1) {
 	Newt::WinMessage($title, @$l, $mesg);
 	$l->[0];
-    } elsif (@$l == 2) {
+#- because newt will not try to remove window if bigger than screen !
+    } elsif (@$l == 2 && $len < 64) {
 	$l->[Newt::WinChoice($title, @$l, $mesg) - 1];
-    } elsif (@$l == 3) {
+#- because newt will not try to remove window if bigger than screen !
+    } elsif (@$l == 3 && $len < 64) {
 	$l->[Newt::WinTernary($title, @$l, $mesg) - 1];
     } else {
 	my $special = !@okcancel;
@@ -177,7 +180,7 @@ sub ask_from_entries_refW {
     map { &{$updates[$_]} } 0..$#widgets;
     $form->FormDestroy;
     Newt::PopWindow;
-    $$r != $$cancel;    
+    $$r != $$cancel;
 }
 
 
-- 
cgit v1.2.1