From b6917c3670993c4520ce84112e07b0ea7cecd10b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 24 Sep 2002 15:26:41 +0000
Subject: dams fix enable to get rid of the infamous ugly gtk timeout

---
 perl-install/ugtk.pm | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'perl-install/ugtk.pm')

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);
-- 
cgit v1.2.1