aboutsummaryrefslogtreecommitdiff
path: root/ag_render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-02-18 09:07:32 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2021-02-18 09:10:27 -0500
commit2499f1720602a9010f4618f0b686f077febbdf55 (patch)
treea7bfbf464fcd62fbd5fd4cc9a9b94d0390980afb /ag_render.f90
parent81bc5140a2961e97ecacd2296da9f3111f7c91de (diff)
downloadLR-87-2499f1720602a9010f4618f0b686f077febbdf55.zip
LR-87-2499f1720602a9010f4618f0b686f077febbdf55.tar.gz
Preformatted text should no longer wrap, and the stopping point for printing preformatted text is now calculated. Removed double-accounting of borders in text width calculations.
Diffstat (limited to 'ag_render.f90')
-rw-r--r--ag_render.f906
1 files changed, 3 insertions, 3 deletions
diff --git a/ag_render.f90 b/ag_render.f90
index bddec84..68cd0d8 100644
--- a/ag_render.f90
+++ b/ag_render.f90
@@ -630,7 +630,7 @@ contains
ag_text_width = 0
end if
- ag_text_width = ag_text_width + self%left_border + self%right_border
+ !ag_text_width = ag_text_width + self%left_border + self%right_border
if(present(text_type)) then
if(text_type == proportional_type_list_item) then
@@ -769,7 +769,7 @@ contains
text_width = ag_link_width(self, trim(text))
! Need to remove indents, borders, etc.
- text_width = text_width - self%left_border - self%right_border
+ !text_width = text_width - self%left_border - self%right_border
call line(self%left_border, self%y + 7*self%font_size/8, &
self%left_border + text_width, self%y + 7*self%font_size/8)
@@ -803,7 +803,7 @@ contains
ag_preformatted_width = 0
end if
- ag_preformatted_width = ag_preformatted_width + self%left_border + self%right_border
+ !ag_preformatted_width = ag_preformatted_width + self%left_border + self%right_border
end function ag_preformatted_width