summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-06 18:56:02 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-06 18:56:02 +0000
commita15037c569838ee6f49282753dcd9074d48bbd67 (patch)
treec2cc1de869a0e7fb8a2d37a27259f9082c333e90 /perl-install/ugtk.pm
parentcca092a8c7c4be4a5874935a790877d949ef238a (diff)
downloaddrakx-a15037c569838ee6f49282753dcd9074d48bbd67.tar
drakx-a15037c569838ee6f49282753dcd9074d48bbd67.tar.gz
drakx-a15037c569838ee6f49282753dcd9074d48bbd67.tar.bz2
drakx-a15037c569838ee6f49282753dcd9074d48bbd67.tar.xz
drakx-a15037c569838ee6f49282753dcd9074d48bbd67.zip
remove old references to rectangle drawing around mcc icons
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm4
1 files changed, 0 insertions, 4 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 0018808c2..1bc843a67 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -522,13 +522,9 @@ sub gtkicons_labels_widget {
$darea->{state} ? $icon_h : $icon, 0, 0, ($dx - $icon_width)/2, 0, $icon_width, $icon_height);
$dbl_area->draw_pixmap($darea->style->bg_gc('normal'),
$pix, 0, 0, ($dx - $width)/2, $y_round, $width, $height);
-# $dbl_area->draw_rectangle($darea->style->black_gc, 0,
-# 0, 0, max($width, $x_round) - 1 , $y_round + $height - 1);
}
$darea->window->draw_pixmap($darea->style->bg_gc('normal'),
$dbl_area, 0, 0, 0, 0, $dx, $dy);
-# $darea->window->draw_rectangle($darea->style->black_gc, 0,
-# 0, 0, $dx, $dy);
($darea->{dx}, $darea->{dy}) = ($dx, $dy);
});
$darea->set_events(['exposure_mask', 'enter_notify_mask', 'leave_notify_mask', 'button_press_mask', 'button_release_mask' ]);