This commit is contained in:
John Whitington 2022-08-07 18:25:45 +02:00
parent b06bf9b471
commit 64f6cec3a9

View File

@ -460,7 +460,7 @@ let addtext
Pdf.Dictionary Pdf.Dictionary
[("/Subtype", Pdf.Name "/Link"); [("/Subtype", Pdf.Name "/Link");
("/Rect", Pdf.Array [Pdf.Real minx; Pdf.Real miny; Pdf.Real maxx; Pdf.Real maxy]); ("/Rect", Pdf.Array [Pdf.Real minx; Pdf.Real miny; Pdf.Real maxx; Pdf.Real maxy]);
("/BS", Pdf.Dictionary [("/W", Pdf.Integer 1)]); ("/BS", Pdf.Dictionary [("/W", Pdf.Integer 0)]);
("/A", Pdf.Dictionary [("/URI", Pdf.String url); ("/A", Pdf.Dictionary [("/URI", Pdf.String url);
("/Type", Pdf.Name "/Action"); ("/Type", Pdf.Name "/Action");
("/S", Pdf.Name "/URI")])] ("/S", Pdf.Name "/URI")])]