[latex3-commits] [git/LaTeX3-latex3-pdfresources] backendtest, master: formfield changes (4cb0369)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branches: backendtest,master
Link       : https://github.com/latex3/pdfresources/commit/4cb0369b2429520c5efe679f6c1305a46e874458

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

commit 4cb0369b2429520c5efe679f6c1305a46e874458
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Mon Oct 21 20:06:36 2019 +0200

    formfield changes


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

4cb0369b2429520c5efe679f6c1305a46e874458
 experiments/bdc-properties.tex |   4 ++
 experiments/formpushfields.tex |   2 +-
 hgeneric-experimental.def      | 119 +++++++++++++++++++++--------------------
 3 files changed, 67 insertions(+), 58 deletions(-)

diff --git a/experiments/bdc-properties.tex b/experiments/bdc-properties.tex
index 2d44fa1..c87d9bd 100644
--- a/experiments/bdc-properties.tex
+++ b/experiments/bdc-properties.tex
@@ -31,5 +31,9 @@
 \pdf_bdc:nn {Span}{objB}xxx
 \pdf_emc:
 
+\pdf_object_now:nn {dict}{/ActualText(xyz)}
+\pdf_bdc:n {Span}xx3
+\pdf_emc:
+
 \ExplSyntaxOff
 \end{document} 
\ No newline at end of file
diff --git a/experiments/formpushfields.tex b/experiments/formpushfields.tex
index 6134ef9..ca298a2 100644
--- a/experiments/formpushfields.tex
+++ b/experiments/formpushfields.tex
@@ -10,7 +10,7 @@
 [action=mailto:test at testnet.com,encoding=html, method=post]
 \TextField[charsize={10pt},multiline=true,height={35mm},width={5cm},name={text_info1},bordercolor={0.2 0.2 0.7},default={}]{}
 
-\Submit{Submitxxxxxxxxxxx}
+\Submit{Submitxxxxxxxxxx}
 
 \TextField[charsize={10pt},multiline=true,height={35mm},width={5cm},name={text_info2},bordercolor={0.2 0.2 0.7},default={}]{}
 
diff --git a/hgeneric-experimental.def b/hgeneric-experimental.def
index a56e359..64fa13c 100644
--- a/hgeneric-experimental.def
+++ b/hgeneric-experimental.def
@@ -1304,71 +1304,76 @@
           /D~\pdf_xform_ref:n {__hyp_xform_SubmitP}
          >>
        }
-      { \box_use:N\l_tmpa_box }
       \HyField at AddToFields
+      \box_use:N\l_tmpa_box
+
     \group_end:
  }
 
 \def\@Reset[#1]#2
  {
-  \def\Fld at width{\DefaultWidthofReset}
-  \def\Fld at height{\DefaultHeightofReset}
-  \group_begin:
-    \exp_args:No\HyField at SetKeys
-     {
-       \DefaultOptionsofReset,#1
-     }
-    \mode_leave_vertical:
-    \bool_if:NTF \l__hyp_pdfa_bool
-     {
-      \msg_error:nn { hyp }{ pdfa-no-reset-button }
-      \MakeButtonField{#2}
-     }
-     {
-      \HyField at FlagsPushButton
-      \ifFld at hidden\def\Fld at width{1sp}\fi
-      \HyAnn at AbsPageLabel
-      \Hy at escapeform\PDFForm at Reset
-      \pdf_link_user:nnn
-       {widget} %perhaps more types needed
-       {\PDFForm at Reset}
-       {\MakeButtonField{#2}}
-      \HyField at AddToFields
-     }
-  \group_end:
-}
+   \def\Fld at width {\DefaultWidthofReset}
+   \def\Fld at height{\DefaultHeightofReset}
+   \group_begin:
+     \exp_args:No\HyField at SetKeys
+       {
+         \DefaultOptionsofReset,#1
+       }
+     \mode_leave_vertical:
+     \bool_if:NTF \l__hyp_pdfa_bool
+       {
+         \msg_error:nn { hyp }{ pdfa-no-reset-button }
+         \MakeButtonField{#2}
+       }
+       {
+         \HyField at FlagsPushButton
+         \legacy_if:nT { Fld at hidden }
+           { \def\Fld at width{1sp} }
+         \HyAnn at AbsPageLabel
+         \Hy at escapeform\PDFForm at Reset
+         \hbox_set:Nn \l_tmpa_box { \MakeButtonField {#2}}
+         \pdf_annotation:nnnn
+           {\box_wd:N\l_tmpa_box}
+           {\box_ht:N\l_tmpa_box}
+           {\box_dp:N\l_tmpa_box} %is this correct?
+           { \PDFForm at Reset }
+         \HyField at AddToFields
+         \box_use:N \l_tmpa_box
+       }
+    \group_end:
+  }
 
 \def\@CheckBox[#1]#2
- {% parameters, label
-  \def\Fld at name{#2}
-  \def\Fld at default{0}
-  \group_begin:
-    \def\Fld at width {\DefaultWidthofCheckBox}
-    \def\Fld at height{\DefaultHeightofCheckBox}
-    \exp_args:No\HyField at SetKeys
-      {
-        \DefaultOptionsofCheckBox,#1
-      }
-    \PDFForm at Name
-    \HyField at FlagsCheckBox
-    \legacy_if:nT { Fld at hidden }
-      {
-        \def\Fld at width{1sp}
-      }
-    \LayoutCheckField{#2}
-      {
-        \mode_leave_vertical:
-        \HyAnn at AbsPageLabel
-        \Hy at escapeform\PDFForm at Check
-        \pdf_annotation:nnnn
-          {\Fld at width}
-          {\Fld at height}
-          {0pt} %is this correct?
-          {\PDFForm at Check}
-        \HyField at AddToFields %check if this works with xelatex ...
-      }
-  \group_end:
-}
+  {% parameters, label
+    \def\Fld at name{#2}
+    \def\Fld at default{0}
+    \group_begin:
+      \def\Fld at width {\DefaultWidthofCheckBox}
+      \def\Fld at height{\DefaultHeightofCheckBox}
+      \exp_args:No\HyField at SetKeys
+        {
+          \DefaultOptionsofCheckBox,#1
+        }
+      \PDFForm at Name
+      \HyField at FlagsCheckBox
+      \legacy_if:nT { Fld at hidden }
+        {
+          \def\Fld at width{1sp}
+        }
+      \LayoutCheckField{#2}
+        {
+          \mode_leave_vertical:
+          \HyAnn at AbsPageLabel
+          \Hy at escapeform\PDFForm at Check
+          \pdf_annotation:nnnn
+            {\Fld at width}
+            {\Fld at height}
+            {0pt} %is this correct?
+            {\PDFForm at Check}
+          \HyField at AddToFields %check if this works with xelatex ...
+        }
+    \group_end:
+  }
 \ExplSyntaxOff
 
 %hm. Should a luatex driver use type1 fonts in fields????