diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-24 15:26:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-24 15:26:41 +0000 |
| commit | b6917c3670993c4520ce84112e07b0ea7cecd10b (patch) | |
| tree | 88a938052dfdef780d6734035db25a1f20fcbfee /perl-install | |
| parent | e939764c1c13713245b9ef169e02dfda5487c4e7 (diff) | |
| download | drakx-backup-do-not-use-b6917c3670993c4520ce84112e07b0ea7cecd10b.tar drakx-backup-do-not-use-b6917c3670993c4520ce84112e07b0ea7cecd10b.tar.gz drakx-backup-do-not-use-b6917c3670993c4520ce84112e07b0ea7cecd10b.tar.bz2 drakx-backup-do-not-use-b6917c3670993c4520ce84112e07b0ea7cecd10b.tar.xz drakx-backup-do-not-use-b6917c3670993c4520ce84112e07b0ea7cecd10b.zip | |
dams fix enable to get rid of the infamous ugly gtk timeout
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk.pm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index f324ca0c6..dd1095a05 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -603,21 +603,9 @@ sub gtkicons_labels_widget { } my $fixed = new Gtk::Fixed; foreach (@tab) { $fixed->put($_, 75, 65) } - my $is_resized = 0; my $w_ret = createScrolledWindow($fixed, undef, 'none'); my $redraw_function; $redraw_function = sub { - if ($is_resized == 0) { - if (3 < $#args) { - #- Ugly hacks, don't touch! ######## - my $timeout1 = Gtk->timeout_add(100, sub { - $fixed->set_usize($w_ret->allocation->[2] - 22, 0); - &$redraw_function; - 0 - }); - } - $is_resized = 1; - } $fixed->move(@$_) foreach compute_icons($fixed->allocation->[2]-22, $fixed->allocation->[3], 40, 15, 20, @tab); }; $fixed->signal_connect(expose_event => $redraw_function); |