summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-29 15:37:08 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-29 15:37:08 +0000
commit5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d (patch)
tree46f853b7c3c2478411784fdb95f9a8d5544f58a7 /perl-install/standalone
parentb94a718900c43932e7fef0eba39a562403011a49 (diff)
downloaddrakx-backup-do-not-use-5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d.tar
drakx-backup-do-not-use-5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d.tar.gz
drakx-backup-do-not-use-5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d.tar.bz2
drakx-backup-do-not-use-5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d.tar.xz
drakx-backup-do-not-use-5480bdee8e2e32ce3e98f24e8eaf7e1ec5a3a26d.zip
kill unneeded hash
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakboot13
1 files 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();
}