diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-12 13:26:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-12 13:26:52 +0000 |
| commit | 22667edcc59fab490785d7473717e85a018bda2d (patch) | |
| tree | e3f18918deee80ecdf46a18a698e7096c3afe59a /perl-install/ugtk.pm | |
| parent | e931425b69901d83e46e019a1de72cba48883ed9 (diff) | |
| download | drakx-backup-do-not-use-22667edcc59fab490785d7473717e85a018bda2d.tar drakx-backup-do-not-use-22667edcc59fab490785d7473717e85a018bda2d.tar.gz drakx-backup-do-not-use-22667edcc59fab490785d7473717e85a018bda2d.tar.bz2 drakx-backup-do-not-use-22667edcc59fab490785d7473717e85a018bda2d.tar.xz drakx-backup-do-not-use-22667edcc59fab490785d7473717e85a018bda2d.zip | |
unused variables renamed with a leading underscore (some code should be removed?)
Diffstat (limited to 'perl-install/ugtk.pm')
| -rw-r--r-- | perl-install/ugtk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index d43883c5f..188614fe6 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -537,23 +537,23 @@ sub get_text_coord { sub gtkicons_labels_widget { my ($args, $_w, $widget_for_font, $background, $back_pixbuf, $_xback, $_yback, $x_round, - $y_round, $x_back2, $y_back2, $icon_width, $icon_height, $exec_func, $exec_hash) = @_; + $y_round, $x_back2, $y_back2, $_icon_width, $_icon_height, $exec_func, $exec_hash) = @_; my @tab; my $cursor_hand = new Gtk::Gdk::Cursor(60); - my $cursor_normal = new Gtk::Gdk::Cursor(68); + 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 ($_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, $_event) = @_; my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]); my $state = $darea->{state}; if (!defined($dbl_area)) { |