diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakboot | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 3c15f0354..a40875ec5 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -37,6 +37,8 @@ use POSIX; use Xconfig::various; use log; +my $splash_working = 0; + my $in = 'interactive'->vnew('su'); if (!$in->isa('interactive::gtk')) { @@ -245,6 +247,7 @@ gtkadd($window, ), #Splash Selector + if_($splash_working, gtkadd(my $thm_frame = new Gtk2::Frame(N("Splash selection")), gtkpack(gtkset_border_width(new Gtk2::HBox(0, 5), 5), gtkpack__(new Gtk2::VBox(0, 5), @@ -265,7 +268,7 @@ gtkadd($window, $boot_pic, $thm_button)) ), - + ), gtkadd(new Gtk2::Frame(N("System mode")), 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 { @@ -312,7 +315,7 @@ $x_box->set_sensitive($x_mode); $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0); $window->show_all; #$no_bootsplash and $thm_frame->set_sensitive(0); -$thm_frame->hide; +$thm_frame->hide if !$splash_working; update_bootloader_label($lilogrub); gtkflush(); $w->main; |