diff options
| author | damien <damien@mandriva.com> | 2000-07-26 22:59:40 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-07-26 22:59:40 +0000 |
| commit | d297fd0dbc378b35a7f085fa2f92097f3dfdaed6 (patch) | |
| tree | 29a3c05f05792afb82d112106e4eabb28492d549 /perl-install/install_steps_gtk.pm | |
| parent | ee5f111fdf2af0f7d565f18d558e1bc60d9664b6 (diff) | |
| download | drakx-d297fd0dbc378b35a7f085fa2f92097f3dfdaed6.tar drakx-d297fd0dbc378b35a7f085fa2f92097f3dfdaed6.tar.gz drakx-d297fd0dbc378b35a7f085fa2f92097f3dfdaed6.tar.bz2 drakx-d297fd0dbc378b35a7f085fa2f92097f3dfdaed6.tar.xz drakx-d297fd0dbc378b35a7f085fa2f92097f3dfdaed6.zip | |
new icons. see Changelog
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 16 |
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; |