summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakboot7
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;