summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-11 09:33:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-11 09:33:50 +0000
commit3e33ebb9e2d5accc27107c6c087bbb29679dcdf9 (patch)
treefe99ea946bf3f40e87dedba7fc72cfa0861d32bb /perl-install/ugtk2.pm
parentf47e7b8711c1d81d5d0822a0d1efc8a8658fd921 (diff)
downloaddrakx-3e33ebb9e2d5accc27107c6c087bbb29679dcdf9.tar
drakx-3e33ebb9e2d5accc27107c6c087bbb29679dcdf9.tar.gz
drakx-3e33ebb9e2d5accc27107c6c087bbb29679dcdf9.tar.bz2
drakx-3e33ebb9e2d5accc27107c6c087bbb29679dcdf9.tar.xz
drakx-3e33ebb9e2d5accc27107c6c087bbb29679dcdf9.zip
the ugly gtkset_mousecursor_wait() done on destroy is not called often nowadays, and not very useful either since the wait cursor is only on the root window, and since install use isWizard, the root window is not often seen. We should at least also set the wait cursor on the $::WizardTable
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 0 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a1d3a1100..86174d77e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -893,8 +893,6 @@ sub set_main_window_size {
sub main {
my ($o, $o_completed, $o_canceled) = @_;
gtkset_mousecursor_normal();
- my $timeout = Glib::Timeout->add(1000, sub { gtkset_mousecursor_normal(); 1 });
- my $_b = MDK::Common::Func::before_leaving { $o->destroy; Glib::Source->remove($timeout) };
$o->show;
do {
@@ -911,7 +909,6 @@ sub show($) {
sub destroy($) {
my ($o) = @_;
$o->{rwindow}->destroy if !$o->{destroyed};
- gtkset_mousecursor_wait();
flush();
}
sub DESTROY { goto &destroy }