summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-12 13:26:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-12 13:26:52 +0000
commit22667edcc59fab490785d7473717e85a018bda2d (patch)
treee3f18918deee80ecdf46a18a698e7096c3afe59a /perl-install/ugtk.pm
parente931425b69901d83e46e019a1de72cba48883ed9 (diff)
downloaddrakx-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.pm8
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)) {