diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-06-13 13:14:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-06-13 13:14:57 +0000 |
| commit | 7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9 (patch) | |
| tree | 41e3b6f8456d56bf88e2276d1df3c0b87a3cc54e | |
| parent | b2bb4037b5eeedcd2f0300db4b0e0495879f03fa (diff) | |
| download | drakx-7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9.tar drakx-7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9.tar.gz drakx-7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9.tar.bz2 drakx-7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9.tar.xz drakx-7c0a10d4f9c7fffdeeedee1e9e8a7714fa9dfda9.zip | |
force the size of the dialog box
| -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 }; |