1 files changed, 11 insertions, 1 deletions
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 };