[latex3-commits] [git/LaTeX3-latex3-pdfresources] textfields: storing, not quite right (20735fd)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : textfields
Link       : https://github.com/latex3/pdfresources/commit/20735fdec6afa94bf32b7a42bf01e369d54a2e6a

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

commit 20735fdec6afa94bf32b7a42bf01e369d54a2e6a
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Sat May 8 00:50:20 2021 +0200

    storing, not quite right


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

20735fdec6afa94bf32b7a42bf01e369d54a2e6a
 l3pdffield-checkbox.dtx | 9 +++++++--
 l3pdffield.dtx          | 5 +++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/l3pdffield-checkbox.dtx b/l3pdffield-checkbox.dtx
index 2ada49d..125040e 100644
--- a/l3pdffield-checkbox.dtx
+++ b/l3pdffield-checkbox.dtx
@@ -386,6 +386,7 @@
     \group_begin:
     \keys_set_known:nnN {pdffield / checkbox }
       {
+        fieldname=,
         name=checkbox,
         appearance = checkbox/default,
         #1
@@ -397,8 +398,11 @@
         ,unsetFf={Radio,Pushbutton}
         ,FT= Btn
       }
-    \pdfdict_get:nnN {l_@@/field}{T}\l_@@_tmpa_tl
-    \@@_checkbox_field:V\l_@@_tmpa_tl
+    \tl_if_empty:NT \l_@@_fieldname_tl
+      {
+        \pdfdict_get:nnN {l_@@/field}{T}\l_@@_fieldname_tl
+      }
+     \@@_checkbox_field:V\l_@@_fieldname_tl
     \@@_annot:
     \group_end:
   }
@@ -425,6 +429,7 @@
     ,name .initial:n        = checkbox
     ,altname .meta:nn       = {pdffield/field}{TU=#1}
     ,mappingname .meta:nn   = {pdffield/field}{TM=#1}
+    ,fieldname .tl_set:N    = \l_@@_fieldname_tl
   }
 %    \end{macrocode}
 
diff --git a/l3pdffield.dtx b/l3pdffield.dtx
index a42aafb..8514738 100644
--- a/l3pdffield.dtx
+++ b/l3pdffield.dtx
@@ -505,7 +505,8 @@
 \tl_new:N  \l_@@_tmpa_keys_tl
 \cs_new_protected:Npn \@@_tmpa:n #1 {}
 \cs_new_protected:Npn \@@_tmpa:nn #1 #2 {}
-\tl_new:N  \l_@@_currentparent_tl
+\tl_new:N \l_@@_currentparent_tl
+\tl_new:N \l_@@_fieldname_tl
 %    \end{macrocode}
 %
 % \subsection{messages}
@@ -761,7 +762,7 @@
     ,FT .choices:nn =
       { Btn, Tx, Ch, Sig }
       {
-        \pdfdict_put:nnn { l_@@/field }{FT}{ #1 }
+        \pdfdict_put:nnn { l_@@/field }{FT}{ /#1 }
       }
     ,V .code:n =
      {