summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-22 13:14:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-22 13:14:24 +0000
commitb19b34a08590f33973ffc9449accc21cdb1adbba (patch)
treec9f1ba71ae1588e87ab4b3b430aa2e4528c47aa8 /perl-install/install_steps_gtk.pm
parentae35def9865df3f82303a8c72c41d0b966651f5a (diff)
downloaddrakx-b19b34a08590f33973ffc9449accc21cdb1adbba.tar
drakx-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.gz
drakx-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.bz2
drakx-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.xz
drakx-b19b34a08590f33973ffc9449accc21cdb1adbba.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm9
1 files changed, 4 insertions, 5 deletions
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})) {