From d60215ea271cf171dd6292529a4c459e9148d883 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 6 Sep 2000 14:42:37 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (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 26ed409fb..d5727f273 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -609,6 +609,7 @@ sub create_big_help { 0, gtksignal_connect(new Gtk::Button(_("Ok")), "clicked" => sub { Gtk->main_quit }), )); $w->main; + gtkset_mousecursor_normal(); } #------------------------------------------------------------------------------ @@ -631,10 +632,9 @@ sub create_help_window { my $pixmap = new Gtk::Pixmap( gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/help.xpm")); gtkadd($w->{window}, gtkpack_(new Gtk::HBox(0,-2), - 0, $pixmap, - 1, createScrolledWindow($w_help = new Gtk::Text) + 0, gtkadd(gtksignal_connect(new Gtk::Button, clicked => \&create_big_help), $pixmap), + 1, createScrolledWindow($w_help = new Gtk::Text), )); - gtktext_insert($w_help, $o->{step} ? formatAlaTeX(_ deref($help::steps{$o->{step}})) : ''); $w->show; -- cgit v1.2.1