summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 22:20:22 +0000
commit22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch)
tree7848808920e41e4bbdee22867646139e7a907099 /perl-install/my_gtk.pm
parentbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff)
downloaddrakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.gz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.bz2
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.tar.xz
drakx-22ad938758373ec4e2f8490d62f2cdc237d50d7c.zip
- replace ... =~ 'foo' with ... =~ /foo/
- remove unneeded parentheses for things like ... if (...)
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 89cacba8c..66b57ddfa 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -264,8 +264,8 @@ sub _create_window($$) {
my $s = "\xFF" x ($wia*$he);
my $wib = $wia*8;
my $dif = $wib-$wi;
- foreach my $y (0..$sqw-1) { vec($s, $wib-1-$dif-$_+$wib*$y, 1) = 0x0 foreach (0..$sqw-1) }
- foreach my $y (0..$sqw-1) { vec($s, (($he-1)*$wib)-$wib*$y+$_, 1) = 0x0 foreach (0..$sqw-1) }
+ foreach my $y (0..$sqw-1) { vec($s, $wib-1-$dif-$_+$wib*$y, 1) = 0x0 foreach 0..$sqw-1 }
+ foreach my $y (0..$sqw-1) { vec($s, (($he-1)*$wib)-$wib*$y+$_, 1) = 0x0 foreach 0..$sqw-1 }
$w->realize;
my $b = Gtk::Gdk::Bitmap->create_from_data($w->window, $s, $wib, $he);
$w->window->shape_combine_mask($b, 0, 0);