summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--docs/HACKING1
-rw-r--r--perl-install/install_steps_gtk.pm16
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;