From 4d898a1f81c5f69fb2637273b3089a954be6d22d Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 6 Feb 2002 13:57:00 +0000 Subject: removed ugly pink and ugly left bar for wizard mode --- perl-install/my_gtk.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 1f3f6b80e..f1026f575 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -42,9 +42,9 @@ sub new { $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab}; if ($::isWizard && !$my_gtk::pop_it) { - my $rc = "/etc/gtk/wizard.rc"; - -r $rc or $rc = dirname(__FILE__) . "/wizard.rc"; - Gtk::Rc->parse($rc); + #- my $rc = "/etc/gtk/wizard.rc"; + #- -r $rc or $rc = dirname(__FILE__) . "/wizard.rc"; + #- Gtk::Rc->parse($rc); $o->{window} = new Gtk::VBox(0,0); $o->{window}->set_border_width($::Wizard_splash ? 0 : 10); $o->{rwindow} = $o->{window}; @@ -86,12 +86,12 @@ sub new { } }); $::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0); - $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0); + #- $::WizardTable->attach($draw2, 0, 1, 1, 2, 'fill', 'fill', 0, 0); $::WizardTable->set_usize(540,400); $::WizardWindow->show_all; flush(); } - $::WizardTable->attach($o->{window}, 1, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0); + $::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0); } $::isEmbedded && !$my_gtk::pop_it or return $o; -- cgit v1.2.1