summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 11:59:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 11:59:03 +0000
commitaaff6dff3ac0e9b19810fc1bc836f30c19918e5d (patch)
tree24d563bb50162681d48011773d41f501c720d888 /perl-install/my_gtk.pm
parent8eb45d87d70be8b1802f5f6c79cf53b3099b0596 (diff)
downloaddrakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.gz
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.bz2
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.tar.xz
drakx-aaff6dff3ac0e9b19810fc1bc836f30c19918e5d.zip
make new perl_checker happy
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm20
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index d8ecf8b47..04aabea56 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -63,7 +63,7 @@ sub new {
$style->font(Gtk::Gdk::Font->fontset_load("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*"));
my $w = $style->font->string_width($::Wizard_title);
$draw1->signal_connect(expose_event => sub {
- for (my $i=0; $i < (540/$y1); $i++) {
+ for (my $i = 0; $i < (540/$y1); $i++) {
$draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'),
$im_up, 0, 0, 0, $y1*$i,
$x1 , $y1);
@@ -75,7 +75,7 @@ sub new {
}
});
$draw2->signal_connect(expose_event => sub {
- for (my $i=0; $i < (300/$y2); $i++) {
+ for (my $i = 0; $i < (300/$y2); $i++) {
$draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
$im_left, 0, 0, 0, $y2*$i,
$x2 , $y2);
@@ -377,7 +377,7 @@ sub gtkctree_children {
@l;
}
-my @icon_paths = ();
+my @icon_paths;
sub add_icon_path { push @icon_paths, @_ }
sub icon_paths {
@@ -387,16 +387,16 @@ sub icon_paths {
sub gtkcreate_xpm {
my ($f) = @_;
my $rw = gtkroot();
- $f =~ m|.xpm$| or $f="$f.xpm";
- if ($f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() }
+ $f =~ m|.xpm$| or $f = "$f.xpm";
+ if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
my @l = Gtk::Gdk::Pixmap->create_from_xpm($rw, new Gtk::Style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f";
@l;
}
sub gtkcreate_png {
my ($f) = shift;
- $f =~ m|.png$| or $f="$f.png";
- if ($f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach icon_paths() }
+ $f =~ m|.png$| or $f = "$f.png";
+ if ($f !~ /\//) { -e "$_/$f" and $f = "$_/$f", last foreach icon_paths() }
my $im = Gtk::Gdk::ImlibImage->load_image($f) or die "gtkcreate_png: missing png file $f";
$im->render($im->rgb_width, $im->rgb_height);
($im->move_image(), $im->move_mask);
@@ -423,7 +423,7 @@ sub create_pix_text {
elsif ($background =~ /#(\d+)#(\d+)#(\d+)/) { $color_background = gtkcolor(map{$_*65535/255}($1, $2, $3)) }
elsif (ref($background) eq 'Gtk::Gdk::Pixmap' && $x_back && $y_back) { $backpix = 1 }
my $fake_darea = new Gtk::DrawingArea;
- my $style= $fake_darea->style->copy();
+ my $style = $fake_darea->style->copy();
if (ref($font) eq 'Gtk::Gdk::Font') {
$style->font($font);
} else {
@@ -679,14 +679,14 @@ sub write_on_pixmap {
my $gc = Gtk::Gdk::GC->new(gtkroot());
$gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
- my $darea= new Gtk::DrawingArea();
+ my $darea = new Gtk::DrawingArea();
$darea->size($width, $height);
$darea->set_usize($width, $height);
my $draw = sub {
my $style = new Gtk::Style;
#- i18n : you can change the font.
$style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*")));
- my $y_pos2= $y_pos;
+ my $y_pos2 = $y_pos;
foreach (@text) {
$darea->window->draw_string($style->font, $gc, $x_pos, $y_pos2, $_);
$y_pos2 += 20;