summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-21 01:25:00 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-21 01:25:00 +0000
commit3401eeed7427026c5354496bdbbdcfc6f18b38b3 (patch)
tree423c658f22e69b91e263044ed9848499f5e1172d /perl-install/install_steps_gtk.pm
parentdc9ba01917bf001fe0d5975f167cbb0ded79aa11 (diff)
downloaddrakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.gz
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.bz2
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.tar.xz
drakx-3401eeed7427026c5354496bdbbdcfc6f18b38b3.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm10
1 files changed, 9 insertions, 1 deletions
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) = @_;