From 13c5c296ce4a5cd8066a5475dd547995762a4d83 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Mon, 9 Apr 2001 03:58:30 +0000 Subject: fixed till bug --- perl-install/bootlook.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index b777925f7..6a29c4e30 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -108,9 +108,9 @@ my $menubar = get_main_menu( $window ); ######### menus end my $global_vbox = new Gtk::VBox(); -$global_vbox->pack_start (new Gtk::Label(_("Boot style configuration")), 0, 0, 0); +#$global_vbox->pack_start (new Gtk::Label(_("Boot style configuration")), 0, 0, 0); ######## aurora part -my $a_dedans = new Gtk::VBox(0, 10); +my $a_dedans = new Gtk::VBox(0, 5); $a_dedans->border_width(5); my $a_box = new Gtk::VBox(0, 0); @@ -221,10 +221,10 @@ $a_button->set_active($a_mode); # up == false == "0" if ($a_mode) { my $a = readlink "/etc/aurora/Monitor"; $a =~ s#/lib/aurora/Monitors/##; - $a_c_button->set_active(1) && $pixmap->set($c_pixmap, $c_mask) if ($a eq "NewStyle-Categorizing-WsLib"); - $a_h_button->set_active(1) && $pixmap->set($h_pixmap, $h_mask) if ($a eq "NewStyle-WsLib"); - $a_v_button->set_active(1) && $pixmap->set($v_pixmap, $v_mask) if ($a eq "Traditional-WsLib"); - $a_g_button->set_active(1) && $pixmap->set($g_pixmap, $g_mask) if ($a eq "Traditional-Gtk+"); + if ($a eq "NewStyle-Categorizing-WsLib") {$a_c_button->set_active(1); $pixmap->set($c_pixmap, $c_mask);} + if ($a eq "NewStyle-WsLib") {$a_h_button->set_active(1); $pixmap->set($h_pixmap, $h_mask);} + if ($a eq "Traditional-WsLib") {$a_v_button->set_active(1); $pixmap->set($v_pixmap, $v_mask);} + if ($a eq "Traditional-Gtk+") {$a_g_button->set_active(1); $pixmap->set($g_pixmap, $g_mask);} } else { $pixmap->set($t_pixmap, $t_mask); } -- cgit v1.2.1