summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-09-11 21:17:54 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-09-11 21:17:54 +0000
commitd1e011238cd2d2edaaf03376fd6c4a7acfdd2581 (patch)
tree0717b9b13b57740c01b9e643f604123c760c4556 /perl-install
parentb733c644eb9504f6d5fd2cb0df3609e1e7b34584 (diff)
downloaddrakx-d1e011238cd2d2edaaf03376fd6c4a7acfdd2581.tar
drakx-d1e011238cd2d2edaaf03376fd6c4a7acfdd2581.tar.gz
drakx-d1e011238cd2d2edaaf03376fd6c4a7acfdd2581.tar.bz2
drakx-d1e011238cd2d2edaaf03376fd6c4a7acfdd2581.tar.xz
drakx-d1e011238cd2d2edaaf03376fd6c4a7acfdd2581.zip
don't display a watch when slow things because due to the
large number of gtkflush(), the ask_ok_cancel appears before its Gtk->main is called, hence clicking too fast will call Gtk->main_quit before Gtk->main, but the dialog doesn't disappear; then on the next click on ok/cancel, the call to another Gtk->main_quit will lead to two Gtk->main being exited, hence destroying the ok/cancel dialog but alors the main window (choose of individual packages)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm21
1 files changed, 6 insertions, 15 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index d38476972..cb2fd5f12 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -288,13 +288,6 @@ sub choosePackagesTree {
my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
my $common;
- my $slow = sub {
- my ($func) = @_;
- gtkset_mousecursor_wait($common->{widgets}{tree}->window);
- ugtk2::flush();
- $func->();
- gtkset_mousecursor_normal($common->{widgets}{tree}->window);
- };
$common = { get_status => sub {
my $size = pkgs::selectedSize($packages);
N("Total size: %d / %d MB", pkgs::correctSize($size / sqr(1024)), $available / sqr(1024));
@@ -338,7 +331,7 @@ sub choosePackagesTree {
},
get_info => sub {
my $p = pkgs::packageByName($packages, $_[0]) or return '';
- $slow->(sub { pkgs::extractHeaders($o->{prefix}, [$p], $packages->{mediums}) });
+ pkgs::extractHeaders($o->{prefix}, [$p], $packages->{mediums});
my $imp = translate($pkgs::compssListDesc{$p->flag_base ? 5 : $p->rate});
@@ -355,13 +348,11 @@ sub choosePackagesTree {
my @n = map { pkgs::packageByName($packages, $_) } @_;
my %l;
my $isSelection = !$n[0]->flag_selected;
- $slow->(sub {
- foreach (@n) {
- #pkgs::togglePackageSelection($packages, $_, my $l = {});
- #@l{grep {$l->{$_}} keys %$l} = ();
- pkgs::togglePackageSelection($packages, $_, \%l);
- }
- });
+ foreach (@n) {
+ #pkgs::togglePackageSelection($packages, $_, my $l = {});
+ #@l{grep {$l->{$_}} keys %$l} = ();
+ pkgs::togglePackageSelection($packages, $_, \%l);
+ }
if (my @l = map { $packages->{depslist}[$_]->name } keys %l) {
#- check for size before trying to select.
my $size = pkgs::selectedSize($packages);