From 5c670730e8ed0c617a18e06c707b580d2a7c91ff Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 27 Mar 2001 17:41:22 +0000
Subject: try to fix displaying in draksec

---
 perl-install/interactive_gtk.pm | 16 +++++++++-------
 perl-install/my_gtk.pm          |  2 +-
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 7c238e129..8b1286213 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -13,7 +13,7 @@ use my_gtk qw(:helpers :wrappers);
 my $forgetTime = 1000; #- in milli-seconds
 
 sub new {
-    $::windowheight ||= 400 if $::isStandalone;
+    ($::windowheight, $::windowwidth) = my_gtk::gtkroot()->get_size if $::isStandalone;
     goto &interactive::new;
 }
 sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
@@ -140,13 +140,14 @@ sub create_ctree {
     my $sep = quotemeta $e->{separator};
     my $tree = Gtk::CTree->new(1, 0);
 
-    my (%wtree, %wleaves);
+    my (%wtree, %wleaves, $size);
     my $parent; $parent = sub {
 	if (my $w = $wtree{"$_[0]$e->{separator}"}) { return $w }
 	my $s;
 	foreach (split $sep, $_[0]) {
 	    $wtree{"$s$_$e->{separator}"} ||= 
 	      $tree->insert_node($s ? $parent->($s) : undef, undef, [$_], 5, (undef) x 4, 0, 0);
+	    $size++ if !$s;
 	    $s .= "$_$e->{separator}";
 	}
 	$wtree{$s};
@@ -251,7 +252,7 @@ sub create_ctree {
     $tree, sub {
 	my $v = may_apply($e->{format}, $_[0]);
 	$select->($wleaves{$v} || return);
-    };
+    }, $size;
 }
 
 sub create_list {
@@ -399,7 +400,7 @@ sub ask_from_entries_refW {
 		#- used only when needed, as key bindings are dropped by List (CList does not seems to accepts Tooltips).
 		($w, $set) = create_list(@para);
 	    } elsif ($e->{type} eq 'treelist') {
-		($w, $set) = create_ctree(@para);
+		($w, $set, $size) = create_ctree(@para);
 	    } else {
 		($w, $set) = $::isWizard ? create_boxradio(@para) : create_clist(@para);
 	    }
@@ -407,7 +408,7 @@ sub ask_from_entries_refW {
 		$has_scroll = 1;
 		$expand = 1;
 		$real_w = createScrolledWindow($w);
-		$size += @{$e->{list}};
+		$size ||= @{$e->{list}};
 	    }
 	} else {
 	    if ($e->{type} eq "combo") {
@@ -438,6 +439,7 @@ sub ask_from_entries_refW {
 	  icon_w => -e $e->{icon} ? gtkpng($e->{icon}) : '' };
     };
     @widgets_always   = map_index { $create_widget->($_, $::i      ) } @$l;
+    my $always_total_size = $total_size;
     @widgets_advanced = map_index { $create_widget->($_, $::i + @$l) } @$l2;
 
     my $set_advanced = sub {
@@ -462,7 +464,7 @@ sub ask_from_entries_refW {
 		   if_($common->{ok} || $::isWizard, 
 		       0, $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ())));
     my @adv = map { warp_text($_) } @{$common->{advanced_messages}};
-    $total_size += @adv;
+    $always_total_size += $mainw->{box_size};
     $advanced_pack = 
       gtkpack_(new Gtk::VBox(0,0),
 	       0, '',
@@ -472,7 +474,7 @@ sub ask_from_entries_refW {
 
     $pack->pack_start($advanced_pack, 1, 1, 0);
     gtkadd($mainw->{window}, $pack);
-    $mainw->{window}->set_usize(0, min($total_size >= 10 ? 350 : 200, $::windowheight - 60)) if $has_scroll;
+    $mainw->{rwindow}->set_default_size(0, min(max(200, $always_total_size * 20), 350, $::windowheight * 0.7)) if $has_scroll;
     $set_advanced->(0);
     (@widgets ? $widgets[0]{w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus();
 
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 1d24ab95a..9de8d0bb5 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -347,7 +347,7 @@ sub create_okcancel {
 sub create_box_with_title($@) {
     my $o = shift;
 
-    $o->{box_size} = map { split "\n" } @_;
+    $o->{box_size} = sum(map { round(length($_) / 60 + 0.5) } map { split "\n" } @_);
     $o->{box} = new Gtk::VBox(0,0);
     if (@_ <= 2 && $o->{box_size} > 4) {
 	my $font = $o->{box}->style->font;
-- 
cgit v1.2.1