diff options
| author | Jonathan Gotti <jgotti@mandriva.com> | 2002-08-21 09:20:34 +0000 |
|---|---|---|
| committer | Jonathan Gotti <jgotti@mandriva.com> | 2002-08-21 09:20:34 +0000 |
| commit | 1e59acd542b4a6465575abe763c41a20c1731e21 (patch) | |
| tree | 2759fa2358fb519fe85117212ad06c93acb000b5 /perl-install | |
| parent | a863a436fc7313fd4b4d876540fe3d41902123a5 (diff) | |
| download | drakx-backup-do-not-use-1e59acd542b4a6465575abe763c41a20c1731e21.tar drakx-backup-do-not-use-1e59acd542b4a6465575abe763c41a20c1731e21.tar.gz drakx-backup-do-not-use-1e59acd542b4a6465575abe763c41a20c1731e21.tar.bz2 drakx-backup-do-not-use-1e59acd542b4a6465575abe763c41a20c1731e21.tar.xz drakx-backup-do-not-use-1e59acd542b4a6465575abe763c41a20c1731e21.zip | |
add link to draksplash
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootlook.pm | 8 |
1 files changed, 6 insertions, 2 deletions
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'}, |