summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-14 13:40:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-14 13:40:26 +0000
commite5f2882b9bf48fd02d8208e70fd5469b03fa684c (patch)
tree7fafa945d39b6c10cae57fc8588f70d8039725f0 /perl-install
parentf72893c026a266ac08c53387dddbc803013175b3 (diff)
downloaddrakx-backup-do-not-use-e5f2882b9bf48fd02d8208e70fd5469b03fa684c.tar
drakx-backup-do-not-use-e5f2882b9bf48fd02d8208e70fd5469b03fa684c.tar.gz
drakx-backup-do-not-use-e5f2882b9bf48fd02d8208e70fd5469b03fa684c.tar.bz2
drakx-backup-do-not-use-e5f2882b9bf48fd02d8208e70fd5469b03fa684c.tar.xz
drakx-backup-do-not-use-e5f2882b9bf48fd02d8208e70fd5469b03fa684c.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakboot9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 31061d368..1adc3d3d1 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -114,12 +114,15 @@ foreach (keys(%combo)) {
$combo{$_} = gtkset_size_request(Gtk2::OptionMenu->new, 10, -1);
}
-do { $combo{boot}->set_popdown_strings(@boot_thms); $combo{boot}->entry->set_text($themes{default})} if !$no_bootsplash;
+if (!$no_bootsplash) {
+ $combo{boot}->set_popdown_strings(@boot_thms);
+ $combo{boot}->entry->set_text($themes{default});
+}
my $boot_pic = gtkcreate_img($themes{def_thmb});
change_image($boot_pic, $themes{default});
-my $thm_button = new Gtk2::Button(N("Install themes"));
+my $_thm_button = new Gtk2::Button(N("Install themes"));
my $logo_thm = new Gtk2::CheckButton(N("Display theme\nunder console"));
my $B_create = new Gtk2::Button(N("Create new theme"));
my $keep_logo = 1;
@@ -133,7 +136,7 @@ $B_create->signal_connect(clicked => sub {
$no_bootsplash == 0
and $combo{boot}->entry->signal_connect(changed => sub { change_image($boot_pic, $combo{boot}->entry->get_text) });
-my ($x_box,$splash_box);
+my ($x_box, $splash_box);
gtkadd($window,
gtkpack_(new Gtk2::VBox(0,0),