diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-03 15:21:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-03 15:21:06 +0000 |
| commit | 52a61e154da62d4c79280634f9daf86685e4e11e (patch) | |
| tree | f8397419004639a0e92c43cd52eb00c757e70461 /perl-install | |
| parent | f9a9defb126cbb053e3a777e56bde98f1d3441d5 (diff) | |
| download | drakx-backup-do-not-use-52a61e154da62d4c79280634f9daf86685e4e11e.tar drakx-backup-do-not-use-52a61e154da62d4c79280634f9daf86685e4e11e.tar.gz drakx-backup-do-not-use-52a61e154da62d4c79280634f9daf86685e4e11e.tar.bz2 drakx-backup-do-not-use-52a61e154da62d4c79280634f9daf86685e4e11e.tar.xz drakx-backup-do-not-use-52a61e154da62d4c79280634f9daf86685e4e11e.zip | |
- fix #2091 and #2480 (settings restoration
- make dialogs be modal
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakboot | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 1eeb19f3c..c556f62d1 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -54,6 +54,8 @@ my $lilogrub = chomp_(`detectloader -q`); my $w = ugtk2->new(); my $window = $w->{window}; +$::main_window = $w->{rwindow} if !$::isEmbedded; + $window->signal_connect(delete_event => sub { utk2->exit(0) }); unless ($::isEmbedded) { $w->{rwindow}->set_title(N("Boot Style Configuration")); @@ -302,9 +304,13 @@ Click on Configure to launch the setup wizard.", $lilogrub), ) ); -$auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[0]->get_active()) }); -$auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[1]->get_active()) }); +$auto_buttons[0]->signal_connect('toggled' => sub { print "TOG\n"; $auto_box->set_sensitive($auto_buttons[0]->get_active()) }); +$auto_buttons[1]->signal_connect('toggled' => sub { print "TOG\n"; $auto_box->set_sensitive(!$auto_buttons[1]->get_active()) }); +$auto_buttons[0]->set_active(1) if $auto_mode->{autologin}; +$auto_buttons[1]->set_active(1) if !$auto_mode->{autologin}; +$x_box->set_sensitive($x_mode); +$auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0); $window->show_all(); $no_bootsplash and $thm_frame->hide(); gtkflush(); @@ -349,6 +355,6 @@ sub updateAutologin { $in->do_pkgs->install('autologin') if $x_mode; any::set_autologin($usern, $deskt); } else { - any::set_autologin(undef) if $auto_buttons[0]->get_active(); + any::set_autologin(); } } |