summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-11 15:18:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-11 15:18:24 +0000
commit826de39ec3543b3c856664c13a36c203ae449ec6 (patch)
tree496009d113fe29a4a090d2739f4fb4c713ff3f2e /perl-install/standalone
parentcd3eb916d1fd7b516d3a4a65cbde6b66913dfae1 (diff)
downloaddrakx-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-xperl-install/standalone/drakboot14
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();