From 5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 29 Apr 2005 15:37:08 +0000 Subject: kill unneeded hash --- perl-install/standalone/drakboot | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 35c78c01c..3db9ee1be 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -135,12 +135,7 @@ foreach (sort(all('.'))) { } push @boot_thms, $themes{default} unless member($themes{default}, @boot_thms); -my %combo = ('thms' => '', 'lilo' => ''); -foreach (keys(%combo)) { - $combo{$_} = gtkset_size_request(Gtk2::ComboBox->new_text, 10, -1); -} - -$combo{boot} = gtkset_size_request(Gtk2::ComboBox->new_with_strings(\@boot_thms, $themes{default}), 10, -1); +my $theme_combo = gtkset_size_request(Gtk2::ComboBox->new_with_strings(\@boot_thms, $themes{default}), 10, -1); my $boot_pic = gtkcreate_img($themes{def_thmb}); change_image($boot_pic, $themes{default}); @@ -150,7 +145,7 @@ my $_B_create = gtksignal_connect(Gtk2::Button->new(N("Create new theme")), clic #- ******** action to take on changing combos values -$combo{boot}->entry->signal_connect(changed => sub { change_image($boot_pic, $combo{boot}->entry->get_text) }); +$theme_combo->entry->signal_connect(changed => sub { change_image($boot_pic, $theme_combo->entry->get_text) }); my ($x_box, $splash_box); my $boot_warn = 1; @@ -175,7 +170,7 @@ gtkadd($window, 1, gtkpack(gtkset_sensitive($splash_box = Gtk2::HBox->new(0, 0), $splash_mode), gtkpack__(Gtk2::VBox->new(0, 5), N("Theme"), - $combo{boot}, + $theme_combo, #gtksignal_connect(Gtk2::CheckButton->new(N("Display theme\nunder console")), clicked => sub { invbool(\$keep_logo) }), gtksignal_connect(gtkset_active(Gtk2::CheckButton->new(N("Display theme\nunder console")), $keep_logo), clicked => sub { invbool(\$keep_logo) }) ), @@ -209,7 +204,7 @@ gtkadd($window, ok_clicked => sub { Xconfig::various::runlevel($x_mode ? 5 : 3); if ($splash_working) { - update_bootsplash($combo{boot}->entry->get_text, $splash_mode, $keep_logo); + update_bootsplash($theme_combo->entry->get_text, $splash_mode, $keep_logo); } else { updateAutologin(); } -- cgit v1.2.1