stable 2003.07.21

1 files changed, 22 insertions, 9 deletions

diff --git a/tex/context/base/spec-dpm.tex b/tex/context/base/spec-dpm.tex
index 92b0f682b..2ddbe4f94 100644
--- a/tex/context/base/spec-dpm.tex
+++ b/tex/context/base/spec-dpm.tex
@@ -300,34 +300,37 @@
 
 \newif\ifsharePDFactions \sharePDFactionsfalse
 
-\def\doPDFaction width #1 height #2 action #3%
+\def\dodoPDFaction#1#2#3#4%
   {\ifcollectreferenceactions 
-     \xdef\lastPDFaction{#3}%
+     \xdef\lastPDFaction{#4}%
    \else
      \bgroup
     % this is yet untested 
     %\ifsharePDFactions
     %  \ifcase\similarreference\relax
-    %    \xdef\lastPDFaction{<<#3>>}%
+    %    \xdef\lastPDFaction{<<#4>>}%
     %  \or
     %    \global\advance\nofPDFsimilar by 1
-    %    \special{pdf: object @PDF::sim:\the\nofPDFsimilar\space<<#3>>}%
+    %    \special{pdf: object @PDF::sim:\the\nofPDFsimilar\space<<#4>>}%
     %    \xdef\lastPDFaction{@PDF::sim:\the\nofPDFsimilar}%
     %  \else
     %    % leave \lastPDFaction untouched 
     %  \fi
     %\else
-       \xdef\lastPDFaction{<<#3>>}%
+       \xdef\lastPDFaction{<<#4>>}%
     %\fi
-     \scratchdimen#1\edef\width {\the\scratchdimen\space}%
-     \scratchdimen#2\edef\height{\the\scratchdimen\space}%
-     \special{pdf: ann width \width height \height
+     \scratchdimen#2\edef\width {\the\scratchdimen\space}%
+     \scratchdimen#3\edef\height{\the\scratchdimen\space}%
+     \special{pdf: ann #1 width \width height \height
        <</Subtype /Link /Border [0 0 0]
          \ifhighlighthyperlinks \else /H /N \fi
          /A \lastPDFaction\space>>}%
      \egroup
    \fi}
 
+\def\doPDFaction width #1 height #2 action #3%
+  {\dodoPDFaction\empty{#1}{#2}{#3}}
+
 \def\doPDFannotation width #1 height #2 data #3%
   {\bgroup
    \scratchdimen#1\edef\width {\the\scratchdimen\space}%
@@ -337,7 +340,7 @@
    \egroup}
 
 %D \macros
-%D   {doPDFannotationobject}
+%D   {doPDFannotationobject,doPDFactionobject}
 
 \def\doPDFannotationobject class #1 name #2 width #3 height #4 data #5%
   {\bgroup
@@ -347,6 +350,10 @@
    \dosetobjectreference{#1}{#2}{@#1::#2}%
    \egroup}
 
+\def\doPDFactionobject class #1 name #2 width #3 height #4 action #5%
+  {\dodoPDFaction{@#1::#2}{#3}{#4}{#5}%
+   \dosetobjectreference{#1}{#2}{#1::#2}}
+
 %D \macros
 %D   {doPDFaddtocatalog,doPDFaddtoinfo,
 %D    doPDFpageattribute,doPDFpagesattribute}
@@ -397,6 +404,12 @@
   {\dogetobjectreference{#1}{#2}#3%
    \ifx#3\empty\else\edef#3{{#3}}\fi}
 
+% \def\doPDFgetobjectpage         #1#2#3{..}
+% \def\doPDFgetobjectpagereference#1#2#3{..}
+
+\def\doPDFgetpagereference#1#2%
+  {\edef#2{@page#1}}
+
 %D Done.
 
 \stopspecials