summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakboot111
1 files changed, 56 insertions, 55 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 3ac6a9b6f..31061d368 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -137,63 +137,64 @@ my ($x_box,$splash_box);
gtkadd($window,
gtkpack_(new Gtk2::VBox(0,0),
- #Splash Selector
- ($splash_working ?
- (0, gtkpack(gtkset_border_width(new Gtk2::VBox(0, 5), 5),
- gtksignal_connect(gtkset_active(new Gtk2::CheckButton(N("Use graphical boot")), $splash_mode),
- clicked => sub {
- $splash_box->set_sensitive(!$splash_mode);
- $splash_mode = !$splash_mode;
- }),
- gtkpack__(gtkset_sensitive($splash_box = Gtk2::HBox->new(0, 0), $splash_mode),
- gtkpack__(new Gtk2::VBox(0, 5),
- N("\nTheme"),
- $combo{boot},
- $logo_thm),
- Gtk2::VSeparator->new,
- gtkpack__(new Gtk2::VBox(0, 5),
- $boot_pic))
- ),
- ),
- :
- (0, gtkpack__(new Gtk2::VBox(0, 5),
- gtksignal_connect(gtkset_active(new Gtk2::CheckButton(N("Launch the graphical environment when your system starts")), $x_mode), clicked => sub {
- $x_box->set_sensitive(!$x_mode);
- $x_mode = !$x_mode;
- }),
- 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")),
- ),
- gtkpack__(
- my $auto_box = Gtk2::HBox->new,
- gtkpack(
- Gtk2::VBox->new,
- Gtk2::Label->new(N("Default user")),
- Gtk2::Label->new(N("Default desktop")),
- ),
- gtkpack(
- Gtk2::VBox->new,
- $user_combo,
- $desktop_combo
- ),
- )
- )
- )
- ),
- 1, Gtk2::VBox->new,
- 0, create_okcancel({
- cancel_clicked => sub { ugtk2->exit(0) },
- ok_clicked => sub {
- Xconfig::various::runlevel($x_mode ? 5 : 3);
- updateAutologin();
- $no_bootsplash or update_bootsplash($combo{boot}->entry->get_text, $keep_logo);
- ugtk2->exit(0);
- }
- },
+ ($splash_working ?
+ (1, gtkpack(gtkset_border_width(new Gtk2::VBox(0, 5), 5),
+ gtksignal_connect(gtkset_active(new Gtk2::CheckButton(N("Use graphical boot")), $splash_mode),
+ clicked => sub {
+ $splash_box->set_sensitive(!$splash_mode);
+ $splash_mode = !$splash_mode;
+ }),
+ gtkpack__(gtkset_sensitive($splash_box = Gtk2::HBox->new(0, 0), $splash_mode),
+ gtkpack__(new Gtk2::VBox(0, 5),
+ N("\nTheme"),
+ $combo{boot},
+ $logo_thm),
+ Gtk2::VSeparator->new,
+ gtkpack__(new Gtk2::VBox(0, 5),
+ $boot_pic))
+ ),
+ )
+ :
+ (1, gtkpack__(new Gtk2::VBox(0, 5),
+ gtksignal_connect(gtkset_active(Gtk2::CheckButton->new(N("Launch the graphical environment when your system starts")),
+ $x_mode),
+ clicked => sub {
+ $x_box->set_sensitive(!$x_mode);
+ $x_mode = !$x_mode;
+ }),
+ 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")),
+ ),
+ gtkpack__(
+ my $auto_box = Gtk2::HBox->new,
+ gtkpack(
+ Gtk2::VBox->new,
+ Gtk2::Label->new(N("Default user")),
+ Gtk2::Label->new(N("Default desktop")),
+ ),
+ gtkpack(
+ Gtk2::VBox->new,
+ $user_combo,
+ $desktop_combo
+ ),
+ )
+ )
+ )
+ ),
+ 0, create_okcancel({
+ cancel_clicked => sub { ugtk2->exit(0) },
+ ok_clicked => sub {
+ Xconfig::various::runlevel($x_mode ? 5 : 3);
+ updateAutologin();
+ $no_bootsplash or update_bootsplash($combo{boot}->entry->get_text, $keep_logo);
+ ugtk2->exit(0);
+ }
+ },
),
- )
+ )
)
);