diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-13 08:48:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-13 08:48:11 +0000 |
| commit | 7636b4bdc875277789e4a01a9d9601408a0793f0 (patch) | |
| tree | b1fba18860fb6ab6504d4b12f2334ab0edd1033e /perl-install | |
| parent | 41276050d876bc1e31d1e330a0efdebafbfc9e5a (diff) | |
| download | drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.gz drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.bz2 drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.tar.xz drakx-7636b4bdc875277789e4a01a9d9601408a0793f0.zip | |
remove uneeded variables
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk.pm | 4 |
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)) { |