From 762dee42a6cbe4a3e803d402ccadc8050897752e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 24 May 2004 13:10:24 +0000 Subject: switch from deprecated OptionMenu into new ComboBox widget --- perl-install/standalone/drakboot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/drakboot') diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index c4b548d55..3298a3d39 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -72,10 +72,10 @@ unless ($::isEmbedded) { ######### menus end } -my $user_combo = Gtk2::OptionMenu->new; +my $user_combo = Gtk2::ComboBox->new_text; $user_combo->set_popdown_strings(list_users()); $user_combo->entry->set_text($auto_mode->{autologin}) if $auto_mode->{autologin}; -my $desktop_combo = Gtk2::OptionMenu->new; +my $desktop_combo = Gtk2::ComboBox->new_text; $desktop_combo->set_popdown_strings(split(' ', `/usr/sbin/chksession -l`)); $desktop_combo->entry->set_text($auto_mode->{desktop}) if $auto_mode->{desktop}; @@ -127,7 +127,7 @@ foreach (all('.')) { } my %combo = ('thms' => '', 'lilo' => '', 'boot' => ''); foreach (keys(%combo)) { - $combo{$_} = gtkset_size_request(Gtk2::OptionMenu->new, 10, -1); + $combo{$_} = gtkset_size_request(Gtk2::ComboBox->new_text, 10, -1); } $combo{boot}->set_popdown_strings(@boot_thms); -- cgit v1.2.1