From 7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Jun 2003 13:14:57 +0000
Subject: force the size of the dialog box

---
 perl-install/drakcluster/server_conf_drakx.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/perl-install/drakcluster/server_conf_drakx.pm b/perl-install/drakcluster/server_conf_drakx.pm
index c2d6a7acc..9a691ac1b 100644
--- a/perl-install/drakcluster/server_conf_drakx.pm
+++ b/perl-install/drakcluster/server_conf_drakx.pm
@@ -25,6 +25,15 @@ sub default_conf {
     };
 }
 
+my $force_size;
+sub my_gtk::show {
+    my ($o) = @_;
+    $o->{rwindow}->set_usize($::windowwidth * 0.9, $::windowheight * 0.9) if $force_size;
+    $force_size = 0;
+    $o->{window}->show;
+    $o->{rwindow}->show;
+}
+
 sub main {
     my ($o) = @_;
     my @network_interfaces = detect_devices::getNet();
@@ -33,7 +42,8 @@ sub main {
     $conf->{DNSKEY} ||= generate_rndc();
 
     my @fields = drakcluster::server_conf::fields($conf, \@network_interfaces, default_conf($o));
-
+    
+    $force_size = 1;
     $o->ask_from('', N("Server Configuration"),
 		  [ @fields ], complete => sub {
 		      my $i = eval { find_index { !drakcluster::server_conf::check_field($o, $_) } @fields };
-- 
cgit v1.2.1