From 3401eeed7427026c5354496bdbbdcfc6f18b38b3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 21 Dec 1999 01:25:00 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index aa72c0527..3414c39af 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -681,12 +681,20 @@ sub create_help_window {
 #-		    1, createScrolledWindow($w_help = new Gtk::XmHTML)));
 		    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($o->{steps}{$o->{step}}{help})) : '');
+    gtktext_insert($w_help, $o->{step} ? formatAlaTeX(translate($help::steps{$o->{step}})) : '');
 
     $w->show;
     $o->{help_window} = $w;
 }
 
+sub set_help { 
+    shift;
+    gtktext_insert($w_help, 
+		   formatAlaTeX(join "\n", 
+				map { translate($help::steps{$_}) } @_));
+    1;
+}
+
 #------------------------------------------------------------------------------
 sub create_steps_window {
     my ($o) = @_;
-- 
cgit v1.2.1