summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm12
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index ef9928839..6cfb501ec 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -542,11 +542,15 @@ sub gtkicons_labels_widget {
$fixed->put($_, 75, 65);
$i++;
}
+ my $timeout;
$fixed->signal_connect(expose_event => sub {
my ($fx, $fy) = ($fixed->allocation->[2], $fixed->allocation->[3]);
- foreach (compute($fx, $fy, 40, 30, 5, @tab)) {
- $fixed->move(@$_);
- }
+ defined($timeout) or $timeout = Gtk->timeout_add(100, sub {
+ $fixed->move(@$_) foreach compute_icons($fx, $fy, 40, 30, 5, @tab);
+ Gtk->timeout_remove($timeout);
+ undef $timeout;
+ 0;
+ });
});
$fixed->signal_connect( realize => sub { $fixed->window->set_back_pixmap($background, 0) });
@@ -555,7 +559,7 @@ sub gtkicons_labels_widget {
$fixed;
}
-sub compute {
+sub compute_icons {
my ($fx, $fy, $decx, $decy, $interstice, @tab) = @_;
my $nb = $#tab;
my $nb_sav = $nb;