summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-20 12:02:15 +0000
committerdamien <damien@mandriva.com>2001-09-20 12:02:15 +0000
commit47291e0afee99ec3186a2e9f1d4f94e9ec800fcf (patch)
tree76b69c0b7df8f34f34e2e37cad00e25ed93e5299 /perl-install
parent27e9c8cb16aa9a4b7fcd3959ba646cbd77b9db9a (diff)
downloaddrakx-backup-do-not-use-47291e0afee99ec3186a2e9f1d4f94e9ec800fcf.tar
drakx-backup-do-not-use-47291e0afee99ec3186a2e9f1d4f94e9ec800fcf.tar.gz
drakx-backup-do-not-use-47291e0afee99ec3186a2e9f1d4f94e9ec800fcf.tar.bz2
drakx-backup-do-not-use-47291e0afee99ec3186a2e9f1d4f94e9ec800fcf.tar.xz
drakx-backup-do-not-use-47291e0afee99ec3186a2e9f1d4f94e9ec800fcf.zip
text positionning
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 4a3753d6e..d6778b902 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -473,7 +473,7 @@ sub test_mouse {
my ($t, $y) = @_;
my $font = $darea->style->font;
my $w = $font->string_width($t);
- $darea->window->draw_string($font, $darea->style->black_gc, ($width - $w) / 2, $y, $t);
+ $darea->window->draw_string($font, $darea->style->black_gc, ($darea->allocation->[2]-$width)/2 + ($width - $w) / 2, ($darea->allocation->[3]-$height)/2 + $y, $t);
};
my $drawarea; $drawarea = sub { $darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$image, 0, 0,