From d15bb26152a6c03279b3cace95e80ce27053d558 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 28 Mar 2001 01:27:58 +0000
Subject: corrected pixel shit if embedded

---
 perl-install/interactive_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 8b1286213..9033d08cc 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -474,7 +474,7 @@ sub ask_from_entries_refW {
 
     $pack->pack_start($advanced_pack, 1, 1, 0);
     gtkadd($mainw->{window}, $pack);
-    $mainw->{rwindow}->set_default_size(0, min(max(200, $always_total_size * 20), 350, $::windowheight * 0.7)) if $has_scroll;
+    $mainw->{rwindow}->set_default_size(0, min(max(200, $always_total_size * 20), 350, $::windowheight * 0.7)) if $has_scroll && !$::isEmbedded;
     $set_advanced->(0);
     (@widgets ? $widgets[0]{w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
 
-- 
cgit v1.2.1