summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-13 08:48:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-13 08:48:11 +0000
commit7636b4bdc875277789e4a01a9d9601408a0793f0 (patch)
treeb1fba18860fb6ab6504d4b12f2334ab0edd1033e
parent41276050d876bc1e31d1e330a0efdebafbfc9e5a (diff)
downloaddrakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar
drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.gz
drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.bz2
drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.xz
drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.zip
remove uneeded variables
-rw-r--r--perl-install/ugtk.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 188614fe6..b525b3106 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -541,19 +541,17 @@ sub gtkicons_labels_widget {
my @tab;
my $cursor_hand = new Gtk::Gdk::Cursor(60);
- my $_cursor_normal = new Gtk::Gdk::Cursor(68);
my @args = @$args;
foreach (@args) {
my ($label, $tag) = ($_->[0], $_->[1]);
die "$label 's icon is missing" unless $exec_hash->{$label};
my ($dbl_area, $pix, $width, $height); # initialized in call back
my $darea = new Gtk::DrawingArea;
- my ($_icon, undef) = gtkcreate_png($tag);
my $pixbuf = compose_with_back($tag, $back_pixbuf);
my $pixbuf_h = compose_with_back($tag, $back_pixbuf, 170);
my $draw = sub {
- my ($_widget, $_event) = @_;
+ my ($_widget) = @_;
my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]);
my $state = $darea->{state};
if (!defined($dbl_area)) {