diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 13:14:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 13:14:24 +0000 |
| commit | b19b34a08590f33973ffc9449accc21cdb1adbba (patch) | |
| tree | c9f1ba71ae1588e87ab4b3b430aa2e4528c47aa8 /perl-install/install_steps_gtk.pm | |
| parent | ae35def9865df3f82303a8c72c41d0b966651f5a (diff) | |
| download | drakx-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.pm | 9 |
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})) { |