From a15037c569838ee6f49282753dcd9074d48bbd67 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Aug 2002 18:56:02 +0000 Subject: remove old references to rectangle drawing around mcc icons --- perl-install/ugtk.pm | 4 ---- 1 file changed, 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' ]); -- cgit v1.2.1