diff options
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})) { |