fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington
2022-08-04 18:43:35 +02:00
parent 7916bcfee1
commit 55b7371d07
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfaddtext.ml
View File

@@ -380,6 +380,7 @@ let addtext
let unique_fontname = Pdf.unique_key "F" fontdict in
let ops, urls =
let text = process_text time text (replace_pairs pdf filename bates batespad num page) in
let text = hd (fst (get_urls [text])) in
let calc_textwidth text =
match font with
| Some f ->
@@ -419,7 +420,7 @@ let addtext
process_text time text (replace_pairs pdf filename bates batespad num page))
lines
in
let expanded_lines, urls =
let expanded_lines, urls = (* process URLs for justification too *)
get_urls expanded_lines
in
let textwidth = calc_textwidth text