diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-11 15:18:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-11 15:18:24 +0000 |
| commit | 826de39ec3543b3c856664c13a36c203ae449ec6 (patch) | |
| tree | 496009d113fe29a4a090d2739f4fb4c713ff3f2e /perl-install/standalone | |
| parent | cd3eb916d1fd7b516d3a4a65cbde6b66913dfae1 (diff) | |
| download | drakx-826de39ec3543b3c856664c13a36c203ae449ec6.tar drakx-826de39ec3543b3c856664c13a36c203ae449ec6.tar.gz drakx-826de39ec3543b3c856664c13a36c203ae449ec6.tar.bz2 drakx-826de39ec3543b3c856664c13a36c203ae449ec6.tar.xz drakx-826de39ec3543b3c856664c13a36c203ae449ec6.zip | |
list yes/no for autologin in a more intuitive way, that is yes is
grouped with user and wm pull down menus (robert.vojta@qcm.cz, anthill #390)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakboot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 7b26e0f1c..e6899868a 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -163,8 +163,8 @@ gtkadd($window, }), gtkpack__(gtkset_sensitive($x_box = Gtk2::VBox->new(0, 0), $x_mode), gtkpack__(Gtk2::VBox->new(0, 0), - my @auto_buttons = gtkradio((N("Yes, I want autologin with this (user, desktop)")) x 2, - N("No, I don't want autologin")), + my @auto_buttons = gtkradio((N("No, I don't want autologin")) x 2, + N("Yes, I want autologin with this (user, desktop)")), ), gtkpack__( my $auto_box = Gtk2::HBox->new, @@ -198,10 +198,10 @@ gtkadd($window, ); if (!$splash_working) { - $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]->set_active(1) if $auto_mode->{autologin}; - $auto_buttons[1]->set_active(1) if !$auto_mode->{autologin}; + $auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[1]->get_active) }); + $auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[0]->get_active) }); + $auto_buttons[1]->set_active(1) if $auto_mode->{autologin}; + $auto_buttons[0]->set_active(1) if !$auto_mode->{autologin}; $x_box->set_sensitive($x_mode); $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0); } @@ -249,7 +249,7 @@ sub lilo_choice() { sub updateAutologin() { my ($usern, $deskt) = ($user_combo->entry->get_text, $desktop_combo->entry->get_text); $::testing and return; - if ($auto_buttons[0]->get_active) { + if ($auto_buttons[1]->get_active) { any::set_autologin($usern, $deskt); } else { any::set_autologin(); |