From b19b34a08590f33973ffc9449accc21cdb1adbba Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Aug 2000 13:14:24 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 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 8d639f105..20d69018b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -449,11 +449,12 @@ sub installPackages {
 			       $progress_total,
 			       '',
 			       gtkadd(create_hbox(),
-				      gtksignal_connect(new Gtk::Button(_("Cancel")), 
-							clicked => sub { $pkgs::cancel_install = 1 })),
+				      my $cancel = new Gtk::Button(_("Cancel"))),
 			      ));
-    $msg->set(_("Preparing installation"));
     $w->sync;
+    $msg->set(_("Preparing installation"));
+    gtkset_mousecursor_normal($cancel->window);
+    $cancel->signal_connect(clicked => sub { $pkgs::cancel_install = 1 });
 
     my $oldInstallCallback = \&pkgs::installCallback;
     local *pkgs::installCallback = sub {
@@ -541,8 +542,6 @@ sub install_theme {
     my ($o, $theme) = @_;    
     $o->{theme} = $theme || $o->{theme} || $themes[0];
 
-    gtkset_mousecursor(68);
-
     load_rc($_) foreach "themes-$o->{theme}", "install", "themes";
 
     if (my ($font, $font2) = lang::get_x_fontset($o->{lang})) {
-- 
cgit v1.2.1