diff options
| -rw-r--r-- | perl-install/drakcluster/server_conf_drakx.pm | 12 |
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 }; |