diff options
| -rw-r--r-- | docs/HACKING | 1 | ||||
| -rw-r--r-- | 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; |