From 51c11136a227a70e4e4294233f6b4df20ac6fda2 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 27 Sep 2000 18:16:17 +0000 Subject: updated --- perl-install/interactive_gtk.pm | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) (limited to 'perl-install/interactive_gtk.pm') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index c4f83efa9..f8f994f2a 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -51,28 +51,28 @@ sub ask_from_list_with_helpW { $::isWizard and my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)) || die "pixmap $! not found."; if ($::isWizard) { gtkset_usize($w->{rwindow}, 500, 400); - my $rc = "/etc/gtk/draknet.rc"; - -r $rc or $rc = common::dirname(__FILE__) . "/draknet.rc"; - Gtk::Rc->parse($rc) ; - my $style = $w->{rwindow}->style->copy(); - $style->bg_pixmap(0); - $style->bg_pixmap(1); - $style->bg_pixmap(2); - $style->bg_pixmap(3); - $style->bg_pixmap(4); - $style->bg(0, $style->white()); - $style->bg(1, $style->white()); - $style->bg(2, $style->white()); - $style->bg(3, $style->white()); - $style->bg(4, $style->white()); - $style->bg_gc(0, $style->white_gc); - $style->bg_gc(1, $style->white_gc); - $style->bg_gc(2, $style->white_gc); - $style->bg_gc(3, $style->white_gc); - $style->bg_gc(4, $style->white_gc); +# my $rc = "/etc/gtk/draknet.rc"; +# -r $rc or $rc = common::dirname(__FILE__) . "/draknet.rc"; +# Gtk::Rc->parse($rc) ; +# my $style = $w->{rwindow}->style->copy(); +# $style->bg_pixmap(0); +# $style->bg_pixmap(1); +# $style->bg_pixmap(2); +# $style->bg_pixmap(3); +# $style->bg_pixmap(4); +# $style->bg(0, $style->white()); +# $style->bg(1, $style->white()); +# $style->bg(2, $style->white()); +# $style->bg(3, $style->white()); +# $style->bg(4, $style->white()); +# $style->bg_gc(0, $style->white_gc); +# $style->bg_gc(1, $style->white_gc); +# $style->bg_gc(2, $style->white_gc); +# $style->bg_gc(3, $style->white_gc); +# $style->bg_gc(4, $style->white_gc); # $style->engine = undef; # $style->rc_style = undef; - $w->{rwindow}->set_style($style); +# $w->{rwindow}->set_style($style); } gtkadd($w->{window}, gtkpack2_(create_box_with_title($w, @$messages), -- cgit v1.2.1