summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-21 19:22:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-21 19:22:12 +0000
commit8abe7a7e8c29a95d8229577b5ff0afaa74589fcc (patch)
tree36deb9889d4642b0078b687dfa4ad1a234ffc644 /perl-install/install_steps_gtk.pm
parent1a6ceb9a7e98d4f7b3aa7e398519ca6a89d852e4 (diff)
downloaddrakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.gz
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.bz2
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.tar.xz
drakx-8abe7a7e8c29a95d8229577b5ff0afaa74589fcc.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm13
1 files changed, 13 insertions, 0 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 557a9cab3..9462477fc 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -639,6 +639,19 @@ widget "*Steps*" style "steps"
}
#------------------------------------------------------------------------------
+sub create_big_help {
+ my $w = my_gtk->new('', grab => 1, force_position => [ $stepswidth, $logoheight ]);
+ $w->{rwindow}->set_usize($logowidth, $height - $logoheight);
+ gtkadd($w->{window},
+ gtkpack_(new Gtk::VBox(0,0),
+ 1, createScrolledWindow(gtktext_insert(new Gtk::Text,
+ formatAlaTeX(translate($help::steps{$::o->{step}})))),
+ 0, gtksignal_connect(new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }),
+ ));
+ $w->main;
+}
+
+#------------------------------------------------------------------------------
sub create_help_window {
my ($o) = @_;