From 1e59acd542b4a6465575abe763c41a20c1731e21 Mon Sep 17 00:00:00 2001
From: Jonathan Gotti <jgotti@mandriva.com>
Date: Wed, 21 Aug 2002 09:20:34 +0000
Subject: add link to draksplash

---
 perl-install/bootlook.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index de6262683..f5ad0cddc 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -142,10 +142,13 @@ my $lilo_pic = new Gtk::Pixmap(gtkcreate_png($themes{'def_thmb'}));
 my $boot_pic = new Gtk::Pixmap(gtkcreate_png($themes{'def_thmb'}));
 my $thm_button = new Gtk::Button(_("Install themes"));
 my $logo_thm = new Gtk::CheckButton(_("Display theme under console"));
+my $B_create = new Gtk::Button(_("Create new theme"));
 my $keep_logo = 1;
 $logo_thm->set_active(1);
 $logo_thm->signal_connect(clicked => sub { invbool(\$keep_logo) });
-
+$B_create->signal_connect(clicked => sub{
+    $::isEmbedded ? (kill('USR1', $::CCPID) and system('/usr/sbin/draksplash ')) : system('/usr/sbin/draksplash ') ;
+    });
 #- ******** action to take on changing combos values
 
 $combo{'thms'}->entry->signal_connect(changed => sub {
@@ -274,7 +277,8 @@ Click on Configure to launch the setup wizard.", $lilogrub),
                                  gtkpack__(new Gtk::VBox(0,5),
                                            _("Lilo screen"),
                                            $combo{'lilo'},
-                                           $lilo_pic),
+                                           $lilo_pic,
+					   $B_create),
                                  gtkpack__(new Gtk::VBox(0,5),
                                            _("Bootsplash"),
                                            $combo{'boot'},
-- 
cgit v1.2.1