summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-07-25 17:19:03 +0000
committerdamien <damien@mandriva.com>2000-07-25 17:19:03 +0000
commit551e4814ff4f48022d8140d90ab58c51eb1cfadf (patch)
tree9b36a69f4eadae2a2c6cc85d4add5155be643c39 /perl-install/install_steps_gtk.pm
parentf57635eb436f0e61371987cf8e02f175aae096a9 (diff)
downloaddrakx-551e4814ff4f48022d8140d90ab58c51eb1cfadf.tar
drakx-551e4814ff4f48022d8140d90ab58c51eb1cfadf.tar.gz
drakx-551e4814ff4f48022d8140d90ab58c51eb1cfadf.tar.bz2
drakx-551e4814ff4f48022d8140d90ab58c51eb1cfadf.tar.xz
drakx-551e4814ff4f48022d8140d90ab58c51eb1cfadf.zip
improved logos, title, and steps appearences. see changelog.
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm25
1 files changed, 17 insertions, 8 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 8894f72ff..547cb8997 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -718,11 +718,15 @@ sub create_help_window {
#- gtkadd($b, new Gtk::Pixmap(@pixmap));
# Gtk::XmHTML->init;
+ my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/help.xpm"));
gtkadd($w->{window},
gtkpack_(new Gtk::HBox(0,-2),
#- 0, $b,
#- 1, createScrolledWindow($w_help = new Gtk::XmHTML)));
- 1, createScrolledWindow($w_help = new Gtk::Text)));
+ 0, $pixmap,
+ 1, createScrolledWindow($w_help = new Gtk::Text)
+ ));
+
#- $w_help->source($o->{step} ? translate($o->{steps}{$o->{step}}{help}) : '');
gtktext_insert($w_help, $o->{step} ? formatAlaTeX(translate($help::steps{$o->{step}})) : '');
@@ -760,19 +764,24 @@ sub create_steps_window {
my $step_name = $_;
my $step = $o->{steps}{$_};
my $w = new Gtk::Label(translate($step->{text}));
-
my $pixmap = new Gtk::Pixmap(@{$steps_icons[$step->{done} ? 0 : $step->{entered} ? 1 : 2]});
+ $pixmap->set_sensitive(0) if !$step->{reachable};
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->signal_connect(enter_notify_event => sub { print "HERE\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;
+ 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"; });
+ $b=$button;
}
+ $b;
+
} grep {
!eval $o->{steps}{$_}{hidden};
} @{$o->{orderedSteps}}),