diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-14 13:40:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-14 13:40:26 +0000 |
| commit | e5f2882b9bf48fd02d8208e70fd5469b03fa684c (patch) | |
| tree | 7fafa945d39b6c10cae57fc8588f70d8039725f0 /perl-install | |
| parent | f72893c026a266ac08c53387dddbc803013175b3 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakboot | 9 |
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), |