diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-18 09:07:32 -0500 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-18 09:10:27 -0500 |
| commit | 2499f1720602a9010f4618f0b686f077febbdf55 (patch) | |
| tree | a7bfbf464fcd62fbd5fd4cc9a9b94d0390980afb /ag_render.f90 | |
| parent | 81bc5140a2961e97ecacd2296da9f3111f7c91de (diff) | |
| download | LR-87-2499f1720602a9010f4618f0b686f077febbdf55.tar.gz LR-87-2499f1720602a9010f4618f0b686f077febbdf55.zip | |
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.f90 | 6 |
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 |