diff options
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 10 |
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) = @_; |