From 9f4426267d460d9f7bcf91f60892f463144fe8f5 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 21 Jan 2002 15:38:44 +0000
Subject: removed debug print

---
 perl-install/my_gtk.pm | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 987a6c5b5..54f029e89 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -512,18 +512,11 @@ sub gtkicons_labels_widget {
 	my $dbl_area;
 	my $darea = new Gtk::DrawingArea;
         my ($icon, undef) = gtkcreate_png($_->[1]);
-# 	$darea->signal_connect( size_allocate => sub {
-#				    print "SIZE_ALLOCATE\n";
-#				    undef $dbl_area;
-#  				    my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]);
-#  				    ($darea->{dx}, $darea->{dy}) = ($dx, $dy);
-# 				});
 	$darea->{state} = 0;
 	$darea->signal_connect(expose_event => sub {
                   my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]);
                   if (!defined($dbl_area) || $darea->{state} != $dbl_area->{state}) {
 		      my $state = $darea->{state};
-		      print "STATE : $state\n";
                       my ($pix, $width, $height) = create_pix_text($darea, $label, $color_text, $font, $x_round, $y_round,
                                                                1, 0, $background, $x_back2, $y_back2, 1, 0, $state);
                       ($dx, $dy) = (max($width, $x_round), $y_round + $height);
@@ -550,7 +543,6 @@ sub gtkicons_labels_widget {
 	$darea->signal_connect( leave_notify_event => sub {
 				    if ($darea->{state} == 1) {
 					$darea->{state} = 0;
-					print "plop . " .  $darea->{state} . " | " . $dbl_area->{state} . "\n";
 					$darea->draw(undef);
 				    }
 				});
-- 
cgit v1.2.1