From d297fd0dbc378b35a7f085fa2f92097f3dfdaed6 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 26 Jul 2000 22:59:40 +0000
Subject: new icons. see Changelog

---
 docs/HACKING                      |  1 +
 perl-install/install_steps_gtk.pm | 16 +++++++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/docs/HACKING b/docs/HACKING
index 84a5bae11..c33dcaf4d 100644
--- a/docs/HACKING
+++ b/docs/HACKING
@@ -61,6 +61,7 @@ Here is how I made it work on my computer.
 - mkdir /usr/share/gtk
 - ln -s path/to/gi/perl-install/share/themes /usr/share/gtk
 - ln -s path/to/gi/perl-install/share/step-* /usr/share
+- ln -s path/to/gi/perl-install/share/help.xpm /usr/share
 - have a cd architecture linked on /export
 - ln -s /export /tmp/rhimage
 - export PERL_INSTALL_TEST=1
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 547cb8997..08520db98 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -758,6 +758,10 @@ sub create_steps_window {
 
     my @steps_icons = map { [ gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/step-$_.xpm") ] } qw(green orange red);
 
+    my $style = Gtk::Widget->get_default_style->copy;
+    print $style->fg('normal');
+    print $style->white;
+
     gtkadd($w->{window},
 	   gtkpack_(new Gtk::VBox(0,0),
 		    (map {; 1, $_ } map {
@@ -769,15 +773,17 @@ sub create_steps_window {
 			gtkpack_(my $b = new Gtk::HBox(0,5), 0, $pixmap, 0, $w);
 
 #(dam's) BUGGY : pixmaps cannot be signaled directly (well I think)
-			$pixmap->set_events('enter_notify_mask');
-			$pixmap->signal_connect(enter_notify_event => sub {   print "HERE\n" });
-#			
+			$pixmap->set_events('visibility-notify-mask');#'enter-notify-mask');
+			$pixmap->signal_connect(visibility_notify_event => sub {   print "HERE\n" });
+#
+#			$pixmap->set_events('clicked');
+#			$pixmap->signal_connect(clicked => sub { print "CLICKED\n" });
 			if ($step->{reachable}) {
 			  my $button = new Gtk::Button;
 			  $button->set_relief('none');
 			  gtksignal_connect(gtkadd($button, $b), clicked => sub { die "setstep $step_name\n" });
-			  $button->set_events('enter_notify_mask');
-			  $button->signal_connect(enter_notify_event => sub { print "HERE\n"; });
+#			  $button->set_events('enter_notify_mask');
+#			  $button->signal_connect(enter_notify_event => sub { print "HERE\n" });
 			  $b=$button;
 			}
 			$b;
-- 
cgit v1.2.1