From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Sat, 18 Nov 2006 21:26:04 +0000 (+0000)
Subject: Emit a PageLabels dictionary to make it clear what page numbering scheme
X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/commitdiff_plain/b7d319499197dd884b12521ede60ec06b5f52633

Emit a PageLabels dictionary to make it clear what page numbering scheme
Halibut uses.


git-svn-id: svn://svn.tartarus.org/sgt/halibut@6912 cda61777-01e9-0310-a592-d414129be87e
---

diff --git a/bk_pdf.c b/bk_pdf.c
index c4a65be..6ce0e5a 100644
--- a/bk_pdf.c
+++ b/bk_pdf.c
@@ -112,7 +112,7 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
 
     /*
      * The catalogue just contains references to the outlines and
-     * pages objects.
+     * pages objects, and the pagelabels dictionary.
      */
     objtext(cat, "<<\n/Type /Catalog");
     if (outlines) {
@@ -121,6 +121,8 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     }
     objtext(cat, "\n/Pages ");
     objref(cat, pages);
+    /* Halibut just numbers pages 1, 2, 3, ... */
+    objtext(cat, "\n/PageLabels<</Nums[0<</S/D>>]>>");
     if (outlines)
 	objtext(cat, "\n/PageMode /UseOutlines");
     objtext(cat, "\n>>\n");