summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-01-21 15:38:44 +0000
committerdamien <damien@mandriva.com>2002-01-21 15:38:44 +0000
commit9f4426267d460d9f7bcf91f60892f463144fe8f5 (patch)
treedf795ea96d0b07e1c6c6c1822b178541abdc61a9 /perl-install
parent09a975655a733447b5055799ce7ed876f161f75b (diff)
downloaddrakx-9f4426267d460d9f7bcf91f60892f463144fe8f5.tar
drakx-9f4426267d460d9f7bcf91f60892f463144fe8f5.tar.gz
drakx-9f4426267d460d9f7bcf91f60892f463144fe8f5.tar.bz2
drakx-9f4426267d460d9f7bcf91f60892f463144fe8f5.tar.xz
drakx-9f4426267d460d9f7bcf91f60892f463144fe8f5.zip
removed debug print
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm8
1 files changed, 0 insertions, 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);
}
});