summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 11:46:04 +0000
commit4006b6abce88b7a53502926f921ae1408b5dd37e (patch)
tree2090905e20aaf74446663134f6980fe9cc61bfdd /perl-install/my_gtk.pm
parentf3274ad01b2b1d7e84b6a2c26ce03f605b0b7369 (diff)
downloaddrakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.gz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.bz2
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.tar.xz
drakx-4006b6abce88b7a53502926f921ae1408b5dd37e.zip
add/remove spaces to make perl_checker happy
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 66b57ddfa..2f991a988 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -66,7 +66,7 @@ sub new {
my $w = $style->font->string_width($::Wizard_title);
$draw1->signal_connect(expose_event => sub {
for (my $i = 0; $i < (540/$y1); $i++) {
- $draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'),
+ $draw1->window->draw_pixmap($draw1->style->bg_gc('normal'),
$im_up, 0, 0, 0, $y1*$i,
$x1, $y1);
$draw1->window->draw_string(
@@ -78,7 +78,7 @@ sub new {
});
$draw2->signal_connect(expose_event => sub {
for (my $i = 0; $i < (300/$y2); $i++) {
- $draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'),
+ $draw2->window->draw_pixmap($draw2->style->bg_gc('normal'),
$im_left, 0, 0, 0, $y2*$i,
$x2, $y2);
}