summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm16
1 files changed, 11 insertions, 5 deletions
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;