diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 22:20:22 +0000 |
| commit | 22ad938758373ec4e2f8490d62f2cdc237d50d7c (patch) | |
| tree | 7848808920e41e4bbdee22867646139e7a907099 /perl-install/my_gtk.pm | |
| parent | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (diff) | |
| download | drakx-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.pm | 4 |
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); |