[latex3-commits] [git/LaTeX3-latex3-pdfresources] testlinkstuff: storing (e7638fb)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : testlinkstuff
Link       : https://github.com/latex3/pdfresources/commit/e7638fb876147c951dc0cab47b2eab5a8ff4f1c6

>---------------------------------------------------------------

commit e7638fb876147c951dc0cab47b2eab5a8ff4f1c6
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Tue Apr 30 15:32:09 2019 +0200

    storing


>---------------------------------------------------------------

e7638fb876147c951dc0cab47b2eab5a8ff4f1c6
 hluatex-experimental.def |   50 +++++++++++++++++++++-------------------------
 1 file changed, 23 insertions(+), 27 deletions(-)

diff --git a/hluatex-experimental.def b/hluatex-experimental.def
index 4e9d8eb..4b2fbed 100644
--- a/hluatex-experimental.def
+++ b/hluatex-experimental.def
@@ -317,39 +317,35 @@
 \ExplSyntaxOn
 \ifHy at ocgcolorlinks
   \pdf at ifdraftmode{}{
-    \driver_pdf_object_new:nn   { l__hyp_ocg_view_obj } { dict }
-    \driver_pdf_object_write:nn { l__hyp_ocg_view_obj }
+    \driver_pdf_object_new:nn   { l__hyp_ocg_view_dict_obj }  { dict }
+    \driver_pdf_object_new:nn   { l__hyp_ocg_print_dict_obj } { dict }
+    \driver_pdf_object_new:nn   { l__hyp_ocg_ref_array_obj }   { array }
+    \driver_pdf_object_write:nn { l__hyp_ocg_view_dict_obj }
      {
         /Type/OCG
         /Name(View)
-        /Usage<<
-          /Print<<
-            /PrintState/OFF
-          >>
-          /View<<
-            /ViewState/ON
-          >>
-        >>
+        /Usage
+         <<
+          /Print <</PrintState/OFF>>~
+          /View  <</ViewState/ON  >>~
+         >>
      }
-    \immediate\pdfobj{
-      <<
+    \driver_pdf_object_write:nn { l__hyp_ocg_print_dict_obj }
+     {
         /Type/OCG
         /Name(Print)
-        /Usage<<
-          /Print<<
-            /PrintState/ON
-          >>
-          /View<<
-            /ViewState/OFF
-          >>
-        >>
-      >>
-    }
+        /Usage
+         <<
+          /Print <</PrintState/ON>>~
+          /View  <</ViewState/OFF>>~
+         >>
+     }
     \edef\OBJ at OCG@print{\the\pdflastobj\c_space_tl 0\c_space_tl R}
-    \immediate\pdfobj{
-      [
-        \driver_pdf_object_ref:n { l__hyp_ocg_view_obj }\c_space_tl\OBJ at OCG@print
-      ]
+    \driver_pdf_object_write:nx { l__hyp_ocg_ref_array_obj }
+    {
+        \driver_pdf_object_ref:n { l__hyp_ocg_view_dict_obj }
+        \c_space_tl
+        \driver_pdf_object_ref:n { l__hyp_ocg_print_dict_obj }
     }
     \edef\OBJ at OCGs{\the\pdflastobj\c_space_tl 0\c_space_tl R}
     \pdf_catalog_gput:nn
@@ -383,7 +379,7 @@
         \pdfpageresources{
           \the\pdfpageresources
           /Properties<<
-            /OCView ~ \driver_pdf_object_ref:n { l__hyp_ocg_view_obj}
+            /OCView ~ \driver_pdf_object_ref:n { l__hyp_ocg_view_dict_obj}
             /OCPrint\c_space_tl \OBJ at OCG@print
           >>
         }