diff options
| author | damien <damien@mandriva.com> | 2001-09-20 12:02:15 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-09-20 12:02:15 +0000 |
| commit | 47291e0afee99ec3186a2e9f1d4f94e9ec800fcf (patch) | |
| tree | 76b69c0b7df8f34f34e2e37cad00e25ed93e5299 /perl-install | |
| parent | 27e9c8cb16aa9a4b7fcd3959ba646cbd77b9db9a (diff) | |
| download | drakx-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.pm | 2 |
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, |