From ff872004f6d5f202a6a8cd418bad3b2458d2ed66 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 28 Aug 2000 21:16:32 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 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 aa30394b3..b5ae9772c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -129,7 +129,7 @@ sub new($$) {
 sub enteringStep {
     my ($o, $step) = @_;
 
-    print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
+    printf "Entering step `%s'\n", $o->{steps}{$step}{text};
     $o->SUPER::enteringStep($step);
     create_steps_window($o);
     create_help_window($o);
@@ -362,7 +362,7 @@ sub choosePackagesTree {
 		       pkgs::correctSize($size / sqr(1024)),
 		       install_any::getAvailableSpace($o) / sqr(1024)));
     };
-    my $toggle = sub {
+    my $toggle_ = sub {
 	if (ref $curr) {
 	    $tree->toggle_expansion($curr);
 	} else {
@@ -406,6 +406,8 @@ sub choosePackagesTree {
 	    }
 	}
     };
+    my $toggle = sub { &$toggle_; gtkset_mousecursor_normal() };
+
     $tree->signal_connect(button_press_event => sub { &$toggle if $_[1]{type} =~ /^2/ });
     $tree->signal_connect(key_press_event => sub {
         my ($w, $e) = @_;
-- 
cgit v1.2.1