From 0245b46fb7c5f578724e366db386cee8f1506593 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 13 Sep 2000 16:35:38 +0000 Subject: wizard is cool. --- perl-install/interactive_gtk.pm | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) (limited to 'perl-install/interactive_gtk.pm') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 1ca82c12e..63497f520 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -47,6 +47,28 @@ sub ask_from_list_with_helpW { $w->sync; $::isWizard and my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, $::wizard_xpm)) || die "pixmap $! not found."; $::isWizard and gtkset_usize($w->{rwindow}, 500, 400); + my $rc = "/etc/gtk/draknet.rc"; + -r $rc or $rc = 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); gtkadd($w->{window}, gtkpack2_(create_box_with_title($w, @$messages), 1, @@ -66,6 +88,7 @@ sub ask_from_list_with_helpW { $::isWizard ? (0, $w->create_okcancel()) : (), ), ); +# gtk_widget_set_style(EventBox2, style); # { # nowizard: # gtkadd($w->{window}, @@ -91,7 +114,7 @@ sub ask_from_list_with_helpW { $w->_ask_from_list($title, $messages, $l, $def); $r = $w->main; } - $r or die "ask_from_list cancel"; + $r or $::isWizard ? 0 : die "ask_from_list cancel"; } sub ask_from_treelistW { -- cgit v1.2.1