From 3fb39c6c69d815479d7469cb3b121479f0bca64b Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Thu, 4 Feb 2010 16:37:16 +0100 Subject: [PATCH] Add a blank space at the end of each line. --- Grutatxt.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Grutatxt.pm b/Grutatxt.pm index 9efb5aa..bceb487 100644 --- a/Grutatxt.pm +++ b/Grutatxt.pm @@ -1913,13 +1913,13 @@ The additional parameters for a new Grutatxt object are: =item I -The point size of normal text. By default is 10. +The point size of normal text. By default is 20. =item I This argument must be a reference to an array containing the size in points of the 3 different heading levels. By -default, level sizes are [ 20, 18, 15 ]. +default, level sizes are [ 34, 30, 28 ]. =back @@ -1946,7 +1946,7 @@ sub _prefix { my $gh = shift; - $gh->_push('{\rtf1\ansi {\plain \fs' . $gh->{'normal-size'} . ' \sa227 '); + $gh->_push('{\rtf1\ansi {\plain \fs' . $gh->{'normal-size'} . ' \sa227'); } @@ -1954,7 +1954,7 @@ sub _empty_line { my $gh = shift; - return '\par '; + return '\par'; } @@ -1991,6 +1991,8 @@ sub _postfix { my $gh = shift; + @{$gh->{o}} = map { $_ . ' '; } @{$gh->{o}}; + $gh->_push('}}'); } -- 2.11.4.GIT