From a3156c9f8c3d16c43419dc7a217c8e932259c475 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 13 Aug 2004 12:47:41 +0000
Subject: (drakboot --splash) add enable_framebuffer to allow to choose a video
 mode if boot isn't graphical

---
 perl-install/standalone/drakboot | 40 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakboot')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 0b0fb92e3..9ed379cdd 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -154,7 +154,7 @@ gtkadd($window,
 						       if ($in->ask_yesorno(N("Warning"), 
 						   [ N("Your system bootloader is not in framebuffer mode. To activate graphical boot, select a graphic video mode from the bootloader configuration tool.") . "\n" .
                                                      N("Do you want to configure it now ?") ])) {
-                                                           lilo_choice();
+                                                           enable_framebuffer();
                                                            #- it would be nice to get available themes for new cur_res here
                                                            $splash_mode = 1
                                                        };
@@ -294,3 +294,41 @@ sub change_image {
     $boot_pixbuf = $boot_pixbuf->scale_simple(300, 200, 'nearest');
     $boot_pic->set_from_pixbuf($boot_pixbuf);
 }
+
+sub enable_framebuffer() {
+    my $vga = Xconfig::resolution_and_depth::from_bios($bootloader->{default_vga});
+    my ($current_entry) = cat_('/proc/cmdline') =~ /^BOOT_IMAGE=(\S+)/;
+    my %entries = (
+                   $current_entry => 1
+                  );
+    local $::isWizard = 1;
+    local $::Wizard_no_previous = 1;
+    local $::Wizard_finished = 1;
+    $::Wizard_title = N("Boot Style Configuration");
+    eval {
+        $in->ask_from(N("Video mode"),
+                      N("Please choose a video mode, it will be applied to each of the boot entries selected below.
+Be sure your video card supports the mode you choose."),
+                      [
+                       { label => N("Video mode"), val => \$vga,
+                         list => [ '', Xconfig::resolution_and_depth::bios_vga_modes() ],
+                         format => \&Xconfig::resolution_and_depth::to_string
+                       },
+                       map {
+                           { text => $_->{label}, val => \$entries{$_->{label}}, type => 'bool' }
+                       } grep { $_->{label} !~ /failsafe|floppy|memtest/ } @{$bootloader->{entries}}
+                      ]);
+        if ($vga) {
+            $vga = $vga->{bios} if ref($vga);
+            while (my ($label, $e) = each %entries) {
+                $e or next;
+                my $entry = find { $_->{label} eq $label } @{$bootloader->{entries}};
+                $entry->{vga} = $vga;
+            }
+            bootloader::install($bootloader, $all_hds);
+        }
+    };
+    die if $@ && $@ !~ /^wizcancel/;
+    $::WizardWindow->destroy;
+    return $vga;
+}
-- 
cgit v1.2.1