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 (file)
--- 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");