% \iffalse % makeindex -s gglo.ist -o eforms.gls eforms.glo % makeindex -s gind.ist -o eforms.ind eforms.idx %<*copyright> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% eForms package, %% %% Copyright (C) 2002-2018 D. P. Story %% %% dpstory@uakron.edu %% %% %% %% This program can redistributed and/or modified under %% %% the terms of the LaTeX Project Public License %% %% Distributed from CTAN archives in directory %% %% macros/latex/base/lppl.txt; either version 1 of the %% %% License, or (at your option) any later version. %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %\NeedsTeXFormat{LaTeX2e} %\ProvidesPackage{eforms} % [2018/03/22 v2.9.19 Provides general eforms support (dps)] %<*driver> \documentclass{ltxdoc} \usepackage[colorlinks,hyperindex=false]{hyperref}[2012/10/12] \pdfstringdefDisableCommands{\let\\\textbackslash} \OnlyDescription \EnableCrossrefs \CodelineIndex \RecordChanges \bgroup\ttfamily \gdef\brpr#1{\char123\relax#1\char125\relax}\egroup \let\darg\brpr \let\env\texttt \let\opt\texttt \let\app\textsf \def\visispace{\symbol{32}} \def\ameta#1{\ensuremath{\langle\textit{\texttt{#1}}\rangle}} \def\meta#1{\textsl{\texttt{#1}}} \def\SUB#1{\ensuremath{{}_{\mbox{\scriptsize\ttfamily#1}}}} \def\ltag{<}\def\rtag{>} \let\app\textsf\let\pkg\textsf \InputIfFileExists{aebdocfmt.def}{\PackageInfo{eforms}{Inputting aebdocfmt.def}} {\def\IndexOpt{\DescribeMacro}\def\IndexKey{\DescribeMacro} \let\setupFullwidth\relax \PackageInfo{eforms}{aebdocfmt.def cannot be found}} \begin{document} \GetFileInfo{eforms.sty} \title{eForm: PDF Form support for \LaTeX} \author{D. P. Story\\ Email: \texttt{dpstory@uakron.edu}} \date{processed \today} \maketitle \tableofcontents \let\Email\texttt \DocInput{eforms.dtx} \IfFileExists{\jobname.ind}{\newpage\setupFullwidth\PrintIndex}{\paragraph*{Index} The index goes here.\\Execute \texttt{makeindex -s gind.ist -o eforms.ind eforms.idx} on the command line and recompile \texttt{eforms.dtx}.} \IfFileExists{\jobname.gls}{\PrintChanges}{\paragraph*{Change History} The list of changes goes here.\\Execute \texttt{makeindex -s gglo.ist -o eforms.gls eforms.glo} on the command line and recompile \texttt{eforms.dtx}.} \end{document} % % \fi % % \MakeShortVerb{|} % \InputIfFileExists{aebdonotindex.def}{\PackageInfo{eforms}{Inputting aebdonotindex.def}} % {\PackageInfo{eforms}{aebdonotindex.def cannot be found}} % % \begin{macrocode} %<*package> % \end{macrocode} % % \section{Introduction} % % This {\LaTeX} code was originally part of the \textsf{exerquiz} package. % I decided it would be useful to others if I separated the two and make % the forms part of \textsf{exerquiz} into a separate package. The % \textsf{eforms} Package is now a part of the \textsf{{Acro\TeX} eDucation % Bundle} and is called by \textsf{exerquiz}, but it is now a stand alone % package for others who may want to use PDF form fields and JavaScript % interactivity. % % \section{Package Options} % % The package options consist mostly of driver options. % % \subsection{Driver Options} % % The \textsf{web} package passes these driver options to \textsf{exerquiz}. % These options are needed is \textsf{exerquiz} is used without % \textsf{web}; in this case, the options below must explicitly included. % Set the driver dependent code for the |quiz| environments. % % \changes{v2.5o}{2012/06/18}{Added required package \string\textsf{ifpdf}} % \changes{v2.9m}{2017/09/03}{Added the ifluatex package} % \begin{macrocode} \RequirePackage{ifpdf}[2006/02/20] \RequirePackage{ifxetex}[2006/08/21] \RequirePackage{ifluatex} % \end{macrocode} % \changes{v2.6c}{2014/02/18}{Added the \string\textsf{calc} package as required package.} % \begin{macrocode} \RequirePackage{calc} % \end{macrocode} % Set the driver for \texttt{dvipsone}\IndexOpt{dvipsone} % \begin{macrocode} \let\ef@driver\@empty \DeclareOption{dvipsone}{\def\eq@drivernum{0}% \def\eq@drivername{0}\def\ef@driver{dvipsone}% \PassOptionsToPackage{dvipsone}{insdljs}% \PassOptionsToPackage{dvipsone}{hyperref}% } \def\eq@drivername{2} % \end{macrocode} % Set the driver for \texttt{dvips}\IndexOpt{dvips} % \begin{macrocode} \DeclareOption{dvips}{\def\eq@drivernum{0}% \def\eq@drivername{1}\def\ef@driver{dvips}% \PassOptionsToPackage{dvips}{insdljs}% \PassOptionsToPackage{dvips}{hyperref}% } % \end{macrocode} % Set the driver for \texttt{pdftex}\IndexOpt{pdftex} % \begin{macrocode} \DeclareOption{pdftex}{% \def\eq@drivernum{1}\def\eq@driver{pdftex}% \def\eq@drivercode{epdftex.def}\def\ef@driver{pdftex}% % \end{macrocode} % \changes{v2.9b}{2016/07/22}{Do not pass pdftex driver to insdljs or hyperref} % \begin{macrocode} % \PassOptionsToPackage{pdftex}{insdljs} % \PassOptionsToPackage{pdftex}{hyperref} } % \end{macrocode} % Added \textsf{luatex} option % \changes{v2.9m}{2017/09/03}{Add luatex option} % \begin{macrocode} \DeclareOption{luatex}{% \def\eq@drivernum{1}\def\eq@driver{luatex}% \def\eq@drivercode{epdftex.def}\def\ef@driver{luatex}% } % \end{macrocode}% % Set the drivers for \texttt{dvipdfm}\IndexOpt{dvipdfm}. \texttt{dvipdfmx}\IndexOpt{dvipdfmx}, % and \texttt{xetex}\IndexOpt{xetex}. % \begin{macrocode} \DeclareOption{dvipdfm}{% \def\eq@drivernum{2}\def\eq@driver{dvipdfm}% \def\eq@drivercode{edvipdfm.def}\def\ef@driver{dvipdfm}% \PassOptionsToPackage{dvipdfm}{insdljs} \PassOptionsToPackage{dvipdfm}{hyperref} } \DeclareOption{dvipdfmx}{% \def\eq@drivernum{2}\def\eq@driver{dvipdfmx}% \def\eq@drivercode{edvipdfm.def}\def\ef@driver{dvipdfmx}% \PassOptionsToPackage{dvipdfmx}{insdljs} \PassOptionsToPackage{dvipdfmx}{hyperref} } \DeclareOption{xetex}{% \def\eq@drivernum{2}\def\eq@driver{xetex}% \def\eq@drivercode{edvipdfm.def}\def\ef@driver{xetex}% % \end{macrocode} % \changes{v2.9b}{2016/07/22}{Do not pass xetex driver to insdljs or hyperref} % \begin{macrocode} % \PassOptionsToPackage{xetex}{insdljs} % \PassOptionsToPackage{xetex}{hyperref} } % \end{macrocode} % \IndexOpt{textures} % This option, and testing are due to Ross Moore 3/6/02 % \begin{macrocode} \DeclareOption{textures}{% \def\eq@drivernum{3}\def\eq@driver{textures}% \def\eq@drivercode{epdfmark.def}\def\ef@driver{textures}% \PassOptionsToPackage{textures}{insdljs}% \PassOptionsToPackage{textures}{hyperref} } % \end{macrocode} % If no driver is passed, assume it is % \textsf{dvipsone} or \textsf{dvips}---\textsf{hyperref} defines the specials. % Default driver dvipsone/dvips % \begin{macrocode} % \def\eq@drivernum{0} \def\eq@driver{dvipsone/dvips} \def\eq@drivercode{epdfmark.def} % \end{macrocode} % % \subsection{Other Options} % % The \texttt{preview}\IndexOpt{preview} option displays the bounding box of each form field with a frame box. % Useful for laying out field with a dvi previewer. % \changes{v2.5n}{2012/04/30}{Changed \string\cs{ifpreview} to a conditional % definition; this allows the \string\textsf{spdef} package to control the state % of \cs{ifpreview}.} % \begin{macrocode} \DeclareOption{preview}{\previewtrue} \DeclareOption*{\PassOptionsToPackage{\CurrentOption}{insdljs}} \@ifundefined{ifpreview}{\newif\ifpreview \previewfalse}{} % \end{macrocode} % (2017/01/01) Added two convenience commands. % \changes{v2.9f}{2017/01/01}{Added \string\cs{previewOn} and \string\cs{previewOff}} % \begin{macrocode} \providecommand{\previewOn}{\previewtrue} \providecommand{\previewOff}{\previewfalse} % \end{macrocode} % Use\IndexOpt{useui} the \textsf{xkeyval} package to specify the options for the links and % forms, key-values are enclosed in the \cs{ui} command inside the option list. % \changes{v2.0}{2008/03/14} % { % Added the \string\texttt{useui} option, which inputs \string\textsf{xkeyval} package, % and defines a user-friendly interface to the option arguments. % } % \begin{macrocode} \DeclareOption{useui}{\AtEndOfPackage{\ef@InputUIeForms}} \def\ef@InputUIeForms{\InputIfFileExists{uieforms.def}% {\PackageInfo{eforms}{Inputting code for useui option}}% {\PackageInfo{eforms}{Cannot find uieforms.def.\MessageBreak Reinstall or refresh your file name database.}}} % \end{macrocode} % The \texttt{setcorder} option\IndexOpt{setcorder} is used to set the calculation order % in a forms document. Normally, the calculation order is the order the fields are created. % \begin{macrocode} \DeclareOption{setcorder}{\def\inputCalcOrderJS{% \InputIfFileExists{setcorder.def}% {\PackageInfo{eforms}{Inputting code for setcorder option}}% {\PackageWarning{eforms}{Cannot find setcorder.def.\MessageBreak Reinstall or refresh your file name database.}}}} \let\inputCalcOrderJS\relax % \end{macrocode} % \changes{v2.5o}{2012/06/18}{Added automatic test for \string\textsf{pdftex}.} % \changes{v2.9m}{2017/09/03}{Added a check for \string\textsf{lualtex}} % \begin{macrocode} \@ifpackageloaded{web}{% \ExecuteOptions{\eq@driver@name}% }{% \@ifpackageloaded{exerquiz}{% \ExecuteOptions{\eq@driver}% }{% \ifluatex\ExecuteOptions{luatex}\else \ifpdf\ExecuteOptions{pdftex}\else \ifxetex\ExecuteOptions{xetex}\else \@ifundefined{l@tex@@@@driver}{\ExecuteOptions{dvips}} {\ExecuteOptions{dvipsone}}\fi\fi\fi }% } % \end{macrocode} % \begin{macrocode} \ProcessOptions \ifx\ef@driver\@empty \PackageError{eforms}% {You have not specified dvips, dvipsone, pdftex,\MessageBreak dvipdfm, dvipdfmx, or xetex in the option list of\MessageBreak the eforms package} {Place one of the drivers dvips, dvipsone, pdftex, dvipdfm, dvipdfmx, or xetex \MessageBreak in the option list of the eforms package.}% }{} \fi \newlength\eflength \@ifundefined{ifpdfmarkup}{\newif\ifpdfmarkup}{}\pdfmarkupfalse \ifpdf\else\ifxetex\else\pdfmarkuptrue\fi\fi \RequirePackage{hyperref} % \end{macrocode} % Changed \textsf{hyperref} definitions/parameters to add \texttt{1bp} rather than \texttt{1pt} around a form field % or link. % \changes{v2.9e}{2016/12/22}{Changed hyperref to add 1bp rather than 1pt} % \begin{macrocode} \ifxetex\else\ifpdf\pdflinkmargin1bp\relax\else \g@addto@macro\Hy@FirstPageHook{% \headerps@out{/HyperBorder {1.00375 PDFToDvips} def}} \fi\fi % \end{macrocode} % Changed the requirement for \textsf{insdljs} % \changes{v2.9a}{2016/06/09}{Change in \string\textsf{insdljs} package} % \changes{v2.9g}{2017/01/03}{Change in \string\textsf{insdljs} package} % \begin{macrocode} \RequirePackage{insdljs}[2017/01/03] % incl conv-xkv % \end{macrocode} % \changes{v1.0a}{2006/10/03} % { % If \string\textsf{exerquiz} is not loaded, we do an automatic begin and end of Form. % Also, if \string\textsf{exerquiz} is loaded, then we use the driver declared in % \string\textsf{exerquiz}; otherwise, we set the default to 0 % (\string\texttt{dvipsone}/\string\texttt{dvips}). % } % If exerquiz is not loaded, we insert |\begin{Form}| and |\end{Form}|, % and if undefined, we set the default driver. % \begin{macrocode} \@ifpackageloaded{exerquiz}{}{% \AtBeginDocument{\Form} \AtEndDocument{\csname endForm\endcsname} } \@ifpackageloaded{aeb_pro}{}{% \newcommand{\taggedPDF}{% \ifnum\eq@drivernum=0\relax \literalps@out{[{Catalog} <<% /MarkInfo<>% >> /PUT pdfmark}\fi}% } \let\ef@YES=y \let\ef@NO=n \let\ef@One=1 \let\ef@Zero=0 \ifnum\eq@drivername<2 \let\to@usepdfmark\ef@One \RequirePackage[structure]{taborder}\else \let\to@usepdfmark\ef@Zero \RequirePackage{taborder} \fi % \end{macrocode} % \begin{macrocode} % % \end{macrocode} % When the \texttt{preview} option is used, draw a frame box % around the \textit{inner} bounding rectangle. % \begin{macrocode} %<*package> \@ifundefined{eq@tmpbox}{\newsavebox{\eq@tmpbox}}{} \@ifundefined{eq@tmpdima}{\newdimen\eq@tmpdima}{} \@ifundefined{eq@tmpdimb}{\newdimen\eq@tmpdimb}{} \newlength\ef@dimena \newtoks\ef@scratchtoks % \end{macrocode} % (2016/12/22) Added switches \cs{ifmakeXasPD} and \cs{ifmakePDasX}, if true, the form fields created % by \app{xetex} (\app{pdflatex/Distiller}) % are adjusted in dimension to conform to the fields produced by \app{pdftex}/\app{Distiller} (\app{xetex}). % Four convenience commands are defined, \DescribeMacro{\makeXasPDOn}\cs{makeXasPDOn}, % \DescribeMacro{\makeXasPDOff}\cs{makeXasPDOff}, \DescribeMacro{\makePDasXDOn}\cs{makePDasXDOn}, and % \DescribeMacro{\makePDasXDOff}\cs{makePDasXDOff} to set the switch to true and false, respectively. % \changes{v2.9d}{2016/12/22}{Added switches \string\cs{ifmakeXasPD} and \string\cs{ifmakePDasX}} % \begin{macrocode} \newif\ifmakeXasPD \makeXasPDtrue % 12/22 \newif\ifmakePDasX \makePDasXfalse \def\makeXasPDOn{\makeXasPDtrue\makePDasXfalse} \def\makeXasPDOff{\makeXasPDfalse} \def\makePDasXOn{\makePDasXtrue\makeXasPDfalse} \def\makePDasXOff{\makePDasXfalse} % \end{macrocode} % \changes{v2.8a}{2015/06/06}{Added \string\cs{previewColor}} % \DescribeMacro\previewColor sets the color of the preview bounding rectangle. The % default is black. Used mostly by the \textsf{eqexam} package with the \texttt{online} % option. % \changes{v2.9o}{2017/10/10}{Removed \string\cs{previewColor} in favor of % \string\cs{ckboxColor}} % \begin{macrocode} \providecommand\ckboxColor[1]{\def\@rgi{#1}\ifx\@rgi\@empty \let\ckbox@Color\relax\else \def\ckbox@Color{\color{#1}}\fi}\let\ckbox@Color\relax \def\ef@Bbox#1#2{\hbox{\ifpreview \setlength\fboxrule{0.4pt}\setlength\fboxsep{0pt}% \@tempdima=#1\advance\@tempdima by-\fboxrule \@tempdimb=#2\advance\@tempdimb by-\fboxrule \ckbox@Color \fbox{\parbox[b][\@tempdimb][c]{\@tempdima}{\hfill\vfill}}\else \parbox[b][#2][c]{#1}{\hfill\vfill}\fi}% } \let\Bbox\ef@Bbox % % \end{macrocode} % \section{eForms Support} % \begin{macrocode} %<*package> % \end{macrocode} % Listed below are the various types of form objects available in PDF. %\begin{itemize} % \item \hyperref[button]{Button} % \begin{itemize} % \item \hyperref[pushbutton]{Push buttons} % \item \hyperref[checkbox]{Check boxes} % \item \hyperref[radiobutton]{Radio Buttons} % \end{itemize} % \item \hyperref[textfield]{Text Fields} % \item \hyperref[choice]{Choice Fields} % \begin{itemize} % \item \hyperref[listbox]{list box} % \item \hyperref[combobox]{combo box} % \end{itemize} %\item \hyperref[sigfield]{Signature Fields} %\end{itemize} % \normalcolor % % \subsection{Process Key-Value Pairs: Main Macro}\label{procArgs} % % The following macro, \cs{processAppArgs}, is due in part to % Dan Luecking. He proposed a very nice modification of my original % macros. % % The macro \cs{processAppArgs} takes an \textit{even} number of arguments; it % picks off two at a time, processes them, then picks off two more. The macro is meant to % process the optional arguments of a form field. % % All legal arguments (see \nameref{eformvariables} for a detailed % listing) are of the form |\{arg}|. % The macro takes two tokens at a time and constructs a macro % |\@eq{arg}|. Each of the macros |\@eq| must be % defined. Such a macro defines another macro as follows % |\def\eq@{arg}|. For example if the user enters the token % pair |\RC{Users}|, \cmd{\processAppArgs} will construct % |\@eqRC|, with argument \verb+{arg}+, this macro will be % executed, which expands to \verb+\def\eq@RC{arg}+. The macro % \cmd{\eq@RC} may then be used within the construction of the % widget object. % % The macro \cs{processAppArgs} also does the addition operation for % \texttt{/F} and \texttt{/Ff} keys. % \begin{macrocode} \let\ef@passedArgs\@empty \def\processAppArgs#1#2{% \ifx\end#1% if #1=\end, #2=\@nil. \let\ef@next\relax \else % \end{macrocode} % If a token has a value of \cs{@empty} then it has been protected. It is skipped % and there is no user redefinition of that form field attribute allowed. Normally, % this is done for \cs{A} and \cs{AA} to prevent overwriting critical functionality. % \begin{macrocode} \ifx#1\@empty \def\ef@next{\processAppArgs}% \else % \end{macrocode} % This is the user interface to the new optional argument of links and forms. If % the key is \cs{ui}, we pass its argument to |\setkeys{eforms}{#2}| to process % the key values of \textsf{xkeyval} style. If one of the keys is \texttt{annotflags} or % \texttt{fieldflags}, we pass those back to this stream to be analyzed the special cases % that follow for |\F| and |\Ff|. % \begin{macrocode} \@getCmdName{\ui}\edef\arg@ui{\@CmdName}% \@getCmdName{#1}% \ifx\arg@ui\@CmdName \@ifundefined{@equi}{\PackageError{eforms}% {The user interface '\string\ui' is not defined!% \MessageBreak Use the useui option of eforms and try again}{I said, use the useui option of eforms and try again!}}{}% \def\ef@next{\setkeys{eforms}{#2}% \processAppArgs\presets{\ef@passedArgs}}% \else % \end{macrocode} % If current key is |\Ff|, we add its value to the current value of |\Ff|. % We basically are `or-ing' the new value with the old value in the bit field. % \begin{macrocode} \@getCmdName{\Ff}\edef\arg@Ff{\@CmdName}% \@getCmdName{#1}% \ifx\arg@Ff\@CmdName % if \Ff, let's add arguments \ifx\eq@Ff\@empty\def\eq@FfValue{0}\else \expandafter\getFfValue\eq@Ff\@nil\fi \@tempcnta=\eq@FfValue \def\eq@arg{#2}% \ifx\eq@arg\@empty\else \advance\@tempcnta by#2\fi \edef\eq@Ff{/Ff \the\@tempcnta}% \def\ef@next{\processAppArgs}% \else % \end{macrocode} % If current key is |\F|, we add its value to the current value of |\F|. % We basically are ```or-ing'' new value with the old value in the bit field. % \begin{macrocode} \@getCmdName{\F}\edef\arg@F{\@CmdName}% \@getCmdName{#1}% \ifx\arg@F\@CmdName % if \Ff, let's add arguments \ifx\eq@F\@empty\def\eq@FValue{0}\else \expandafter\getFValue\eq@F\@nil\fi \@tempcnta=\eq@FValue \def\eq@arg{#2}% \ifx\eq@arg\@empty\else \advance\@tempcnta by#2\fi \edef\eq@F{/F \the\@tempcnta}% \def\ef@next{\processAppArgs}% \else % \end{macrocode} % If the key we are processing is \cs{presets}, then use \cs{expandafter} to % expand its argument (it is assumed the argument is a macro), then put it back % into the input stream. % \begin{macrocode} \@getCmdName{\presets}% \edef\arg@presets{\@CmdName}\@getCmdName{#1}% \ifx\arg@presets\@CmdName \def\ef@next{\expandafter\processAppArgs#2}% \else % \end{macrocode} % This is the last, and the most frequent case. We process a common key, one % that is not |\presets|, |\ui|, |\Ff| or |\F|. % \begin{macrocode} \csname @eq% \expandafter\@gobble\string#1\endcsname{#2}% \def\ef@next{\processAppArgs}% \fi \fi \fi \fi \fi \fi \ef@next } % \end{macrocode} % Process the field defaults and the `every' changes. Build up the required command % in a token list, then execute. % \begin{macrocode} \def\@processEvery{\edef\eqtemp{}\toks0={}\@@processEvery} \def\@@processEvery#1{% \ifx#1\end\def\ef@next{\the\toks0 }% \else \edef\eqtemp{\the\toks0 }% \toks0=\expandafter{\eqtemp \expandafter\processAppArgs#1\end\@nil}% \def\ef@next{\@@processEvery}% \fi \ef@next } % \end{macrocode} % \begin{macrocode} \newdimen\eqcenterWidget % \end{macrocode} % This macro is used to vertically center text fields and buttons on a % line. Seems to work well. % \changes{v2.5h}{2012/11/17}{Introduce the \string\cs{inline} key designed for % inline form fields.} % \begin{macrocode} \def\centerWidget#1{% \ifeq@inlineCenter % \end{macrocode} % Inline form field, do a better job at centering it. % \begin{macrocode} \eqcenterWidget=#1\relax \eqcenterWidget=.5\eqcenterWidget \ifnum\eq@textSize=0\relax \dimen@=-\eq@textSizeDefault bp\else \dimen@=-\eq@textSize bp\fi \dimen@=0.9167\dimen@ % 11/12 \dimen@=.5\dimen@ \advance\dimen@\eq@W@value bp \ifx\eq@S\@empty\else \def\eq@S@cmp{B}% \ifx\eq@S@value\eq@S@cmp \advance\dimen@ by \eq@W@value bp \else \def\eq@S@cmp{I}% \ifx\eq@S@value\eq@S@cmp \advance\dimen@ by \eq@W@value bp \else\advance\dimen@ by 1bp \fi\fi\fi \advance\eqcenterWidget by \dimen@ \else \eqcenterWidget=#1\relax \eqcenterWidget=.5\eqcenterWidget \advance\eqcenterWidget by -4bp \fi } % \end{macrocode} % \subsection{eForm Variables}\label{eformvariables} % % \subsubsection{Key-Value Definitions} % % The following definitions are used in various field templates. % Some convenience macros to help define the button attributes. The default % values are defined within the button macros themselves. Use these macros % within the optional argument of buttons and text fields to modify their % appearance. % % You'll notice, for example, the macros listed are not actually defined. For example % \cmd{\CA} is never actually defined; we define instead \cmd{\@eqCA} and \cmd{\eq@CA}. % The macros \cmd{\processAppArgs} treats \cmd{\CA} as a token, and prefixes with % \texttt{@eq} in a clever sort of way. It's done so that these macros cannot be used % outside the optional macro arguments of the button and text field macros. % % \paragraph*{Entries common to all annotation dictionaries:} % \texttt{F, BS, Border, AP, AS, T, A, AA}. % % \medskip\noindent\textsl{Annotation Flag Bit Field:} See \nameref{F} for values. % \begin{macrocode} \def\@eqF#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@F\@empty\else\def\eq@F{/F #1}\fi}\def\eq@F{} % \end{macrocode} % \DescribeMacro{\BS}The \textbf{Border Style} key, \texttt{BS}: \texttt{W}, \texttt{S}, \texttt{D} (dictionary, optional) % \begin{macrocode} \def\@eqBS#1{% \let\eq@BS=0\relax \ifx\eq@W\@empty\else\let\eq@BS=1\fi \ifx\eq@S\@empty\else\let\eq@BS=1\fi \ifx\eq@D\@empty\else\let\eq@BS=1\fi \edef\link@BS{\if\eq@BS1/BS<<\eq@W\eq@S\eq@D>>\fi}% \ifx\eq@W\@empty\let\link@BS\@empty\fi }\def\link@BS{} % \end{macrocode} % \changes{v1.0e}{2008/03/04} % { % Added a \string\cs{presets} key to make it easier to dynamically change options% % } % % \noindent\DescribeMacro{\presets} We define the \texttt{presets} key. The argument of presets is a macro, that is % expanded and put back into the parsing stream. % \begin{macrocode} \def\@eqpresets#1{#1}% % \end{macrocode} % \DescribeMacro{\W} The width of the boundary line. % \begin{macrocode} \def\@eqW#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@W\@empty\def\eq@W@value{0}\else \def\eq@W@value{#1}\def\eq@W{/W #1}\fi % \end{macrocode} % (2016/12/22) Add a global value for boundary width, used to adjust the spacing between form fields % \changes{v2.9d}{2016/12/22}{Add a global value for boundary width} % \begin{macrocode} \xdef\g@eq@W@value@bp{\eq@W@value bp}} \def\eq@W{}\def\eq@W@value{0} \def\g@eq@W@valu@bp{0bp} % dps 12/22 % \end{macrocode} % \DescribeMacro{\S} Line style, values are \texttt{S} (solid), \texttt{D} (dashed), % \texttt{B} (beveled), \texttt{I} (inset), \texttt{U} (underlined) % \begin{macrocode} \def\@eqS#1{\def\eq@S@value{#1}\ifx\eq@S@value\@empty \let\eq@S\@empty\else \def\eq@S{/S/#1}\def\eq@temp{D}% \ifx\eq@S@value\eq@temp \ifx\eq@D\@empty\def\eq@D{/D [3]}\fi \fi\fi}\def\eq@S{} % \end{macrocode} % \DescribeMacro{\D} The dash array. % \begin{macrocode} \def\@eqD#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@D\@empty\else \def\eq@D{/D [#1]}\fi}\def\eq@D{} % \end{macrocode} % \DescribeMacro{\Border} Used with \emph{link annotations}, an array of three numbers and an optional dash array. % If all three numbers are 0, no border is drawn % \begin{macrocode} \def\@eqBorder#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Border\@empty\else\def\eq@Border{/Border [#1]}\fi}% \def\eq@Border{/Border [0 0 0]} % \end{macrocode} % \DescribeMacro{\AP} Appearance dictionary, used mostly with check boxes % to define the `On' value. % \begin{macrocode} \def\@eqAP#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AP\@empty\else\def\eq@AP{/AP<<#1>>}\fi}% \let\eq@AP\@empty % \end{macrocode} % In the \texttt{AP} dictionary for checkboxes is the `On' value. % It is introduced into \texttt{AP} by passing a TeX parameter % normally, this variable is not used. % \begin{macrocode} \def\@eqOn#1{\def\eq@On{/#1}}\def\eq@On{/Yes} % \end{macrocode} % \DescribeMacro{\AS} Appearance state, normally used with check boxes and radio buttons when there are % more than one appearance. Advanced techniques only. % \begin{macrocode} \def\@eqAS#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AS\@empty\else\ifpdfmarkup\def\eq@AS{/AS(#1) cvn }\else \def\eq@AS{/AS/#1}\fi\fi}\def\eq@AS{} %\def\eq@setAS#1{\ifx\annot@type\annot@type@checkbox\@eqAS{#1}\else % \ifx\annot@type\annot@type@radio\@eqAS{#1}\fi\fi} % \end{macrocode} % \paragraph*{The A Dictionary.} In the \texttt{A} dictionary for actions. %\changes{v2.5a}{2009/12/22} %{% % Added special commands for processing the optional argument % for links. We search for keys words in order to set the % correct link color. \string\cs{ef@preprocessA} was defined to % execute these search routines, this is introduced % for in \string\cs{@eqA} (for \string\cs{rPage}). For links and % buttons, the command \string\cs{ef@preProcDefns} is also % inserted. %} % Added special commands for processing the optional argument % for links. We search for keys words in order to set the % correct link color. \cs{ef@preprocessA} was defined to % execute these search routines, this is introduced % for in \cs{@eqA} (for \cs{rPage}). For links and % buttons, the command \cs{ef@preProcDefns} is also % inserted. % \begin{macrocode} \def\ef@gobbleToendmarker#1\ef@endmarker{} \let\ef@endmarker\relax % \end{macrocode} % \textsf{eform} definitions of \texttt{true} and \texttt{false}, used in the search % algorithm. % \begin{macrocode} \def\ef@end{\end}\def\ef@true{true} % \end{macrocode} % This is the internal definition of |rPage|, a command is used % in the destination array and the \texttt{GoToR} action. When % we jump to page number, the number must be zero-based, so we % take the number provided by the author (1-based), descrement % by one, and re-define |rPage|. % \begin{macrocode} \def\ef@rPage#1{\@tempcnta=#1\relax\advance\@tempcnta-1 \edef\rPage##1{\the\@tempcnta}} % \end{macrocode} % We search for |\rPage| in the argument of |\eq@A|, get the page % number and decrement it. % \begin{macrocode} \long\def\ef@searchrPage#1\rPage#2#3\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\rPage{#2}\fi} % \end{macrocode} % When the user specifies |\mlLink{true}| in the option list, we branch off to % \cs{mlhypertext}. % \begin{macrocode} \def\ef@searchmlLink#1\mlLink#2#3\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\let\ef@mlLink\ef@Zero\else \ifx\ef@argii\ef@true\let\ef@mlLink\ef@One\else \let\ef@mlLink\ef@Zero\fi\fi} % \end{macrocode} % Search for \texttt{/GoToR}, if found, change the link color to |\@filecolor| % \begin{macrocode} \def\ef@searchGoToR#1/GoToR#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@filecolor}\fi \expandafter\ef@gobbleToendmarker\fi} % \end{macrocode} % Search for \texttt{/URI}, if found, change the link color to |\@urlcolor| % \begin{macrocode} \def\ef@searchURI#1/URI#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@urlcolor}\fi \expandafter\ef@gobbleToendmarker\fi} \def\ef@searchCmdURI#1\URI#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@urlcolor}\fi \expandafter\ef@gobbleToendmarker\fi} % \end{macrocode} % Search for \texttt{/Named}, if found, change the link color to |\@menucolor| % \begin{macrocode} \def\ef@searchNamed#1/Named#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@menucolor}\fi \expandafter\ef@gobbleToendmarker\fi} \def\ef@searchCmdNamed#1\Named#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@menucolor}\fi \expandafter\ef@gobbleToendmarker\fi} % \end{macrocode} % Search for \texttt{/Launch}, if found, change the link color to |\@runcolor| % \begin{macrocode} \def\ef@searchLaunch#1/Launch#2\@nil{\def\ef@argii{#2}% \ifx\ef@argii\ef@end\else\ifx\ef@linktxtcolor@set0% \def\ef@thislinkcolor{\@runcolor}\fi \expandafter\ef@gobbleToendmarker\fi} % \end{macrocode} % Executed by |\eq@A|, which calls the search routines defined above, at least % in the case of links. It also searches for |\rPage|. % \begin{macrocode} \def\ef@preprocessA#1{% \let\rPage\relax\edef\ef@argi{#1}% \ifx\annot@type\annot@type@link \expandafter\ef@searchGoToR\ef@argi/GoToR\end\@nil \expandafter\ef@searchURI\ef@argi/URI\end\@nil \expandafter\ef@searchCmdURI\ef@argi\URI\end\@nil \expandafter\ef@searchNamed\ef@argi/Named\end\@nil \expandafter\ef@searchCmdNamed\ef@argi\Named\end\@nil \expandafter\ef@searchLaunch\ef@argi/Launch\end\@nil \ef@endmarker\fi \let\rPage\ef@rPage \expandafter\ef@searchrPage\ef@argi\rPage\end\@nil } % \end{macrocode} % \DescribeMacro{\A} This is the \emph{action dictionary} (used by links and forms). If the argument % is empty, we do nothing, otherwise, we call |\ef@preprocessA|, then define % the \texttt{/A <<...>>} dictionary. % \begin{macrocode} \def\@eqA#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@A\@empty\else\ef@preprocessA{#1}% \def\eq@A{/A <<#1>>}\fi}\def\eq@A{} % \end{macrocode} % \DescribeMacro{\mlLink} This is a key for the \cs{setLink} command. If % we say \verb!\mlLink{true}! in the \cs{setLink} option list, we use % \cs{mlhypertext} from \texttt{aeb\_mlink}, if that package is loaded. % \begin{macrocode} \def\@eqmlLink#1{\def\eq@arg{#1}\ifx\eq@arg\ef@true \let\ef@mlLink\ef@One\else\let\ef@mlLink\ef@Zero\fi} % \end{macrocode} % \DescribeMacro{\Lock} The Lock key is used with signature fields, currently, there is % no nice user interface to this key. Typical entries are %\begin{verbatim} % \Lock{/Action/All} % all fields in the doc % \Lock{/Action/Include % include all fields listed in Fields % /Fields [(field1)(field2)...]} % \Lock{/Action/Exclude % exclude all fields listed in Fields % /Fields [(field1)(field2)...]} %\end{verbatim} % \begin{macrocode} \def\@eqLock#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Lock\@empty\else\def\eq@Lock{/Lock <<#1>>}\fi} \def\eq@Lock{} % \end{macrocode} %\paragraph*{Additional Actions.} % We search for \cs{AACalculate}. % The \cs{ef@searchCalc} searches for \cs{AACalculate}. If, for some reason, % \cs{AA\-Cal\-cu\-late} is within a pair of braces, this search will not find it, % so don't group \cs{AACalculate} within braces, there is no reason to do so % anyway. If we find \cs{AACalculate}, we set \cs{isCalculate} to \texttt{true}, which is normally % \texttt{false}. % \begin{macrocode} \newif\ifisCalculate\isCalculatefalse \def\ef@searchCalc#1\AACalculate#2\@nil{% \ifx#2\end\else\aftergroup\isCalculatetrue\fi } % \end{macrocode} % \DescribeMacro{\AA} (02/06/09) The argument of \cs{@eqAA} is nonempty, we search for the token \cs{AACalculate} % if found, we set \cs{ifisCalculate} to \texttt{true}. When the document author % uses the \cs{ui}, the key \cs{AA} is not used, so this change does not affect % this option. The user interface populates \cs{eq@AA} with a series of commands % that are either empty or expand to the correct code. % \begin{macrocode} \def\@eqAA#1{\def\eq@arg{#1}\ifx\eq@arg\@empty\let\eq@AA\@empty \else\begingroup\ef@searchCalc#1\AACalculate\end\@nil\endgroup \def\eq@AA{/AA <<#1>>}\fi} % \end{macrocode} % Begin some additional action definitions for the user interface option % \begin{macrocode} \def\eq@AA{/AA <<\eq@AAmouseup\eq@AAmousedown\eq@AAmouseenter% \eq@AAmouseexit\eq@AAonfocus\eq@AAonblur\eq@AAformat% \eq@AAkeystroke\eq@AAvalidate\eq@AAcalculate\eq@AApageopen% \eq@AApageclose\eq@AApagevisible\eq@AApageinvisible>>} % \end{macrocode} % \begin{macro}{AAmouseup} % \begin{macro}{AAmousedown} % \begin{macro}{AAmouseenter} % \begin{macro}{AAmouseexit} % \begin{macro}{AAonfocus} % \begin{macro}{AAonblur} % These keys are generated internally and put into the parsing stream when % the uses specifies actions using the user interface (|\ui|). % \begin{macrocode} \def\@eqAAmouseup#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAmouseup\@empty\else\def\eq@AAmouseup{/U<<\JS{#1}>>}\fi} \let\eq@AAmouseup\@empty \def\@eqAAmousedown#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAmousedown\@empty\else \def\eq@AAmousedown{/D<<\JS{#1}>>}\fi} \let\eq@AAmousedown\@empty \def\@eqAAmouseenter#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAmouseenter\@empty\else \def\eq@AAmouseenter{/E<<\JS{#1}>>}\fi} \let\eq@AAmouseenter\@empty \def\@eqAAmouseexit#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAmouseexit\@empty\else \def\eq@AAmouseexit{/X<<\JS{#1}>>}\fi} \let\eq@AAmouseexit\@empty \def\@eqAAonfocus#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAonfocus\@empty\else \def\eq@AAonfocus{/Fo<<\JS{#1}>>}\fi} \def\@eqAAmousefocus{\@eqAAonfocus} \let\eq@AAonfocus\@empty \def\@eqAAonblur#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAonblur\@empty\else \def\eq@AAonblur{/Bl<<\JS{#1}>>}\fi} \def\@eqAAmouseblur{\def\@eqAAonblur} \let\eq@AAonblur\@empty \def\@eqAAformat#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAformat\@empty\else \def\eq@AAformat{/F<<\JS{#1}>>}\fi} % \end{macrocode} % \begin{macro}{AAformat} % \begin{macro}{AAkeystroke} % \begin{macro}{AAvalidate} % \begin{macro}{AAcalculate} % Formatting, keystroke, validate, calculate tabs. % \begin{macrocode} \let\eq@AAformat\@empty \def\@eqAAkeystroke#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAkeystroke\@empty\else \def\eq@AAkeystroke{/K<<\JS{#1}>>}\fi} \let\eq@AAkeystroke\@empty \def\@eqAAvalidate#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAvalidate\@empty\else \def\eq@AAvalidate{/V<<\JS{#1}>>}\fi} \let\eq@AAvalidate\@empty \def\@eqAAcalculate#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AAcalculate\@empty\else\isCalculatetrue \def\eq@AAcalculate{/C<<\JS{#1}>>}\fi} \let\eq@AAcalculate\@empty % \end{macrocode} % \begin{macro}{AApageopen} % \begin{macro}{AApageclose} % \begin{macro}{AApagevisible} % \begin{macro}{AApageinvisible} % Page related additional actions. % \begin{macrocode} \def\@eqAApageopen#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AApageopen\@empty\else \def\eq@AApageopen{/PO<<\JS{#1}>>}\fi} \let\eq@AApageopen\@empty \def\@eqAApageclose#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AApageclose\@empty\else \def\eq@AApageclose{/PC<<\JS{#1}>>}\fi} \let\eq@AApageclose\@empty \def\@eqAApagevisible#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AApagevisible\@empty\else \def\eq@AApagevisible{/PV<<\JS{#1}>>}\fi} \let\eq@AApagevisible\@empty \def\@eqAApageinvisible#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AApageinvisible\@empty\else \def\eq@AApageinvisible{/PI<<\JS{#1}>>}\fi} \let\eq@AApageinvisible\@empty % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % % This ends the definitions use by the user interface option for additional actions. % % \paragraph*{Additional entries common to fields containing variable text:} \texttt{DR, DA, Q, % DS, RV}. % \begin{macrocode} % \end{macrocode} % \DescribeMacro{\DA} Default appearance (required) % \begin{macrocode} \def\@eqDA#1{\def\eq@DA{#1}} \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% % \end{macrocode} % \DescribeMacro{\textFont} PDF form font % \begin{macrocode} \def\@eqtextFont#1{\def\eq@textFont{/#1}} \def\eq@textFont{/Helv} % \end{macrocode} % \DescribeMacro{\textSize} PDF form text size % \begin{macrocode} \def\@eqtextSize#1{\def\eq@textSize{#1}} \def\eq@textSizeDefault{9} \edef\eq@textSize{\eq@textSizeDefault} % \end{macrocode} % \DescribeMacro{\RV} Rich text value %\changes{v2.5l}{2011/01/28}{% % Wrap the \cs{RV} key in an XHTML \string\texttt{{\string\ltag}body\string\rtag} element, part of adding % better support for rich text strings for form fields. %} % \begin{macrocode} \def\eq@RV@Body{} \def\eq@RV@endBody{} \def\@eqRV#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@RV\@empty\else\def\eq@RV{/RV(\eq@RV@Body#1% \eq@RV@endBody)\fi}}\def\eq@RV{} % \end{macrocode} % \DescribeMacro{\DS} Rich text default style % \begin{macrocode} \def\@eqDS#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@DS\@empty\else\def\eq@DS{/DS(#1)\fi}}\def\eq@DS{} % \end{macrocode} % \DescribeMacro{\textColor} Text color % \begin{macrocode} \def\@eqtextColor#1{\ef@parsePDFColor{#1}% \HyColor@IfXcolor{% \expandafter\HyColor@FieldColor% \expandafter{\ef@colorSpec@out}{\eq@textColor}{}{}% }{\edef\eq@textColor{\ef@colorSpec@out}}% } \def\eq@textColor{0 g} % \end{macrocode} % \DescribeMacro{\Q} Quadding for text fields: \texttt{Q=0} left-justified, \texttt{Q=1} centered % \texttt{Q=2} right-justified. % \begin{macrocode} \def\@eqQ#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Q\@empty\else\def\eq@Q{/Q #1}\fi}\def\eq@Q{} % \end{macrocode} % \paragraph*{Entries common to all fields:} \texttt{TU, Ff, V, DV, A, AA} % \par\medskip\noindent % \DescribeMacro{\DV} The DV key sets the value of the field when the form field is reset. % When the unicode option is taken (\cs{ifHy@unicode is \texttt{true}}, % we pass the argument through \cs{pdfstringdef} to get the octal encoding, % which is the method hyperref uses. % \changes{v2.7}{2014/07/08}{Removed the use of \string\cs{ifHy@unicode}, now pass all PDF text strings % through \cs{pdfstringdef}.} % \changes{v2.8a}{2015/07/12}{Added \string\cs{ef@isunicode} to automatically detect % unicode} % (2015/07/12) Added \cs{ef@isunicode} to automatically detect % unicode. When the first token of the argument of \cs{@eqDV} % and \cs{@eqV} is \cs{unicodeStr}, we bifurcate to \cs{@equDV} % and \cs{@equV}, respectively. % \begin{macrocode} \def\ef@isunicode#1\unicodeStr#2\@nil{\def\argi{#1}% \ifx\argi\@empty\def\ifbool@ef{iftrue}\else \def\ifbool@ef{iffalse}\fi} \def\@eqDV#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equDV{#1}\else \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@DV\@empty\else \ef@pdfCRLFTABDefns\pdfstringdef\ef@uni@temp{#1}% \edef\eq@DV{/DV(\ef@uni@temp)}\makespecialJS\fi\fi}\def\eq@DV{} % \end{macrocode} % \DescribeMacro{\nuDV} \cs{@eqnuDV} is the old definition of DV. This version does not % use hyperref's unicode option. This version comes in handy % in the acroflex package, where it is undesirable to unicode % the default (and initial values). % \begin{macrocode} \def\ef@pdfCRLFTABDefns{% \def\r{\textCR}\def\t{\textHT}\def\n{\textLF}} \def\@eqnuDV#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@DV\@empty\else\def\eq@DV{/DV(#1)}\fi} % \end{macrocode} % \DescribeMacro{\uDV} Unicoded DV, used in \textsf{acroflex.dtx} % \begin{macrocode} \def\@equDV#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@DV\@empty\else\def\eq@DV{/DV<#1>}\fi} % \end{macrocode} % \DescribeMacro{\V} |\V| is the field value (optional) % \begin{macrocode} \def\@eqV#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equV{#1}\else \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@V\@empty\else \ef@pdfCRLFTABDefns\pdfstringdef\ef@uni@temp{#1}% \edef\eq@V{/V(\ef@uni@temp)}\makespecialJS\fi\fi}\def\eq@V{} % \end{macrocode} % \DescribeMacro{\nuV} No Unicode V % \begin{macrocode} \def\@eqnuV#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@V\@empty\else\def\eq@V{/V(#1)}\fi} % \end{macrocode} % \DescribeMacro{\uV} Unicode version of V % \begin{macrocode} \def\@equV#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@V\@empty\else\def\eq@V{/V<#1>}\fi}% % \end{macrocode} % \DescribeMacro{\TU} Tool tip (optional, PDF 1.3) % \begin{macrocode} \def\@eqTU#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equTU{#1}\else \def\eq@arg{#1}\let\r@save\r\let\r\textCR \ifx\eq@arg\@empty\let\eq@TU\@empty\else \ef@pdfCRLFTABDefns\pdfstringdef\ef@uni@temp{#1}% \edef\eq@TU{/TU(\ef@uni@temp)}\makespecialJS\fi\fi \let\r\r@save}\def\eq@TU{} % \end{macrocode} % \DescribeMacro{\uTU} Tool tip (optional, PDF 1.3), unicode version % \begin{macrocode} \def\@equTU#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@TU\@empty\else\def\eq@TU{/TU<#1>}\fi} % \end{macrocode} % \DescribeMacro{\Ff} The Field flags bit field, these values are listed below. % \begin{macrocode} \def\@eqFf#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Ff\@empty\else\def\eq@Ff{/Ff #1}\fi} \def\eq@Ff{} % \end{macrocode} % \paragraph*{keys specific to text fields:} \texttt{MaxLen} % \begin{macrocode} % \end{macrocode} % \DescribeMacro{\MaxLen} text fields only. Restricts number of characters % input. Required if a comb field. % \begin{macrocode} \def\@eqMaxLen#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@MaxLen\@empty\else\def\eq@MaxLen{/MaxLen #1}\fi}% \def\eq@MaxLen{} % \end{macrocode} % \DescribeMacro{\H} Highlight, used in button fields and link annotation. Possible values % are None, Push, Outline, Invert (respectively, \verb!\H{N}!, \verb!\H{P}!, % \verb!\H{O}!, \verb!\H{I}!) % The default highlighting is invert (I). % \begin{macrocode} \def\@eqH#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@H\@empty\else\def\eq@H{/H/#1}\fi}\def\eq@H{} % \end{macrocode} % \paragraph*{Appearance characteristics dictionary:} % \texttt{MK=R, BC, BG, CA, RC, AC, I, RI, IX, IF, TP} % \begin{macrocode} % \end{macrocode} % \DescribeMacro{\MK} A dictionary containing other keys % \begin{macrocode} \def\@eqMK#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@MK\@empty\else\def\eq@MK{/MK << #1 >> }\fi}% \def\eq@MK{} % \end{macrocode} % \DescribeMacro{\R} Rotation of field, values 0, 90, 180, 270. % \begin{macrocode} \let\@vertRotate=0 \def\@eqR#1{\def\eq@R@value{#1}\ifx\eq@R@value\@empty \let\eq@R\@empty\else % \end{macrocode} % Determine if we are rotating 90 or 270, if so, let a weak switch % \cs{@vertRotate} to 1 % \begin{macrocode} \@tempcnta=\eq@R@value\relax \ifnum\@tempcnta<0 \@tempcnta=-\@tempcnta\fi \ifnum\@tempcnta=0 \else\ifnum\@tempcnta=180 \else \let\@vertRotate=1\fi\fi \def\eq@R{/R #1}\fi} \def\eq@R{} % \end{macrocode} % \DescribeMacro{\BC} Boundary color % \changes{v2.5j}{2011/01/18 }{% % Changed \string\cs{def}\string\cs{eq@arg} to \string\cs{edef}\string\cs{eq@arg} in the definition of % \string\cs{@eqBC} and \string\cs{@eqBG}. When the argument is a macro that is empty, % we can exceed {\string\TeX} capacity. %} % \begin{macrocode} \def\@eqBC#1{\edef\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@BC\@empty\else % 2010/07/23 \expandafter\ef@isitnamed\eq@arg\ef@nil \ifx\ef@latex@color\ef@y\expandafter \HyColor@XZeroOneThreeFour\expandafter{\eq@arg}{\eq@BC}{}{}% \edef\eq@BC{/BC [\eq@BC]}\else \def\eq@BC{/BC [#1]}\fi \fi} \def\eq@BC{} % \end{macrocode} % \DescribeMacro{\BG} Background color % \begin{macrocode} \def\@eqBG#1{\edef\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@BG\@empty\else % 2010/07/23 \expandafter\ef@isitnamed\eq@arg\ef@nil \ifx\ef@latex@color\ef@y\expandafter \HyColor@XZeroOneThreeFour\expandafter{\eq@arg}{\eq@BG}{}{}% \edef\eq@BG{/BG [\eq@BG]}\else \def\eq@BG{/BG [#1]}\fi \fi} \def\eq@BG{} % \end{macrocode} % \DescribeMacro{\CA} normal appearance text % \begin{macrocode} \def\@eqCA#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equCA{#1}\else \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@CA\@empty\let\ef@kvCA\@empty \else\ef@pdfCRLFTABDefns \pdfstringdef\ef@uni@temp{#1}% \def\eq@CA{#1}\edef\ef@kvCA{/CA(\ef@uni@temp)}% \makespecialJS\fi\fi} \def\eq@CA{}\def\ef@kvCA{} % \end{macrocode} % \DescribeMacro{\uCA} normal appearance text, unicode version % \begin{macrocode} \def\@equCA#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@CA\@empty\let\ef@kvCA\@empty \else\def\eq@CA{#1}\def\ef@kvCA{/CA<#1>}\fi} % \end{macrocode} % \DescribeMacro{\RC} Roll over text % \begin{macrocode} \def\@eqRC#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equRC{#1}\else \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@RC\@empty\let\ef@kvRC\@empty \else\ef@pdfCRLFTABDefns \pdfstringdef\ef@uni@temp{#1}% \def\eq@RC{#1}\edef\ef@kvRC{/RC(\ef@uni@temp)}% \makespecialJS\fi\fi} \def\eq@RC{}\def\ef@kvRC{} % \end{macrocode} % \DescribeMacro{\uRC} Roll over text, unicode version % \begin{macrocode} \def\@equRC#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@RC\@empty\let\ef@kvRC\@empty \else\def\eq@RC{#1}\def\ef@kvRC{/RC<#1>}\fi} % \end{macrocode} % \DescribeMacro{\AC} Push text % \begin{macrocode} \def\@eqAC#1{\ef@isunicode#1\unicodeStr\@nil \expandafter\csname\ifbool@ef\endcsname\@equAC{#1}\else \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AC\@empty\let\ef@kvAC\@empty \else\ef@pdfCRLFTABDefns \pdfstringdef\ef@uni@temp{#1}% \def\eq@AC{#1}\edef\ef@kvAC{/AC(\ef@uni@temp)}% \makespecialJS\fi\fi} \def\eq@AC{}\def\ef@kvAC{} % \end{macrocode} % \DescribeMacro{\uAC} Push text, unicode version % \begin{macrocode} \def\@equAC#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@AC\@empty\let\ef@kvAC\@empty \else\def\eq@AC{#1}\def\ef@kvAC{/AC<#1>}\fi} % \end{macrocode} % Other keys of \texttt{MK} include: \texttt{I}, \texttt{RI}, \texttt{IX}, \texttt{IF} and \texttt{TP} % If I haven't covered everything, use this macro to insert % material into \texttt{MK}\par\medskip\noindent % (02/07/09) We begin support for the \texttt{MK} dictionary for a push % button with an icon appearance, the entries in the \texttt{MK} dictionary that % effect an icon of the push button has this form: %\begin{verbatim} % \ifx\eq@AP\@empty % /MK <<\eq@R\eq@BC\eq@BG% % \ef@kvCA\ef@kvRC\ef@kvAC\eq@IconMK\eq@mkIns>> % \else % \eq@AP % \fi %\end{verbatim} % The \cs{eq@IconMK} macro inserts the appropriate code for an icon appearance. % \begin{macrocode} % \end{macrocode} % \cs{eq@define@IconMK} defines the elements of the \texttt{MK} dictionary, % used only if there is an icon appearance. The default definition of % \cs{eq@IconMK} is empty. % \begin{macrocode} \def\eq@define@IconMK{\def\eq@IconMK{\eq@I\eq@RI\eq@IX\eq@TP /IF<<\eq@SW\eq@ST\eq@PA\eq@FB>>}} \let\eq@IconMK\@empty % \end{macrocode} % \DescribeMacro{\I} an indirect reference to a form XObject defining the % buttons's \emph{normal icon} % \changes{v2.9}{2016/05/09}{Modified \string\cs{I}, \string\cs{RI}, and % \string\cs{IX} to accommodate pdftex for null argument.} % \begin{macrocode} \ifpdf\def\eq@relRef#1{0 0 R}\else %{#1\space 0 R} \ifxetex\def\eq@relRef#1{#1}\else \def\eq@relRef#1{{#1}}\fi\fi \def\ef@null{null} \def\@eqI#1{\ifx\annot@type\annot@type@button \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@I\@empty\else \def\eq@I{/I \eq@relRef{#1}}% \ifpdf\ifx\eq@arg\ef@null \def\eq@I{/I 0 0 R}\fi\fi \eq@define@IconMK\fi\fi} \def\eq@I{} % \end{macrocode} % \DescribeMacro{\RI} an indirect reference to a form XObject defining % the buttons's \emph{rollover icon} % \begin{macrocode} \def\@eqRI#1{\ifx\annot@type\annot@type@button \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@RI\@empty\else \def\eq@RI{/RI \eq@relRef{#1}}% \ifpdf\ifx\eq@arg\ef@null \def\eq@RI{/RI 0 0 R}\fi\fi \eq@define@IconMK\fi\fi} \def\eq@RI{} % \end{macrocode} % \DescribeMacro{\IX} an indirect reference to a form XObject defining % the buttons's \emph{down icon} % \begin{macrocode} \def\@eqIX#1{\ifx\annot@type\annot@type@button \def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@IX\@empty\else \def\eq@IX{/IX \eq@relRef{#1}}% \ifpdf\ifx\eq@arg\ef@null \def\eq@IX{/IX 0 0 R}\fi\fi \eq@define@IconMK\fi\fi} \def\eq@IX{} % \end{macrocode} % \DescribeMacro{\TP} A code indicating the \texttt{layout} of the text and icon; these codes are % 0 (label only); 1 (icon only); 2 (label below icon); 3 (label above icon); 4 (label to the right of icon); % 5 (label to the left of icon); 6 (label overlaid on the icon). The default is 0. % \begin{macrocode} \def\@eqTP#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@TP\@empty\else\def\eq@TP{/TP #1}\fi} \def\eq@TP{/TP 0} % default 0 % \end{macrocode} % \DescribeMacro{\SW} The \emph{scale when key}. Permissible values are \texttt{A} (always scale), % \texttt{B} (scale when icon is too big), \texttt{S} (scale when icon is too small), \texttt{N} % (never scale). The default is \texttt{A}. % \begin{macrocode} \def\@eqSW#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@SW\@empty\else\def\eq@SW{/SW/#1}\fi} \def\eq@SW{/SW/A} % the default, always scale % \end{macrocode} % \DescribeMacro{\ST} The \emph{scaling type.} Permissible values are \texttt{A} % (anamorphic scaling); \texttt{P} (proportional scaling). The default is \texttt{P}. % \begin{macrocode} \def\@eqST#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@ST\@empty\else\def\eq@ST{/S/#1}\fi} \def\eq@ST{/S/P} % the default, proportional scaling % \end{macrocode} % \DescribeMacro{\PA} The \textit{position array.} An array of two numbers, each % between 0 and 1 indicating the fraction of left-over space to allocate at the left and bottom % of the annotation rectangle. The two numbers should be separated by a space. The default value, \verb!\PA{.5 .5}! % \begin{macrocode} \def\@eqPA#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@PA\@empty\else\def\eq@PA{/A [#1]}\fi} \def\eq@PA{/A [0.5 0.5]} % the default % \end{macrocode} % \DescribeMacro{\FB} The \emph{fit bounds} Boolean. If \texttt{true}, the button appearance % is scaled to fit fully within the bounds of the annotation without taking into consideration % the line width of the border. The default is \texttt{false}. % \begin{macrocode} \def\@eqFB#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@PA\@empty\else\def\eq@FB{/FB #1}\fi} \def\eq@FB{/FB false} % the default % \end{macrocode} % \DescribeMacro{\mkIns} used for miscellaneous entries for \texttt{MK} dictionary. % \begin{macrocode} \def\@eqmkIns#1{\def\eq@mkIns{#1}}\def\eq@mkIns{} % \end{macrocode} % \paragraph*{Additional entries specific to choice fields:} \texttt{Opt, TI, I} % \begin{macrocode} % an array of options in the list \def\@eqOpt#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Opt\@empty\else\def\eq@Opt{/Opt [#1]}\fi} \def\eq@Opt{} % for scrollable list boxes, the top index. \def\@eqTI#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@TI\@empty\else\def\eq@TI{/TI #1}\fi} \def\eq@TI{} % \end{macrocode} % When all else fails, use the \cs{rawPDF} command to modify the widget. % \begin{macrocode} \def\@eqrawPDF#1{\def\eq@rawPDF{#1}}\def\eq@rawPDF{} % \end{macrocode} % The following is in support for multi-line links % \begin{macrocode} % \end{macrocode} % \DescribeMacro{\QuadPoints} Used by \texttt{aeb\_mlink}, used internally by that % package to create multi-line links. % \begin{macrocode} \def\@eqQuadPoints#1{\def\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@QuadPoints\@empty\else \def\eq@QuadPoints{/QuadPoints {#1}}\fi} \def\eq@QuadPoints{} % \end{macrocode} % \DescribeMacro{\Color} Changed |\def\eq@arg| to |\edef\eq@arg| (01/18/11) % \begin{macrocode} \def\@eqColor#1{\edef\eq@arg{#1}\ifx\eq@arg\@empty \let\eq@Color\@empty\else \HyColor@XZeroOneThreeFour{#1}{\eq@Color}{}{}% \edef\eq@Color{/C[\eq@Color]}\fi} \def\eq@Color{} % \end{macrocode} % \DescribeMacro{linktxtcolor} key to set the color of the link through % the option list. % \begin{macrocode} \def\@eqlinktxtcolor#1{% \def\ef@argi{#1}\ifHy@colorlinks \ifx\ef@argi\@empty\let\ef@colorthislink\normalcolor\else \let\ef@linktxtcolor@set=1\def\ef@thislinkcolor{#1}\fi\fi }\let\ef@linktxtcolor@set=0 % \end{macrocode} % \paragraph*{Specialized, non-PDF Spec, commands} % \begin{macrocode} % \end{macrocode} % \begin{macro}{\rectH} % \begin{macro}{\rectW} % Use to set the height and width of a widget. % \begin{macrocode} \def\@eqrectH#1{\def\eq@rectH{#1}\ifx\eq@rectH\@empty\else \setlength\eflength\eq@rectH\edef\eq@rectH{\the\eflength}\fi} \def\@eqrectW#1{\def\eq@rectW{#1}\ifx\eq@rectW\@empty\else \setlength\eflength\eq@rectW\edef\eq@rectW{\the\eflength}\fi} % \end{macrocode} % \end{macro} % \end{macro} % \DescribeMacro{\objdef} Insert an indirect reference (ps only drivers). The value of this % key must be unique throughout the whole document. % This is a \textbf{pdfmark} feature that inserts a references to this COS object, % used with setting the tab order using the structure. % \begin{macrocode} \def\@eqobjdef#1{\def\ef@arg{#1}\ifx\ef@arg\@empty \let\eq@objdef\@empty\else\def\eq@objdefName{#1}% \def\eq@objdef{/_objdef {#1}}\fi } \let\eq@objdef\@empty % \end{macrocode} % \DescribeMacro{\taborder} The \cs{taborder} key is used for the % \texttt{dvipsone}/\texttt{dvips} options on a page where the tab order is % determined through structure. % \begin{macrocode} \def\@eqtaborder#1{\def\ef@arg{#1}\ifx\ef@arg\@empty \let\eq@taborder\@empty\else \def\eq@taborder{#1}\fi } \let\eq@taborder\@empty % \end{macrocode} % \DescribeMacro{\autoCenter} Auto-center feature, values are % |\autoCenter{y}| (the default) or |\antoCenter{n}|. % \begin{macrocode} \def\ef@y{y}\def\ef@n{n} \def\@eqautoCenter#1{\def\ef@arg{#1}\ifx\ef@arg\ef@y \let\autoCenter\ef@y\else\ifx\ef@arg\ef@n \let\autoCenter\ef@n\else\let\autoCenter\ef@y \PackageWarning{eforms}{The value of '#1' is not a supported value\MessageBreak for \string\autoCenter.\MessageBreak Using the default of 'y'}% \fi\fi} \let\autoCenter\ef@y % \end{macrocode} % \DescribeMacro{\inline} If |\inline{y}|, then we attempt to % get a better vertical positioning. Designed for inline form fields. % \changes{v2.5h}{2012/11/17}{Introduce the \string\cs{inline} key designed for % inline form fields.} % \begin{macrocode} \newif\ifeq@inlineCenter \eq@inlineCenterfalse \let\inlineCenter=n \def\@eqinline#1{\eq@inlineCenterfalse \def\ef@arg{#1}\ifx\ef@arg\ef@y \let\inlineCenter\ef@y\eq@inlineCentertrue\else \ifx\ef@arg\ef@n\let\inlineCenter\ef@n\else\let\inlineCenter\ef@n \PackageWarning{eforms}{The value of '#1' is not a supported value\MessageBreak for \string\inline.\MessageBreak Using the default of 'n'}% \fi\fi} % \end{macrocode} % \DescribeMacro{\symbolchoice} The symbol used for a check box or radio button. % Elsewhere, we have defined, %\begin{verbatim} % \def\eq@check{4} % \def\eq@circle{l} % \def\eq@cross{8} % \def\eq@diamond{u} % \def\eq@square{n} % \def\eq@star{H} %\end{verbatim} % Possible values for this key are \texttt{check}, \texttt{circle}, % \texttt{cross}, \texttt{diamond}, \texttt{square}, and \texttt{star}. % \begin{macrocode} \def\@eqsymbolchoice#1{\expandafter\ifx\csname eq@#1\endcsname\relax \typeout{exerquiz: `#1' is not an acceptable option for \string\symbolechoice, inserting default, `check'.} \edef\symbol@choice{\eq@check}\else % \end{macrocode} % We take \texttt{\#1} and form the command \cs{eq@\#1}, to match one of % the definitions listed above. % \begin{macrocode} \edef\symbol@choice{\csname eq@#1\endcsname}\fi } % \end{macrocode} %\DescribeMacro{\mlfix} When set to \texttt{y}, contiguous boxes are combined. This is for %multi-line hyperlinks. Recognizable values are \texttt{y} and \texttt{n}. contiguous boxes %are combined by default. There are command versions of \cs{mlfix}, these are %\DescribeMacro{\mlfixOn} and \DescribeMacro{\mlfixOff} %\changes{v2.9.16}{2018/03/08}{Added \string\cs{mlfix} for multiline links} %\changes{v2.9.19}{2018/03/22}{Added \string\cs{relax} following width dimension % in \string\cs{@eqmlstrut}} % \begin{macrocode} \newif\iffixmlinks \fixmlinkstrue \def\mlfixOn{\fixmlinkstrue} \def\mlfixOff{\fixmlinksfalse} \def\@eqmlfix#1{\def\ef@arg{#1}\ifx\ef@arg\ef@y \mlfixOn\else\ifx\ef@arg\ef@n \mlfixOff\else\mlfixOn \PackageWarning{eforms}{The value of '#1' is not a supported value\MessageBreak for \string\mlfix.\MessageBreak Using the default of 'y'}% \fi\fi} \newbox\mlstrutbox % \end{macrocode} % \DescribeMacro{\mlstrut}\hskip-\marginparsep\texttt{\darg{\ameta{strut-amt}}} % (2018/03/22) \cs{mlstrut} is used to adjust the height of a multi-line link, % e.g., \verb!\mlstrut{\large\strut}! % \changes{v2.9.19}{2018/03/22}{Added \string\cs{mlstrut} used % to adjust the height of a multi-line link} % \begin{macrocode} \def\@eqmlstrut#1{\setbox\mlstrutbox\hbox{#1}% \def\ml@strut{\vrule \@height\ht\mlstrutbox \@depth\dp\mlstrutbox \@width\z@\relax}} \def\ml@strut{\relax\ifmmode\copy\mlstrutbox\else \unhbox\mlstrutbox\fi} \@eqmlstrut{\strut} % \end{macrocode} % \DescribeMacro{\mlcrackat}\hskip-\marginparsep\texttt{\darg{\ameta{num}}} % (2018/03/22) \cs{mlcrackat} is a link used to break a multi-line link across a page boundary; % specifying \verb~\mlcrackat{3}~ breaks the link after the 3rd syllable. The \pkg{aeb\_mlink} % package then creates two links consisting of the text up to and including the crack-at value and % the second link consisting of the rest of the hypertext link (or url) string. % \changes{v2.9.19}{2018/03/22}{Added \string\cs{mlcrackat}} % \begin{macrocode} \def\@eqmlcrackat#1{\def\eq@mlcrackat{#1}} \let\eq@mlcrackat\@empty % \end{macrocode} % \DescribeMacro{\mlhyph}\hskip-\marginparsep\texttt{\darg{}} % (2018/03/22) \cs{mlhyph} is used to add a hyphen when a multi-line link is cracked % using \cs{mlcrackat}. The default is that no hyphen is produced. % \changes{v2.9.19}{2018/03/22}{Added \string\cs{mlhyph}} % \begin{macrocode} \def\@eqmlhyph#1{\def\ef@arg{#1}\ifx\ef@arg\ef@y \def\eq@mlhyph{-}\else\ifx\ef@arg\ef@n \let\eq@mlhyph\@empty\else\let\eq@mlhyph\@empty \PackageWarning{eforms}{The value of '#1' is not a supported value\MessageBreak for \string\mlhyph.\MessageBreak Using the default of 'n'}\fi\fi} \let\eq@mlhyph\@empty % \end{macrocode} % \DescribeMacro{\mlignore}\hskip-\marginparsep\texttt{\darg{}} % (2018/03/22) \cs{mlignore} is an internal option used when breaking apart % two multi-line links; not used with urls. % \changes{v2.9.19}{2018/03/22}{Added \string\cs{mlignore}} % \begin{macrocode} \def\@eqmlignore#1{\let\eq@mlignore\ef@YES} \let\eq@mlignore\ef@NO % \end{macrocode} % \begin{macrocode} \def\@eqmlcrackinsat#1{\def\eq@mlcrackinsat{#1}} \let\eq@mlcrackinsat\@empty % \end{macrocode} % \DescribeMacro{\protect} A protect feature for protecting a key from begin changed % by the user through the optional arguments. % \begin{macrocode} \def\eq@protect#1{\let#1\@empty} % \end{macrocode} % \subsubsection{Support for Hex escapes in PDF names} % \changes{v2.9p}{2017/10/10}{rework the support for Hex escapes in PDF names} % \begin{macrocode} \begingroup\catcode`\#=12 \catcode`*=6 \ifpdfmarkup \gdef\ef@Hx*1*2{\@nameuse{efHex*1*2}}\else \gdef\ef@Hx*1*2{\@nameuse{efHex*1*2}}\fi \endgroup \def\efHxError{\PackageError{eforms}{The glyph is not supported}{}} \def\HGERROR{efHxError} \ifpdfmarkup \def\HexGlyph#1#2{\def\arg@ii{#2}\ifx\arg@ii\HGERROR \global\@namedef{efHex#1}{\csname#2\endcsname}\else \global\@namedef{efHex#1}{\expandafter \string\csname#2\endcsname}\fi} \else \begingroup\catcode`\#=12 \catcode`*=6 \gdef\HexGlyph*1*2{\def\arg@ii{*2}\ifx\arg@ii\HGERROR \global\@namedef{efHex*1}{\csname*2\endcsname}\else \global\@namedef{efHex*1}{#*1}\fi} \endgroup \fi \def\ef@inputPDFHEX{\InputIfFileExists{pdfdochex.def} {\PackageInfo{eforms}{Inputting pdfdochex.def}}{}} \AtEndOfPackage{\ef@inputPDFHEX} % %<*hexoctcodes> % begin C0 Controls (U000.pdf) http://www.unicode.org/charts/PDF/ \HexGlyph{00}{efHxError}%{000} \HexGlyph{01}{efHxError}%{001} \HexGlyph{02}{efHxError}%{002} \HexGlyph{03}{efHxError}%{003} \HexGlyph{04}{efHxError}%{004} \HexGlyph{05}{efHxError}%{005} \HexGlyph{06}{efHxError}%{006} \HexGlyph{07}{efHxError}%{006} \HexGlyph{08}{efHxError}%{008} \HexGlyph{09}{efHxError}%{009} \HexGlyph{0A}{efHxError}%{012} \HexGlyph{0B}{efHxError}%{013} \HexGlyph{0C}{efHxError}%{014} \HexGlyph{0D}{efHxError}%{015} \HexGlyph{0E}{efHxError}%{016} \HexGlyph{0F}{efHxError}%{017} \HexGlyph{10}{efHxError}%{020} \HexGlyph{11}{efHxError}%{021} \HexGlyph{12}{efHxError}%{022} \HexGlyph{13}{efHxError}%{023} \HexGlyph{14}{efHxError}%{024} \HexGlyph{15}{efHxError}%{025} \HexGlyph{16}{efHxError}%{026} \HexGlyph{17}{efHxError}%{027} % end C0 Controls (U000.pdf) \HexGlyph{18}{030}% U+02D8 BREVE \HexGlyph{19}{031}% U+02c7 CARON \HexGlyph{1A}{032}% U+02c6 MODIFIER LETTER CIRCUMFLEX ACCENT \HexGlyph{1B}{033}% U+02D9 DOT ABOVE \HexGlyph{1C}{034}% U+02DD DOUBLE ACUTE ACCENT \HexGlyph{1D}{035}% U+02DB OGONEK \HexGlyph{1E}{036}% U+02DA RING ABOVEZ \HexGlyph{1F}{037}% U+02DC SMALL TILDE \HexGlyph{20}{040}% U+0020 SPACE \HexGlyph{21}{041}% U+0021 EXCLAMATION MARK \HexGlyph{22}{042}% U+0022 QUOTATION MARK \HexGlyph{23}{043}% U+0022 NUMBER SIGN \HexGlyph{24}{044}% U+0023 DOLLAR SIGN \HexGlyph{25}{045}% U+002 PERCENT SIGN \HexGlyph{26}{046}% U+0026 AMPERSAND \HexGlyph{27}{047}% U+0027 APOSTROPHE \HexGlyph{28}{050}% U+0028 LEFT PARENTHESIS \HexGlyph{29}{051}% U+0029 RIGHT PAENTHESIS \HexGlyph{2A}{052}% U+002A ASTERISK \HexGlyph{2B}{053}% U+002B PLUS SIGN \HexGlyph{2C}{054}% U+002C COMMA \HexGlyph{2D}{055}% U+002D HYPHEN-MINUS \HexGlyph{2E}{056}% U+002E FULL STOP \HexGlyph{2F}{057}% U+002F SOLIDUS \HexGlyph{30}{060}% U+0030 ZERO \HexGlyph{31}{061}% U+0031 ONE \HexGlyph{32}{062}% U+0032 TWO \HexGlyph{33}{063}% U+0033 THREE \HexGlyph{34}{064}% U+0034 FOUR \HexGlyph{35}{065}% U+0035 FIVE \HexGlyph{36}{066}% U+0036 SIX \HexGlyph{37}{067}% U+0037 SEVEN \HexGlyph{38}{070}% U+0038 EIGHT \HexGlyph{39}{071}% U+0039 NINE \HexGlyph{3A}{072}% U+003A COLON \HexGlyph{3B}{073}% U+003B SEMICOLON \HexGlyph{3C}{074}% U+003C LESS-THAN SIGN \HexGlyph{3D}{075}% U+003D EQUALS SIGN \HexGlyph{3E}{076}% U+003E GREATER-THAN SIGN \HexGlyph{3F}{077}% U+003F QUESTION MARK \HexGlyph{40}{100}% U+0040 COMMERCIAL AT \HexGlyph{41}{101}% U+0041 CAPITAL LETTER A \HexGlyph{42}{102}% U+0042 B \HexGlyph{43}{103}% U+0043 C \HexGlyph{44}{104}% U+0044 D \HexGlyph{45}{105}% U+0045 E \HexGlyph{46}{106}% U+0046 F \HexGlyph{47}{107}% U+0047 G \HexGlyph{48}{110}% U+0048 H \HexGlyph{49}{111}% U+0049 I \HexGlyph{4A}{112}% U+004A J \HexGlyph{4B}{113}% U+004B K \HexGlyph{4C}{114}% U+004C L \HexGlyph{4D}{115}% U+004D M \HexGlyph{4E}{116}% U+004E N \HexGlyph{4F}{117}% U+004F O \HexGlyph{50}{120}% U+0050 P \HexGlyph{51}{121}% U+0051 Q \HexGlyph{52}{122}% U+0052 R \HexGlyph{53}{123}% U+0053 S \HexGlyph{54}{124}% U+0054 T \HexGlyph{55}{125}% U+0055 U \HexGlyph{56}{126}% U+0056 V \HexGlyph{57}{127}% U+0057 W \HexGlyph{58}{130}% U+0058 X \HexGlyph{59}{131}% U+0059 Y \HexGlyph{5A}{132}% U+005A Z \HexGlyph{5B}{133}% U+005B LEFT SQUARE BRACKET \HexGlyph{5C}{134}% U+005C REVERSE SOLIDUS (BACKSLASH) \HexGlyph{5D}{135}% U+005D RIGHT SQUARE BRACKET \HexGlyph{5E}{136}% U+005E CIRCUMFLEX ACCENT \HexGlyph{5F}{137}% U+005F LOW LINE \HexGlyph{60}{140}% U+0060 GRAVE ACCENT \HexGlyph{61}{141}% U+0061 LATIN SMALL LETTER a \HexGlyph{62}{142}% U+0062 b \HexGlyph{63}{143}% U+0063 c \HexGlyph{64}{144}% U+0064 d \HexGlyph{65}{145}% U+0065 e \HexGlyph{66}{146}% U+0066 f \HexGlyph{67}{147}% U+0067 g \HexGlyph{68}{150}% U+0068 h \HexGlyph{69}{151}% U+0069 i \HexGlyph{6A}{152}% U+006A j \HexGlyph{6B}{153}% U+006B k \HexGlyph{6C}{154}% U+006C l \HexGlyph{6D}{155}% U+006D m \HexGlyph{6E}{156}% U+006E n \HexGlyph{6F}{157}% U+006F o \HexGlyph{70}{160}% U+0070 p \HexGlyph{71}{161}% U+0071 q \HexGlyph{72}{162}% U+0072 r \HexGlyph{73}{163}% U+0073 s \HexGlyph{74}{164}% U+0074 t \HexGlyph{75}{165}% U+0075 u \HexGlyph{76}{166}% U+0076 v \HexGlyph{77}{167}% U+0077 w \HexGlyph{78}{170}% U+0078 x \HexGlyph{79}{171}% U+0079 y \HexGlyph{7A}{172}% U+007A z \HexGlyph{7B}{173}% U+007B LEFT CURLY BRACKET \HexGlyph{7C}{174}% U+007C VERTICAL LINE \HexGlyph{7D}{175}% U+007D RIGHT CURLY BRACKET \HexGlyph{7E}{176}% U+007E TILDE \HexGlyph{7F}{efHxError}% 177 UNDEFINED IN PDFDOCENC \HexGlyph{80}{200}% U+2022 BULLET \HexGlyph{81}{201}% U+2020 DAGGER \HexGlyph{82}{202}% U+2021 DOUBLE DAGGER \HexGlyph{83}{203}% U+2026 HORIZONTAL ELLIPSIS \HexGlyph{84}{204}% U+2014 EM DASH \HexGlyph{85}{205}% U+2013 EN DASH \HexGlyph{86}{206}% U+0192 LATIN SMALL LETTER F WITH HOOK \HexGlyph{87}{207}% U+2044 FRACTION SLASH \HexGlyph{88}{210}% U+2039 SINGLE LEFT-POINTING ANGLE QUOTE MARK \HexGlyph{89}{211}% U+203A SINGLE RIGHT-POINTING ANGLE QUOTE MARK \HexGlyph{8A}{212}% U+2212 MINUS-SIGN \HexGlyph{8B}{213}% U+2030 PER MILL SIGN \HexGlyph{8C}{214}% U+201E DOUBLE LOW-9 QUOTE MARK \HexGlyph{8D}{215}% U+201C LEFT DOUBLE QUOTE MARK \HexGlyph{8E}{216}% U+201C RIGHT DOUBLE QUOTE MARK \HexGlyph{8F}{217}% U+2018 LEFT SINGLE QUOTE MARK \HexGlyph{90}{220}% U+2019 RIGHT SINGLE QUOTE MARK \HexGlyph{91}{221}% U+201A SINGLE LOW-9 QUOTE MARK \HexGlyph{92}{222}% U+2122 TRADE MARK SIGN \HexGlyph{93}{223}% U+FB01 LATIN SMALL LIGATURE FI \HexGlyph{94}{224}% U+FB02 LATIN SMALL LIGATURE FL \HexGlyph{95}{225}% U+0141 LATIN CAPITAL LETTER L WITH STROKE \HexGlyph{96}{226}% U+0152 LATIN CAPITAL LIGATURE OE \HexGlyph{97}{227}% U+0160 LATIN CAPITAL LETTER S WITH CARON \HexGlyph{98}{230}% U+0178 LATIN CAPITAL LETTER Y WITH DIAERESIS \HexGlyph{99}{231}% U+017D LATIN CAPITAL LETTER Z WITH CARON \HexGlyph{9A}{232}% U+0131 LATIN SMALL LETTER DOTLESS I \HexGlyph{9B}{233}% U+0142 LATIN SMALL LETTER L WITH STROKE \HexGlyph{9C}{234}% U+0153 LATIN SMALL LIGATURE OE \HexGlyph{9D}{235}% U+0161 LATIN SMALL LETTER S WITH CARON \HexGlyph{9E}{236}% U+017E LATIN SMALL LETTER Z WITH CARON \HexGlyph{9F}{efHxError}% 237 UNDEF IN PDFDOCENC \HexGlyph{A0}{240}% U+20AC EURO SIGN \HexGlyph{A1}{241}% U+00A1 INVERTED EXCLAMATION MARK \HexGlyph{A2}{242}% U+00A2 CENT SIGN \HexGlyph{A3}{243}% U+00A3 POUND SIGN \HexGlyph{A4}{244}% U+00A4 CURRENCY SIGN \HexGlyph{A5}{245}% U+00A5 YEN SIGN \HexGlyph{A6}{246}% U+00A6 BROKEN BAR \HexGlyph{A7}{247}% U+00A7 SECTION SIGN \HexGlyph{A8}{250}% U+00A8 DIAERESIS \HexGlyph{A9}{251}% U+00A9 COPYRIGHT SIGN \HexGlyph{AA}{252}% U+00AA FEMININE ORDINAL INDICATOR \HexGlyph{AB}{253}% U+00AB LEFT-POINTING DOUBLE ANGLE QUOTE MARK \HexGlyph{AC}{254}% U+00AC NOT SIGN \HexGlyph{AD}{efHxError}% 255 UNDEFINED IN PDFDOCENC \HexGlyph{AE}{256}% U+00AE REGISTERED SIGN \HexGlyph{AF}{257}% U+00AF MACRON \HexGlyph{B0}{260}% U+00B0 DEGREE SIGN \HexGlyph{B1}{261}% U+00B1 PLUS-MINUS SIGN \HexGlyph{B2}{262}% U+00B2 SUPERSCRIPT 2 \HexGlyph{B3}{263}% U+00B3 SUPERSCRIPT 3 \HexGlyph{B4}{264}% U+00B4 ACUTE ACCENT \HexGlyph{B5}{265}% U+00B5 MICRO SIGN \HexGlyph{B6}{266}% U+00B6 PILCROW SIGN (PARAGRAPH SIGN) \HexGlyph{B7}{267}% U+00B7 MIDDLE DOT \HexGlyph{B8}{270}% U+00B8 CEDILLA \HexGlyph{B9}{271}% U+00B9 SUPERSCRIPT ONE \HexGlyph{BA}{272}% U+00BA MASCULINE ORDINAL INDICATOR \HexGlyph{BB}{273}% U+00BB RIGHT-POINTING DOUBLE ANGLE QUOTE MARK \HexGlyph{BC}{274}% U+00BC VULGAR FRACTION ONE QUARTER \HexGlyph{BD}{275}% U+00BD VULGAR FRACTION ONE HALF \HexGlyph{BE}{276}% U+00BE VULGAR FRACTION THREE QUARTERS \HexGlyph{BF}{277}% U+00BF INVERTED QUESTION MARK \HexGlyph{C0}{300}% U+00C0 LATIN CAPITAL LETTER A WITH GRAVE \HexGlyph{C1}{301}% U+00C1 LATIN CAPITAL LETTER A WITH ACUTE \HexGlyph{C2}{302}% U+00C2 LATIN CAPITAL LETTER A WITH CIRCUMFLEX \HexGlyph{C3}{303}% U+00C3 LATIN CAPITAL LETTER A WITH TILDE \HexGlyph{C4}{304}% U+00C4 LATIN CAPITAL LETTER A WITH DIAERESIS \HexGlyph{C5}{305}% U+00C5 LATIN CAPITAL LETTER A WITH RING ABOVE \HexGlyph{C6}{306}% U+00C6 LATIN CAPITAL LETTER AE \HexGlyph{C7}{307}% U+00C7 LATIN CAPITAL LETTER C WITH CEDILLA \HexGlyph{C8}{310}% U+00C8 LATIN CAPITAL LETTER E WITH GRAVE \HexGlyph{C9}{311}% U+00C9 LATIN CAPITAL LETTER E WITH ACUTE \HexGlyph{CA}{312}% U+00CA LATIN CAPITAL LETTER E WITH CIRCUMFLEX \HexGlyph{CB}{313}% U+00CB LATIN CAPITAL LETTER E WITH DIAERESIS \HexGlyph{CC}{314}% U+00CC LATIN CAPITAL LETTER I WITH GRAVE \HexGlyph{CD}{315}% U+00CD LATIN CAPITAL LETTER I WITH ACUTE \HexGlyph{CE}{316}% U+00CE LATIN CAPITAL LETTER I WITH CIRCUMFLEX \HexGlyph{CF}{317}% U+00CF LATIN CAPITAL LETTER I WITH DIAERESIS \HexGlyph{D0}{320}% U+00D0 LATIN CAPITAL LETTER ETH \HexGlyph{D1}{321}% U+00D1 LATIN CAPITAL LETTER D WITH TILDE \HexGlyph{D2}{322}% U+00D2 LATIN CAPITAL LETTER O WITH GRAVE \HexGlyph{D3}{323}% U+00D3 LATIN CAPITAL LETTER O WITH ACUTE \HexGlyph{D4}{324}% U+00D4 LATIN CAPITAL LETTER O WITH CIRCUMFLEX \HexGlyph{D5}{325}% U+00D5 LATIN CAPITAL LETTER O WITH TILDE \HexGlyph{D6}{326}% U+00D6 LATIN CAPITAL LETTER O WITH DIAERESIS \HexGlyph{D7}{327}% U+00D7 MULTIPLICATION SIGN \HexGlyph{D8}{330}% U+00D8 LATIN CAPITAL LETTER O WITH STROKE \HexGlyph{D9}{331}% U+00D9 LATIN CAPITAL LETTER U WITH GRAVE \HexGlyph{DA}{332}% U+00DA LATIN CAPITAL LETTER U WITH ACUTE \HexGlyph{DB}{333}% U+00DB LATIN CAPITAL LETTER U WITH CIRCUMFLEX \HexGlyph{DC}{334}% U+00DC LATIN CAPITAL LETTER U WITH DIAERESIS \HexGlyph{DD}{335}% U+00DD LATIN CAPITAL LETTER Y WITH ACUTE \HexGlyph{DE}{336}% U+00DE LATIN CAPITAL LETTER THORN \HexGlyph{DF}{337}% U+00DF LATIN CAPITAL LETTER SHARP S (Eszett) \HexGlyph{E0}{340}% U+00E0 LATIN SMALL LETTER A WITH GRAVE \HexGlyph{E1}{341}% U+00E1 LATIN SMALL LETTER A WITH ACUTE \HexGlyph{E2}{342}% U+00E2 LATIN SMALL LETTER A WITH CIRCUMFLEX \HexGlyph{E3}{343}% U+00E3 LATIN SMALL LETTER A WITH TILDE \HexGlyph{E4}{344}% U+00E4 LATIN SMALL LETTER A WITH DIAERESIS \HexGlyph{E5}{345}% U+00E5 LATIN SMALL LETTER A WITH RING ABOVE \HexGlyph{E6}{346}% U+00E6 LATIN SMALL LETTER AE \HexGlyph{E7}{347}% U+00E7 LATIN SMALL LETTER C WITH CEDILLA \HexGlyph{E8}{350}% U+00E8 LATIN SMALL LETTER E WITH GRAVE \HexGlyph{E9}{351}% U+00E9 LATIN SMALL LETTER E WITH ACUTE \HexGlyph{EA}{352}% U+00EA LATIN SMALL LETTER E WITH CIRCUMFLEX \HexGlyph{EB}{353}% U+00EB LATIN SMALL LETTER E WITH DIAERESIS \HexGlyph{EC}{354}% U+00EC LATIN SMALL LETTER I WITH GRAVE \HexGlyph{ED}{355}% U+00ED LATIN SMALL LETTER I WITH ACUTE \HexGlyph{EE}{356}% U+00EE LATIN SMALL LETTER I WITH CIRCUMFLEX \HexGlyph{EF}{357}% U+00EF LATIN SMALL LETTER I WITH DIAERESIS \HexGlyph{F0}{360}% U+00F0 LATIN SMALL LETTER ETH \HexGlyph{F1}{361}% U+00F1 LATIN SMALL LETTER N WITH TILDE \HexGlyph{F2}{362}% U+00F2 LATIN SMALL LETTER O WITH GRAVE \HexGlyph{F3}{363}% U+00F3 LATIN SMALL LETTER O WITH ACUTE \HexGlyph{F4}{364}% U+00F4 LATIN SMALL LETTER O WITH CIRCUMFLEX \HexGlyph{F5}{365}% U+00F5 LATIN SMALL LETTER O WITH DIAERESIS \HexGlyph{F6}{366}% U+00F6 LATIN SMALL LETTER C WITH ETH \HexGlyph{F7}{367}% U+00F7 DIVISION SIGN \HexGlyph{F8}{270}% U+00F8 LATIN SMALL LETTER O WITH STROKE \HexGlyph{F9}{271}% U+00F9 LATIN SMALL LETTER U WITH GRAVE \HexGlyph{FA}{272}% U+00FA LATIN SMALL LETTER U WITH ACUTE \HexGlyph{FB}{273}% U+00FB LATIN SMALL LETTER U WITH CIRCUMFLEX \HexGlyph{FC}{374}% U+00FC LATIN SMALL LETTER U WITH DIAERESIS \HexGlyph{FD}{375}% U+00FD LATIN SMALL LETTER Y WITH ACUTE \HexGlyph{FE}{376}% U+00FE LATIN SMALL LETTER C THORN \HexGlyph{FF}{377}% U+00FF LATIN SMALL LETTER Y WITH DIAERESIS % %<*package> % \end{macrocode} % \subsubsection{Parsing PDF Color} % % The command is called by the \cs{textColor} key of a form field, % the return value, \cs{ef@colorSpec@out}, is then used in the color % specification of the text. If \textsf{xcolor} is loaded, we pass % the named color or latex color specification with color model back, % and is turned processed by the \textsf{hycolor} command \cs{HyColor@FieldColor}. % \begin{macrocode} \def\ef@semicolon{;} \def\ef@stripsemi#1;\@nil{\def\ef@colorSpec@out{#1}} % \end{macrocode} % \begin{macrocode} \def\ef@isitnamed{\let\ef@latex@color\ef@y \@ifnextchar[{\ef@gobbletonil}{% \@tfor\mytok:=.0123456789\do{% \if\mytok\@let@token \let\ef@latex@color\ef@n \@break@tfor\fi}\ef@gobbletonil}} % \end{macrocode} % \begin{macrocode} %\def\ef@getfirst{\@ifnextchar[{\ef@gobbletonil}{% % \@tfor\mytok:=.0123456789\do{% % \if\mytok\@let@token % \edef\ef@colorSpec@out{[gray]\ef@colorSpec@out}% % \@break@tfor\fi}\ef@gobbletonil}} \def\ef@gobbletonil#1\ef@nil{} % \end{macrocode} % \begin{macro}{\ef@parsePDFColor} % \cs{ef@parsePDFColor} tries to guarantee backward compatibility, and tries to % assure the color passed to \textsf{hycolor} fits its design expectations. % We begin by completely expanding the argument, for the argument may be in % macro form. % \begin{macrocode} \def\ef@parsePDFColor#1{\edef\ef@color@arg{#1}\ef@parsePDFColori} \def\ef@parsePDFColori{% \expandafter\ef@@parsePDFColor\ef@color@arg; ; ; ; ; ;\\} \def\ef@@parsePDFColor#1 #2 #3 #4 #5 #6\\{% % \end{macrocode} % \paragraph*{Test of gray or model or named.} We test whether this is either a named color, or gray color space. This is % the case if \texttt{\#3} is either `\texttt{g;}' or `\texttt{;}'. % \begin{macrocode} \def\argii{#2}\def\ef@cmp{g;}% \ifx\argii\ef@cmp % \end{macrocode} % It is a PDF color \texttt{ g}, if \textsf{xcolor} is loaded we pass it as % \verb![gray]{#1}!; otherwise, we return \texttt{\#1 g}. % \begin{macrocode} \expandafter\ifx\csname convertcolorspec\endcsname\relax \def\ef@colorSpec@out{#1 g}\else \def\ef@colorSpec@out{[gray]{#1}}% \fi \else\ifx\argii\ef@semicolon % \end{macrocode} % Either a named color or a single number % \begin{macrocode} \expandafter\ifx\csname convertcolorspec\endcsname\relax \ef@isitnamed#1\ef@nil \ifx\ef@latex@color\ef@n \ef@stripsemi#1\@nil \edef\ef@colorSpec@out{\ef@colorSpec@out\space g}% \else \ef@stripsemi#1\@nil \PackageWarning{eforms}{Color specification `\ef@colorSpec@out' not supported\MessageBreak without xcolor, using a black color} \def\ef@colorSpec@out{0 g}% \fi \else % xcolor % \end{macrocode} % If \textsf{xcolor} is not loaded, we do nothing; if \texttt{xcolor} is loaded % we determine if the first token is a `\texttt{[}' indicating a color space % specification; or if the first token is a number, indicating that this is a number. % If neither cases are detected, we assume a named color. % \begin{macrocode} \ef@isitnamed#1\ef@nil \ifx\ef@latex@color\ef@n \ef@stripsemi#1\@nil \edef\ef@colorSpec@out{[gray]{\ef@colorSpec@out}}% \else \ef@stripsemi#1\@nil \edef\ef@colorSpec@out{\ef@colorSpec@out}% \fi \fi \else % not semicolon \def\argiv{#4}\def\ef@cmp{rg;}% % \end{macrocode} % \paragraph*{RGB test.} If \texttt{\#4} is either `\texttt{rg;}' or `\texttt{;}', we are RGB % \begin{macrocode} \ifx\argiv\ef@cmp \expandafter\ifx\csname convertcolorspec\endcsname\relax \def\ef@colorSpec@out{#1 #2 #3 rg}\else \def\ef@colorSpec@out{[rgb]{#1,#2,#3}}\fi \else\ifx\argiv\ef@semicolon \expandafter\ifx\csname convertcolorspec\endcsname\relax \ef@stripsemi#1 #2 #3\@nil \edef\ef@colorSpec@out{\ef@colorSpec@out\space rg}\else \ef@stripsemi#3\@nil \edef\ef@colorSpec@out{[rgb]{#1,#2,\ef@colorSpec@out}}\fi % Help!: {#1,#2,\ef@colorSpec@out}% \else \def\argv{#5}\edef\ef@cmp{k;} % \end{macrocode} % \paragraph*{CMYK test.} If \texttt{\#5} is either `\texttt{k;}' or `\texttt{;}', we are CMYK. % \begin{macrocode} \ifx\argv\ef@cmp \expandafter\ifx\csname convertcolorspec\endcsname\relax \def\ef@colorSpec@out{#1 #2 #3 #4 k}\else \def\ef@colorSpec@out{[cmyk]{#1,#2,#3,#4}}\fi \else \ifx\argv\ef@semicolon \ef@stripsemi#1 #2 #3 #4\@nil \expandafter\ifx\csname convertcolorspec\endcsname\relax \edef\ef@colorSpec@out{\ef@colorSpec@out\space k}\else \ef@stripsemi#4\@nil \edef\ef@colorSpec@out{% [cmyk]{#1,#2,#3,\ef@colorSpec@out}}\fi \else\ef@parseColor@iv \fi\fi\fi\fi\fi\fi } % \end{macrocode} % \end{macro} % Error messages for color spec parsing % \begin{macrocode} \def\ef@parseColor@iv{\PackageError{AeB}{% The number of arguments is incorrect.\MessageBreak I was expecting 1, 3, or 4 components of color}{Specify the correct number of components for the color space.}} % \end{macrocode} % % \subsection{Support for setting the calculation order} % The command \cs{calcOrder}\DescribeMacro{\calcOrder} set the order of calculation % of all calculation fields listed in this comma delimited list. %\begin{verbatim} % \calcOrder{field3,field2,field1} %\end{verbatim} % \begin{macrocode} \def\calcOrder#1{\let\efCalcOrder\@gobble \@for\coi:=#1\do{\edef\efCalcOrder{\efCalcOrder,"\coi"}}% \edef\efCalcOrder{[\efCalcOrder]}} \@onlypreamble\calcOrder \def\efCalcOrder{[]} % \end{macrocode} % %\subsection{Symbol Definitions} % % Some definitions for radio fields and checkboxes % \begin{macrocode} \def\eq@check{4} \def\eq@circle{l} \def\eq@cross{8} \def\eq@diamond{u} \def\eq@square{n} \def\eq@star{H} % \end{macrocode} % \begin{macro}{\symbolchoice} % Use this macro to change the symbol used in radio and % checkboxes. The default is \cmd{\eq@check}. This macro takes one % argument: permissible values are: check, circle, cross, diamond, % square, and star. The definition of \cs{symbolchoice} is given % above in the definition of \cs{@eqsymbolchoice}. % \begin{macrocode} \let\symbolchoice\@eqsymbolchoice % \end{macrocode} % Set the default to `check'. % \begin{macrocode} \symbolchoice{check} % \end{macrocode} % \end{macro} %\subsection{Convenience Commands} % %\subsubsection{Writing Actions} % % Writing actions for eForms requires certain key-value combinations. The following % commands provides the correct syntax, the code is inserted via the required % argument of each. % % \begin{macro}{\JS} % \begin{macro}{\Named} % \begin{macro}{\URI} % \begin{macro}{\Next} % \begin{macro}{\toggleAttachmentsPanel} % Convenience commands for writing JavaScript and for executing named events. % \begin{macrocode} \providecommand{\JS}[1]{/S/JavaScript/JS(#1)} \newcommand{\URI}[1]{/S/URI/URI(#1)} \providecommand{\Named}[1]{/S/Named/N/#1} \newcommand{\Next}[1]{/Next<<#1>>} \providecommand{\toggleAttachmentsPanel}[2]{% \setLink[\Border{0 0 0}\A{\Named{ShowHideFileAttachment}}] {\textcolor{#1}{#2}}}% % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % When entering triggers into the AA dictionary, use these commands (all the ones of % the form \cs{AA}. These all have one argument, the action to take, usually % a JavaScript action. There is now a routine in the parsing of the AA dictionary % that searches for \cs{AACalculate}, if found, sets the switch \cs{ifisCalculate}. % For this search to succeed, these helper macros must be used. % \begin{macro}{\AAMouseUp} % \begin{macro}{\AAMouseDown} % \begin{macro}{\AAMouseEnter} % \begin{macro}{\AAMouseExit} % \begin{macro}{\AAOnFocus} % \begin{macro}{\AAOnBlur} % This set of six appear in the Action tab of the field properties dialog box. % Here, we don't assume the actions are JavaScript actions. The \cs{AAMouseUp} % key is normally not used, rather, the mouse up action can be define using % the \cs{A} key, such as \verb!\A{\JS{app.beep(0)}}! % \begin{macrocode} \newcommand{\AAMouseUp}[1]{/U<<#1>>} \newcommand{\AAMouseDown}[1]{/D<<#1>>} \newcommand{\AAMouseEnter}[1]{/E<<#1>>} \newcommand{\AAMouseExit}[1]{/X<<#1>>} \newcommand{\AAOnFocus}[1]{/Fo<<#1>>} \newcommand{\AAOnBlur}[1]{/Bl<<#1>>} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \begin{macro}{\AAFormat} % \begin{macro}{\AAKeystroke} % \begin{macro}{\AAValidate} % \begin{macro}{\AACalculate} % These four triggers are JavaScript only, so we use \cs{JS} % to insert the appropriate code. In the user interface, they appear % in the Format, Validate, and Calculate tabs of the text field, and the % combo box. % \begin{macrocode} \newcommand{\AAFormat}[1]{/F<<\JS{#1}>>} \newcommand{\AAKeystroke}[1]{/K<<\JS{#1}>>} \newcommand{\AAValidate}[1]{/V<<\JS{#1}>>} \newcommand{\AACalculate}[1]{/C<<\JS{#1}>>} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \begin{macro}{\AAPageOpen} % \begin{macro}{\AAPageClose} % \begin{macro}{\AAPageVisible} % \begin{macro}{\AAPageInvisible} % Page actions associated with a form field (PDF 1.5 or later) % Originally designed for multimedia annotations, but can be % use for form fields as well. There is no UI for these JavaScripts. The % order of execution of these is Page 1: PV, Page 1: PO, Page 2: PV, % Page 1: PC, Page 2: PO. %\changes{v1.0b}{2006/10/14} %{ % Added page actions for annotations, PDF 1.5 or later %} % \begin{macrocode} \newcommand{\AAPageOpen}[1]{/PO<<\JS{#1}>>} \newcommand{\AAPageClose}[1]{/PC<<\JS{#1}>>} \newcommand{\AAPageVisible}[1]{/PV<<\JS{#1}>>} \newcommand{\AAPageInvisible}[1]{/PI<<\JS{#1}>>} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} %\subsubsection{Saving Paths} % \begin{macro}{\definePath} % A convenience command for saving a path or an URL, usage, %\begin{verbatim} %\definePath{\myPath}{http://www.example.edu/~dpstory} % ... %\setLink[\A{\URI{\myPath}}]{Go There!} %\end{verbatim} % \begin{macrocode} \newcommand{\definePath}[1]{\def\ef@ctrlName{#1}% \hyper@normalise\ef@definePath} \def\ef@definePath#1{\expandafter\xdef\ef@ctrlName{#1}} % \end{macrocode} % \end{macro} % % \subsection{Annotation and Field Flags} % % \subsubsection{Annotation Flag \texttt{/F} Definitions}\label{F} % % \begin{macrocode} \def\FHidden{2} % bit 2: hidden field \def\FPrint{4} % bit 3: print (we set this bit by default) \def\FNoPrint{-4} % bit 3: -print (this clears the bit) \def\FNoView{32} % bit 6: no view \def\FLock{128} % bit 8: locked field (PDF 1.4) % \end{macrocode} %\paragraph*{Notes:}\par %\noindent\begin{tabular}{ll} % Visible (and printable) &|\F\FPrint|\\ %Hidden but printable &|\F\FNoView\F\FPrint|\\ %Visible but doesn't print &|\F\FNoPrint|\\ %Hidden (and does not print) &|\F\FHidden\F\FPrint| %\end{tabular} % %\subsubsection{Field Flags /Ff Definitions}\label{Ff} % \begin{macrocode} \def\FfReadOnly{1} % all \def\FfRequired{2} % all \def\FfNoExport{4} % all \def\FfMultiline{4096} % text \def\FfPassword{8192} % text \def\FfNoToggleToOff{16384} % radio \def\FfRadio{32768} % radio \def\FfPushButton{65536} % Push button \def\FfCombo{131072} % choice \def\FfEdit{262144} % combo \def\FfSort{524288} % choice \def\FfFileSelect{1048576} % text (PDF 1.4) \def\FfMultiSelect{2097152} % choice (PDF 1.4) \def\FfDoNotSpellCheck{4194304} % text, combo (PDF 1.4) \def\FfDoNotScroll{8388608} % text (PDF 1.4) \def\FfComb{16777216} % text (PDF 1.5) \def\FfRadiosInUnison{33554432} % radio (PDF 1.5) \def\FfCommitOnSelChange{67108864} % choice (PDF 1.5) \def\FfRichText{33554432} % radio (PDF 1.5) % \end{macrocode} % The keys \texttt{/F} and \texttt{/Ff} will be additive, that is, % for example, \verb+\F\FHidden\F\FPrint+ will get \texttt{/F 6}, % a field that is both printable and hidden. These are the only % flags that are additive this way. The following to macros % are supportive of the additivity. % \begin{macrocode} \def\getFfValue/Ff#1\@nil{\def\eq@FfValue{#1}} \def\getFValue/F#1\@nil{\def\eq@FValue{#1}} \def\@getCmdName#1{\edef\@CmdName{\expandafter\@gobble\string#1}} % \end{macrocode} % % \subsection{The \texorpdfstring{\protect\cs{every\dots}}{\textbackslash{every...}} Commands} % % \begin{macro}{\everyTextField} % \begin{macro}{\everySigField} % Insert optional arguments for every \cs{textField}. % \begin{macrocode} \newcommand{\everyTextField}[1]{\def\every@TextField{#1}} \def\every@TextField{} \newcommand{\everySigField}[1]{\def\every@sigField{#1}} \def\every@sigField{} % \end{macrocode} % \end{macro} % \end{macro} % \begin{macro}{\everyCheckBox} % Here, you can control the appearance of all the standard checkboxes, also % effects radio fields of shortquiz and quiz. % \begin{macrocode} \newcommand{\everyCheckBox}[1]{\def\every@CheckBox{#1}} \def\every@CheckBox{} % \end{macrocode} % \end{macro} % \begin{macro}{\everyRadioButton} % Pass key-values to every radio button through this key. % \begin{macrocode} \newcommand{\everyRadioButton}[1]{\def\every@RadioButton{#1}} \def\every@RadioButton{} % \end{macrocode} % \end{macro} % \begin{macro}{\everyButtonField} % \begin{macro}{\everyPushButton} % \begin{macro}{\everyListBox} % \begin{macro}{\everyComboBox} % \begin{macro}{\everyLink} % Here, you can control the appearance of all the standard buttons. % \begin{macrocode} \newcommand{\everyButtonField}[1]{\def\every@ButtonField{#1}} \def\every@ButtonField{} \newcommand{\everyPushButton}[1]{\def\every@PushButton{#1}} \def\every@PushButton{} \newcommand{\everyListBox}[1]{\def\every@listBox{#1}} \newcommand{\everyComboBox}[1]{\def\every@comboBox{#1}} \def\every@listBox{}\def\every@comboBox{} \newcommand{\everyLink}[1]{\def\every@Link{#1}} \def\every@Link{} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % % \subsection{Set Field Properties} % % These are the two commands that process the field properties. This is % done by calling \cs{processAppArgs} to loop through pairs of tokens % and executing them, as explained in the discussion of \cs{processAppArgs}. % \medskip\par\noindent % The \DescribeMacro{\ef@djXPD}\cs{ef@djXPD} command attempts to reduce the size of a form field created by \app{xelatex} so its % dimensions are consistent with what \app{pdflatex}/\app{Distiller} produce. % \begin{macrocode} \def\ef@adjrectWH#1{\dimen@ii#1\relax \ifx\eq@rectW\@empty\else \eflength\eq@rectW\relax \advance\eflength\dimen@ii \edef\eq@rectW{\the\eflength}% \eflength\eq@rectH\relax \advance\eflength\dimen@ii \edef\eq@rectH{\the\eflength}% \fi } \def\ef@djXPD{\ifxetex\ifmakeXasPD\ef@adjrectWH{2bp}\fi \else\ifmakePDasX\ef@adjrectWH{-2bp}\fi\fi} % \end{macrocode} % \begin{macro}{\eq@setButtonProps} % This macro measure the width of the largest text on defined for the % button, and then passes the this info on to a driver specific macro % \#1, the first parameter. %\begin{verbatim} % #1 is the driver specific macro to build the button widget % #2 are the button properties %\end{verbatim} %\changes{v2.5m}{2012/01/27}{Added \string\cs{ef@btnspcr} to give user % ability to adjust the spacing around text for a button.} % \begin{macrocode} %\def\ef@btnspcr{\ } \def\ef@btnspcr{} \def\eq@setButtonProps#1#2{% \makeJSspecials \processAppArgs#2\end\@nil % set widget properties % \end{macrocode} % Coordinate the values of \cs{BC} and \cs{W}, if one is empty % the other is too. % \changes{v2.9f}{2017/01/01}{BC=empty iff W=0 or empty} % \begin{macrocode} \ifx\eq@BC\@empty\@eqW{}\else \if\eq@W@value0\let\eq@BC\@empty\fi\fi \Hy@pdfstringfalse \ifx\eq@rectW\@empty \ifnum\eq@textSize=0 \else % \end{macrocode} % If rectW is nonempty, and textSize is not zero, we calculate with % width of the caption on the button by first adjusting the for size % to properly gauge the width of the text. This may not be really accurate % because the font used by tex will no doubt be different from the font used % by the button. % \begin{macrocode} \dimen@=\eq@textSize bp \dimen@1.00375\dimen@ \edef\eq@textSize@pt{\strip@pt\dimen@}% \fontsize{\eq@textSize@pt}{0}\selectfont \fi % \end{macrocode} % If the button is beveled, we pad the width by 2 times the width of the border, % the beveled edge taking up a width approx equal to the border. % \begin{macrocode} \dimen@\eq@W@value bp \def\eq@S@B{B}\ifx\eq@S@value\eq@S@B \def\eq@btn@sp{\hbox to2\dimen@{\hfill}}% \else \def\eq@btn@sp{\hbox to\dimen@{\hfill}}% \fi \expandafter\def\expandafter \ef@btnspcr\expandafter{\ef@btnspcr\eq@btn@sp}% \sbox{\eq@tmpbox}{\ef@btnspcr\eq@CA\ef@btnspcr}% \eq@tmpdima=\wd\eq@tmpbox \sbox{\eq@tmpbox}{\ef@btnspcr\eq@RC\ef@btnspcr}% \ifdim\eq@tmpdima>\wd\eq@tmpbox\else \eq@tmpdima=\wd\eq@tmpbox\fi% \sbox{\eq@tmpbox}{\ef@btnspcr\eq@AC\ef@btnspcr}% \ifdim\eq@tmpdima>\wd\eq@tmpbox\else \eq@tmpdima=\wd\eq@tmpbox\fi % \end{macrocode} % (2017/01/22) If X-like, increase by 2bp % \changes{v2.9k}{2017/01/22}{If X-like, increase by 2bp} % \begin{macrocode} \ifmakePDasX\advance\eq@tmpdima2bp\fi \wd\eq@tmpbox=\eq@tmpdima \else \wd\eq@tmpbox=\eq@rectW \fi % \end{macrocode} % (2016/12/22) \cs{ef@djXPD} adjusts the size of the field dimensions, if \cs{makeXasPD} is true. % \begin{macrocode} \ef@djXPD#1% dps 12/22 } % \end{macrocode} % \end{macro} % \begin{macro}{\eq@setWidgetProps} % Same as \cmd{\eq@setButtonProps} but does not measure the width of the % field. Simply lays in the optional parameters that modify the appearance % then calls the driver specific macro to build the widget. %\begin{verbatim} % #1 is the driver specific macro to build the widget % #2 are the widget properties %\end{verbatim} % \begin{macrocode} \def\eq@setWidgetProps#1#2{% \makeJSspecials \processAppArgs#2\end\@nil % set widget properties % \end{macrocode} % Coordinate the values of \cs{BC} and \cs{W}, if one is empty % the other is too. This rule does not apply to links. % \changes{v2.9f}{2017/01/01}{BC=empty iff W=0 or empty} % \begin{macrocode} \ifx\annot@type@link\annot@type\else \ifx\eq@BC\@empty\@eqW{}\else \if\eq@W@value0\let\eq@BC\@empty\fi\fi \fi % \end{macrocode} % (2016/12/22) \cs{ef@djXPD} adjusts the size of the field dimensions, if \cs{makeXasPD} is true. % \begin{macrocode} \ef@djXPD#1% dps 12/22 } % \end{macrocode} % \end{macro} % We now begin creating various commands for creating Acrobat Form fields. These % fall into four categories: \hyperref[choice]{Choice Fields} (list box and the combo box), % \hyperref[button]{Button Fields} (push button, check box, and radio button), \hyperref[textfield]{Text Fields}, % and \hyperref[sigfield]{Signature Fields}. % % Each of these fields has an optional first parameter which is used to % change the appearance properties of the field, to set action of the % field, and so on. For this optional parameter, we sanitize certain % characters so they can be used in, for example, urls, or JavaScript strings. %\changes{v2.5k}{2011/01/19} %{% % Added double quotes as other to the \string\cs{ef@sanitize@toks} command to % keep Babel from changing the JavaScript string. This definition remains % in effect only for the optional argument for form fields and links. %} % \begin{macrocode} \def\ef@sanitize@toks{\@makeother\~\@makeother\#\@makeother\&% \@makeother\"\@makeother\_} % \end{macrocode} % \begin{macro}{\efKern} % A convenience macro to adjust spacing between fields. %\begin{itemize} % \item \texttt{\#1} is the spacing for ps/pdftex drivers % \item \texttt{\#2} is the spacing for xetex %\end{itemize} %Unlike ps/pdftex, xetex includes the border width as part of the bounding rectangle %dimensions. As a result, this wider boundary is known to {\TeX} as it lays out the line. For % ps/pdftex, the boundary width is invisible to {\TeX}. The command \cs{ef@adjHWxetex} tries to % adjust the dimensions for xetex so the form field dimensions are the over all platforms. The boundary % is still ``visible'' in {\TeX} space. % %\paragraph*{Sample uses:} %\begin{enumerate} % \item Two contiguous fields of the same border color \verb!\efKern{1bp}{-1bp}!. The right and % left borders exactly overlap. % \item Two contiguous fields of different border colors \verb!\efKern{2bp}{0bp}!. The right % and left border are contiguous but do not overlap. %\end{enumerate} % \begin{macrocode} \newcommand\efKern[2]{\ifxetex\kern#2\else\kern#1\fi} % \end{macrocode} % \end{macro} % \DescribeMacro{\olBdry}\cs{olBdry} and \DescribeMacro{\cgBdry}\cs{cgBdry} % are convenience commands to setting the gap between two contiguous fields. % \cs{olBdry} gives positions the fields so that the boundary lines overlap % (ol) and \cs{cgBdry} positions the field so the boundary lines are % contiguous (cg). % \changes{v2.9d}{2016/12/22}{Added \string\cs{olBdry} and\string\cs{cgBdry}} % \begin{macrocode} \newcommand\olBdry{\bgroup\ifxetex % dps 12/22 \@tempdima-\g@eq@W@value@bp\relax \edef\@mtkern{\the\@tempdima}\else \@tempdima2bp\relax\advance\@tempdima-\g@eq@W@value@bp\relax % 12/26 \edef\@mtkern{\the\@tempdima}\fi\kern\@mtkern\egroup } % \end{macrocode} % (2017/01/15) Add optional argument to \cs{cgBdry} % \changes{v2.9h}{2017/01/15}{Add optional argument to \string\cs{cgBdry}} % \begin{macrocode} \newcommand\cgBdry[1][0bp]{\bgroup\def\ef@rgi{#1}\ifx\ef@rgi\@empty \def\ef@rgi{0bp}\fi\setlength{\@tempdima}{\ef@rgi}% \ifxetex\else\addtolength{\@tempdima}{2bp}\fi \kern\@tempdima\egroup\ignorespaces} % \end{macrocode} % \DescribeMacro{\volBdry}\cs{volBdry} and \DescribeMacro{\vcgBdry}\cs{vcgBdry} % are convenience commands to setting the gap between two vertically oriented fields. % \cs{volBdry} gives positions the fields so that the boundary lines overlap % (ol) and \cs{vcgBdry} positions the field so the boundary lines are % contiguous (cg). % \changes{v2.9h}{2017/01/15}{Added \string\cs{volBdry} and\string\cs{vcgBdry}} % \changes{v2.9n}{2017/09/04}{Added \string\cs{efSupprIndent}}. % \begin{macrocode} \newcommand{\efSupprIndent}{\ef@scratchtoks=\expandafter{\the\everypar}% \everypar{{\setbox\z@\lastbox}\clubpenalty\@M \everypar=\expandafter{\the\ef@scratchtoks}}} \newcommand\volBdry{\bgroup\parskip0pt\relax\@@par\nointerlineskip \olBdry\egroup\efSupprIndent} \newcommand\vcgBdry{\@ifstar{\edef\ef@offset{\the\parskip}\vcgBdry@i} {\def\ef@offset{0pt}\vcgBdry@i}} \newcommand\vcgBdry@i[1][0bp]{\bgroup \setlength{\ef@dimena}{#1-\ef@offset}\parskip0pt\relax \par\nointerlineskip\cgBdry[\ef@dimena]% \egroup\ignorespaces\efSupprIndent} % \end{macrocode} % % \subsection{Choice Fields}\label{choice} % % This is the form template used for all choice fields, list box and combo box. % \begin{macrocode} \def\common@choiceCode{% /Subtype/Widget /T (\Fld@name) /FT/Ch \eq@Ff \eq@F \eq@TU \eq@TI /BS << \eq@W\eq@S >> /MK <<\eq@R\eq@BC\eq@BG\eq@mkIns>> /DA (\eq@DA) /Opt [\eq@Opt] \eq@DV\eq@V \eq@A\eq@AA \eq@rawPDF } % \end{macrocode} % Sets the dimensions of the fields/links based on \texttt{\#1} (width) % and \texttt{\#2} (height). % \begin{macrocode} \def\eqf@setDimens#1#2{\@eqrectW{#1}\@eqrectH{#2}} % \end{macrocode} % The \cs{ef@pdfstrCLOpt} command runs the option array for list and combo box through % \cs{pdfstringdef}. There are two forms: % \begin{enumerate} % \item |[(1)(Zur Info)][(2)(Bitte um R\"{u}cksprache)]| % \item |(Zur Info)(Bitte um R\"{u}cksprache)| %\end{enumerate} % In the code below, we distinguish these two cases based on the first character: % if \texttt{[} then it is form (1), otherwise, it is form (2). The \cs{pdfstringdef} % will convert the accented character \verb!\"{u}! into a PD1 character. (2015/06/06) % the token \DescribeMacro\passthruCLOpts\cs{passthruCLOpts} is used to pass through % raw option syntax for combo and list boxes; this allows a unicode notation. % \begin{macrocode} \let\ef@@nil\relax \def\@gobbleto@@nil#1\ef@@nil{}% % \end{macrocode} % When \cs{passthruCLOpts} (or \texttt{*}) is used, there may be a % lingering space that survives after the closing right brace of the % argument, we attempt to absorb it with \cs{@gobbleto@@nil} immediately % after the \cs{g@addto@macro}. % \begin{macrocode} \long\def\g@addto@macrogobble#1#2{\g@addto@macro{#1}{#2}\@gobbleto@@nil} % \end{macrocode} % \changes{v2.8a}{2015/07/15}{New def for \string\cs{passthruCLOpts}, and modified % \cs{ef@pdfstrCLOpts} and its spawn.} % (2015/07/15) New def for \cs{passthruCLOpts}, and modified \cs{ef@pdfstrCLOpts} and its spawn. % \begin{macrocode} \def\passthruCLOpts{*} \def\ef@pdfstrCLOpt{\Hy@unicodefalse\def\eq@Opt{}\ef@pdfstrCLOpti} \def\ef@pdfstrCLOpti{\@ifnextchar\ef@@nil{\@gobble}{\ef@pdfstrCLOptia}} % \end{macrocode} % The final argument of \cs{comboBox} or \cs{listBox} is any of three forms. %\begin{verbatim} % {[(1)(Socks)][(2)(Shoes)][(3)(Pants)][(4)(Shirts)][(5)(Tie)]} % {(Socks)(Shoes)(Pants)(Shirts)(Tie)} % {\passthruCLOpts{% % [(Euro)<\unicodeStr(myEuro)>]% % [(Yen)<\unicodeStr(myYen)>] % [(Sheqel)<\unicodeStr(mySheqel)>]% % [(Pound)<\unicodeStr(myPound)>]% % [(Franc)<\unicodeStr(myFranc)>]} %\end{verbatim} % As long as the first token is not \cs{passthruCLOpts}, the argument may also be % a combination of the first two, such as %\begin{verbatim} % {[(1)(Socks)](Shoes)[(3)(Pants)](Shirts)[(5)(Tie)]} %\end{verbatim} % The trick is to identify the first token of the group (\texttt{[} or \texttt{(}). % When the first token is \cs{passthruCLOpts}, the extensive parse does not take place, % and the whole argument just passes to \cs{eq@Opt}. %\medskip\noindent % If next char is `\texttt{[}' then we have an array element of the form % \verb![(val)(appr)]!, we \cs{@gobble} the left brace in this case. If % the next char is not a left bracket, go to next state. % \begin{macrocode} \def\ef@pdfstrCLOptia{\@ifnextchar[{\expandafter \ef@pdfstrOptWBii\@gobble}{\ef@pdfstrCLOptb}} % \end{macrocode} % If not a left bracket, check for \cs{passthruCLOpts}, which expands to `\texttt{*}'. % If `\texttt{*}', then we pass the whole argument to \cs{eq@Opt} and end parsing. If % not `\texttt{*}', check for parentheses. % \begin{macrocode} \def\ef@pdfstrCLOptb{\@ifstar{\g@addto@macrogobble\eq@Opt} {\ef@pdfstrOptWPi}} % \end{macrocode} %\changes{v2.6d}{2014/04/26}{Added additional parsing, so spaces % can occur between arguments.} % (2014/04/26) Added additional parsing, so spaces % can occur between arguments. %\par\medskip\noindent % Following a bracket, the next token can only be a left parenthesis, if not error. % \begin{macrocode} \def\ef@pdfstrOptWBii{% \@ifnextchar({\ef@pdfstrOptWBiia}{\PackageError{eforms} {Left parenthesis expected here}{}}% } % \end{macrocode} % We process the element of the form by pushing \verb![(val)(appr)]! onto the % \cs{eq@Opt} stack. % \begin{macrocode} \def\ef@pdfstrOptWBiia(#1){% \g@addto@macro\eq@Opt{[(}% \pdfstringdef\@optTokstemp{#1}% \expandafter\g@addto@macro\expandafter\eq@Opt \expandafter{\@optTokstemp}% \@ifnextchar({\ef@pdfstrOptWBiib}{\PackageError{eforms} {Left parenthesis expected here}{}}% } % \end{macrocode} % Get the second element of the array, which is enclosed in parentheses. % push its value onto the stack too. % \begin{macrocode} \def\ef@pdfstrOptWBiib(#1){% \g@addto@macro\eq@Opt{)(}% \pdfstringdef\@optTokstemp{#1}% \expandafter\g@addto@macro\expandafter\eq@Opt \expandafter{\@optTokstemp}% \g@addto@macro\eq@Opt{)]}% % \end{macrocode} % Now after removing the final right bracket, return to the beginning, % which is the \cs{ef@pdfstrCLOpti} command. % \begin{macrocode} \expandafter\ef@pdfstrCLOpti\@gobble } % \end{macrocode} % Process the purely parentheses version of the array. % \begin{macrocode} \def\ef@pdfstrOptWPi{\@ifnextchar\ef@@nil{\@gobble}{\ef@pdfstrOptWPii}} \def\ef@pdfstrOptWPii(#1){% \g@addto@macro\eq@Opt{(}% \pdfstringdef\@optTokstemp{#1}% \expandafter\g@addto@macro\expandafter\eq@Opt \expandafter{\@optTokstemp}% \g@addto@macro\eq@Opt{)}% % \end{macrocode} % Return to the beginning, \cs{ef@pdfstrCLOpti}. % \begin{macrocode} \ef@pdfstrCLOpti} % \end{macrocode} % \subsubsection{List Box}\label{listbox} % The main list box code that can be used to build list box commands, such as % \cs{listBox}, defined below. % \begin{macrocode} \def\annot@type@listbox{listbox} \newcommand\list@@Box[8]{\begingroup \edef\annot@type{\annot@type@listbox}% \pdfstringdef\Fld@name{#2}% % \edef\Fld@name{#2}%\def\eq@Opt{#5}% % \end{macrocode} % Run \texttt{\#5} through \cs{ef@pdfstrCLOpt}. % \begin{macrocode} \expandafter\ef@pdfstrCLOpt#5\ef@@nil \eqf@setDimens{#3}{#4}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@processEvery#8\end\noindent#6#7{#1}% } % \end{macrocode} % \begin{macro}{\listBox} %\begin{verbatim} % #1 = optional, used to enter any modification of the appearance/actions % #2 = the title of the list box field % #3 = the width of the bounding rectangle % #4 = the height of the bounding rectangle % #5 = the face values/export values of list. %\end{verbatim} % \begin{macrocode} \def\listBoxDefaults{% \W{1}\S{I}\F{\FPrint}\BC{0 0 0} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\listBox{\begingroup \ef@sanitize@toks\ef@listbox } \newcommand{\ef@listbox}[1][]{% \endgroup\ef@listBox[#1]% } \newcommand\ef@listBox[5][]{% \mbox{\list@@Box{#1}{#2}{#3}{#4}{#5}{}{\eq@setWidgetProps \eq@choice@driver}{\listBoxDefaults\every@listBox}}% } % \end{macrocode} % \end{macro} % \subsubsection{Combo Box}\label{combobox} % \begin{macrocode} \def\annot@type@combobox{combobox} \newcommand\combo@@Box[8]{\begingroup \edef\annot@type{\annot@type@combobox}% \@eqFf{\FfCombo}\pdfstringdef\Fld@name{#2}% % \edef\Fld@name{#2}%\def\eq@Opt{#5}% % \end{macrocode} % Run \texttt{\#5} through \cs{ef@pdfstrCLOpt}. % \begin{macrocode} \expandafter\ef@pdfstrCLOpt#5\ef@@nil \eqf@setDimens{#3}{#4}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@processEvery#8\end\noindent#6#7{#1}% } % \end{macrocode} % \begin{macro}{\comboBox} % A general combo box command. %\begin{verbatim} % #1 = optional, used to enter any modification of the appearance/actions % #2 = the title of the radio field % #3 = the width of the bounding rectangle % #4 = the height of the bounding rectangle % #5 = the face values/export values of combo box. %\end{verbatim} % \begin{macrocode} \def\comboBoxDefaults{% \W{1}\S{I}\F{\FPrint}\BC{0 0 0} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\comboBox{\begingroup \ef@sanitize@toks\ef@combobox } \newcommand{\ef@combobox}[1][]{% \endgroup\ef@comboBox[#1]% } \newcommand\ef@comboBox[5][]{% \mbox{\combo@@Box{#1}{#2}{#3}{#4}{#5}{}{\eq@setWidgetProps \eq@choice@driver}{\comboBoxDefaults\every@comboBox}}% } % \end{macrocode} % \end{macro} % \subsection{Button Fields}\label{button} % Here is the field template for push button fields. % \begin{macrocode} \def\common@pushButtonCode{% /Subtype/Widget /T (\Fld@name) /FT/Btn \eq@Ff \eq@TU \eq@H \eq@F /BS <<\eq@W\eq@S >> \ifx\eq@AP\@empty /MK <<\eq@R\eq@BC\eq@BG% \ef@kvCA\ef@kvRC\ef@kvAC\eq@IconMK\eq@mkIns>> \else \eq@AP \fi /DA (\eq@DA) \eq@A\eq@AA \eq@rawPDF } % \end{macrocode} % Here is the field template for check boxes and radio button fields fields. % \begin{macrocode} \def\common@RadioCheckCode{% /Subtype/Widget /T (\Fld@name) /FT/Btn \eq@Ff \eq@F \eq@TU /BS <<\eq@W\eq@S>> % \end{macrocode} % \changes{v1.0d}{2007/09/01}{% % Corrected a problem with radio buttons. The problem was created by earlier % changes so that the \string\textbf{AP} key could play a greater role in creating % different appearances. %} % \begin{macrocode} \ifx\eq@AP\@empty /AP<< /N <<\eq@On<<>>>> >> \eq@MK \else \eq@AP \fi /DA (\eq@DA) \eq@AS \eq@DV\eq@V \eq@A\eq@AA \eq@rawPDF } % \end{macrocode} % \subsubsection{Push Button}\label{pushbutton} % Here is the basic command for creating a button field. This is the building block % for all other buttons. %\changes{v2.0b}{2008/06/19} %{ % Added code to take the dimensions and pass them through % \string\cs{setlength}, so that calc type dimensions can be used % when setting the dimensions of this widget. Made the same % changes for all AcroForm elements and for linking. %} % \begin{macrocode} \def\annot@type@button{pushbtn} \newcommand\push@@Button[7]{\begingroup \edef\annot@type{\annot@type@button}% \pdfstringdef\Fld@name{#2}%\edef\Fld@name{#2}% \makeJSspecials\ef@preProcDefns \def\eq@Ff{/Ff \FfPushButton}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \eqf@setDimens{#3}{#4}% \@processEvery#7\end\noindent#5#6{#1}% } % \end{macrocode} % \begin{macro}{\pushButton} %\begin{verbatim} %#1 = optional, used to enter any modification of the appearance/actions %#2 = the title of the button field %#3 = the width of the bounding rectangle %#4 = the height of the bounding rectangle %\end{verbatim} % \begin{macrocode} \def\pushButtonDefaults{% \W{1}\S{B}\F{\FPrint}\BC{0 0 0} \H{P}\BG{.7529 .7529 .7529} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\pushButton{\begingroup \ef@sanitize@toks\ef@pushbutton } \newcommand{\ef@pushbutton}[1][]{% \endgroup\ef@pushButton[#1]% } \newcommand\ef@pushButton[4][]{% \mbox{\push@@Button{#1}{#2}{#3}{#4}{}{% \eq@setButtonProps\eq@Button@driver}% {\pushButtonDefaults\every@PushButton}}% } % \end{macrocode} % \end{macro} % \subsubsection{Check Box}\label{checkbox} % The basic command for creating check boxes. % \begin{macrocode} \def\annot@type@checkbox{checkbox} \newcommand\check@@Box[8] {% \begingroup\let\#\ef@Hx \edef\annot@type{\annot@type@checkbox}% \pdfstringdef\Fld@name{#2}\@eqAS{Off}% \def\@eqDV##1{\def\eq@arg{##1}\ifx\eq@arg\@empty\let\eq@DV\@empty \else\ifpdfmarkup\def\eq@DV{/DV(##1) cvn }\else \def\eq@DV{/DV/##1}\fi\fi}% \def\@eqV##1{\def\eq@arg{##1}\ifx\eq@arg\@empty \let\eq@V\@empty\else\ifpdfmarkup\def\eq@V{/V(##1) cvn }\else \def\eq@V{/V/##1}\fi\@eqAS{##1}\fi}% \eqf@setDimens{#3}{#4}% \ifpdfmarkup\def\eq@On{(#5) cvn }\else \def\eq@On{/#5}\fi\@eqtextFont{ZaDb}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@eqMK{\eq@R\eq@BC\eq@BG/CA(\symbol@choice)\eq@mkIns}% \@processEvery#8\end\noindent#6#7{#1}% } % \end{macrocode} % \begin{macro}{\checkBox} %\begin{verbatim} %#1 = optional, used to enter any modification of the appearance/actions %#2 = the title of the check box field %#3 = the width of the bounding rectangle %#4 = the height of the bounding rectangle %#5 = the 'on value' or export value, the default is "Yes". %\end{verbatim} % \begin{macrocode} \def\checkBoxDefaults{% \F{\FPrint}\W{1}\S{S}\BC{0 0 0}% } \newcommand\checkBox{\begingroup \ef@sanitize@toks\ef@checkbox } \newcommand{\ef@checkbox}[5][]{% \endgroup\mbox{\check@@Box{#1}{#2}{#3}{#4}{#5}{}{\eq@setWidgetProps \eq@RadioCheck@driver}{\checkBoxDefaults\every@CheckBox}}% } % \end{macrocode} % \end{macro} % \subsubsection{Radio Button}\label{radiobutton} % The basic command for creating radio button fields. % \begin{macrocode} % Basic command for building all radio buttons. % \end{macrocode} % \begin{macrocode} \def\annot@type@radio{radiobtn} \newcommand\radio@@Button[8]{\begingroup\let\#\ef@Hx \edef\annot@type{\annot@type@radio}% \pdfstringdef\Fld@name{#2}\@eqAS{Off}% % \edef\Fld@name{#2}\@eqAS{Off}% \def\@eqDV##1{\def\eq@arg{##1}\ifx\eq@arg\@empty\let\eq@DV\@empty \else\ifpdfmarkup\def\eq@DV{/DV(##1) cvn }\else \def\eq@DV{/DV/##1}\fi\fi}% \def\@eqV##1{\def\eq@arg{##1}\ifx\eq@arg\@empty \let\eq@V\@empty\else\ifpdfmarkup\def\eq@V{/V(##1) cvn }\else \def\eq@V{/V/##1}\fi\@eqAS{##1}\fi}% \eqf@setDimens{#3}{#4}% \ifpdfmarkup\def\eq@On{(#5) cvn }\else\def\eq@On{/#5}\fi \def\eq@Ff{/Ff \FfRadio}\@eqtextFont{ZaDb}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@eqMK{\eq@R\eq@BC\eq@BG/CA(\symbol@choice)\eq@mkIns}% \@processEvery#8\end\noindent#6#7{#1}% } % \end{macrocode} % \begin{macro}{\radioButton} %\begin{verbatim} %#1 = optional, used to enter any modification of the appearance/actions %#2 = the title of the radio button field %#3 = the width of the bounding rectangle %#4 = the height of the bounding rectangle %#5 = the 'on value' or export value, the default is "Yes" %\end{verbatim} % \begin{macrocode} \def\radioButtonDefaults {% \W{1}\S{S}\BC{0 0 0}\F{\FPrint} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\radioButton{\begingroup \ef@sanitize@toks\ef@radiobutton } \newcommand{\ef@radiobutton}[5][]{\endgroup \mbox{\radio@@Button{#1}{#2}{#3}{#4}{#5}{}{\eq@setWidgetProps \eq@RadioCheck@driver}{\radioButtonDefaults\every@RadioButton}}% } \newcommand\ef@radioButton[5][] {% \mbox{\radio@@Button{#1}{#2}{#3}{#4}{#5}{}{\eq@setWidgetProps \eq@RadioCheck@driver}{\radioButtonDefaults\every@RadioButton}}% } % \end{macrocode} % \end{macro} % % \subsection{Text Field}\label{textfield} % % The template for a text field. % \begin{macrocode} \def\common@TextFieldCode {% /Subtype/Widget /T (\Fld@name) /FT/Tx \eq@Ff \eq@F \eq@Q \eq@TU \eq@MaxLen /BS <<\eq@W\eq@S>> /MK <<\eq@R\eq@BC\eq@BG\eq@mkIns>> /DA (\eq@DA) \eq@DV\eq@V \eq@RV\eq@DS \eq@A\eq@AA \eq@rawPDF } % \end{macrocode} % The basic text field macro for constructing all other text fields. % \begin{macrocode} \def\annot@type@text{textfld} \newcommand\text@@Field[7] {% \begingroup \edef\annot@type{\annot@type@text}% \pdfstringdef\Fld@name{#2}\def\eq@Title{#2}% % \edef\Fld@name{#2}\def\eq@Title{#2}% \eqf@setDimens{#3}{#4}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@processEvery#7\end\noindent#5#6{#1}% } % \end{macrocode} % \begin{macro}{\textField} %\begin{verbatim} %#1 = optional, used to enter any modification of the appearance/actions %#2 = the title of the text field %#3 = the width of the bounding rectangle %#4 = the height of the bounding rectangle %\end{verbatim} % \begin{macrocode} \def\textFieldDefaults {% \F{\FPrint}\BC{0 0 0}\W{1}\S{S} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\textField{\begingroup \ef@sanitize@toks\ef@textfield } \newcommand{\ef@textfield}[2][]{% \endgroup\ef@textField[#1]{#2}% } \newcommand\ef@textField[4][] {% \mbox{\text@@Field{#1}{#2}{#3}{#4}{}% {\eq@setWidgetProps\eq@TextField}% {\textFieldDefaults\every@TextField}}% } % \end{macrocode} % Some legacy assignments. % \begin{macrocode} \let\eqTextField\textField \let\calcTextField\textField % \end{macrocode} % \end{macro} % % \subsection{Signature Field}\label{sigfield} % % The template for a signature field. % \begin{macrocode} \def\common@SigFieldCode {% /Subtype /Widget /T (\Fld@name) /FT/Sig \eq@F \eq@TU /BS <<\eq@W\eq@S>> /MK <<\eq@R\eq@BC\eq@BG\eq@mkIns>> /DA (\eq@DA) \eq@Lock \eq@A\eq@AA \eq@rawPDF } % \end{macrocode} % The basic text field macro for constructing all other text fields. % \begin{macrocode} \def\annot@type@sig{sigfld} \newcommand\sig@@Field[7]{% \begingroup \edef\annot@type{\annot@type@sig}% \pdfstringdef\Fld@name{#2}\def\eq@Title{#2}% % \edef\Fld@name{#2}\def\eq@Title{#2}% \eqf@setDimens{#3}{#4}% \def\eq@DA{\eq@textFont\space\eq@textSize\space Tf \eq@textColor}% \@processEvery#7\end\noindent#5#6{#1}% } % \end{macrocode} % \begin{macro}{\sigField} %\begin{verbatim} %#1 = optional, used to enter any modification of the appearance/actions %#2 = the title of the text field %#3 = the width of the bounding rectangle %#4 = the height of the bounding rectangle %\end{verbatim} % \begin{macrocode} \def\sigFieldDefaults {% \F{\FPrint}\BC{}\BG{}\W{1}\S{S} } % \end{macrocode} % We sanitize the optional first parameter. % \begin{macrocode} \newcommand\sigField{\begingroup \ef@sanitize@toks\ef@sigfield } \newcommand{\ef@sigfield}[1][]{% \endgroup\ef@sigField[#1]% } \newcommand\ef@sigField[4][] {% \mbox{\sig@@Field{#1}{#2}{#3}{#4}{}{\eq@setWidgetProps\eq@SigField}% {\sigFieldDefaults\every@sigField}}% } % \end{macrocode} % \end{macro} % % \section{Additional Link Support} % % The links in \textsf{hyperref} are not sufficiently general to % allow actions other than jumping. I've included a general link % that increases the usage of the links provided by % \textsf{hyperref}. % \paragraph{Common Link Code.} All the link commands eventually come back % to this template for constructing a link annotation. % \begin{macrocode} \def\common@LinkCode {% \eq@A % Action \eq@H % Highlight \eq@Color % Border color \link@BS % Border styles \eq@rawPDF % everything else } % \end{macrocode} % \cs{set@@Link} is the low-level link command and is the building block of all the % other, more user-friendly link commands. Takes seven parameters: %\begin{enumerate} %\item[\texttt{\#1}:] Optional arguments to modify the appearance and actions of the link. %\item[\texttt{\#2}:] The width of the bounding rectangle. %\item[\texttt{\#3}:] The height of the bounding rectangle. %\item[\texttt{\#4}:] The text to be enclosed by the link. %\item[\texttt{\#5}:] Used to set link properties and link driver. %\item[\texttt{\#6}:] I don't remember what this one was about, same as \texttt{\#5}. %\item[\texttt{\#7}:] Used to set link defaults and to execute \cs{everyLink}. %\end{enumerate} % \begin{macrocode} \def\annot@type@link{link} \newcommand\set@@Link[7] {% \begingroup \makeJSspecials \edef\annot@type{\annot@type@link}% \ef@preProcDefns \eqf@setDimens{#2}{#3}% \ifx\eq@rectW\@empty\def\link@@Box{#4}\else \def\eq@arg{#4}\ifx\eq@arg\@empty \def\eq@content{\hfill\vfill}\else\def\eq@content{#4}\fi \def\link@@Box{\parbox[\eq@pos][\eq@rectH][\eq@innerpos]% {\eq@rectW}{\centering\eq@content}}% \fi \@processEvery#7\end\noindent#5#6{#1}% } % \end{macrocode} % \paragraph{The Visibility of Border of the Link.} We use \textsf{hyperref}'s % option \texttt{colorlinks} to determine if we % make the bounding rectangle visible or not by default. % \begin{macrocode} \def\defaultlinkcolor{\@linkcolor} % \end{macrocode} % Delay default link color until beginning of document. %\changes{v2.8f}{2016/04/05}{Delay default link color until beginning of document.} % \begin{macrocode} \def\setDef@ultLinkColor{\ifHy@colorlinks \def\ef@thislinkcolor{\defaultlinkcolor} \def\ef@colorthislink{\color{\ef@thislinkcolor}}\else \let\ef@colorthislink\relax\fi } \AtBeginDocument{\setDef@ultLinkColor} % \end{macrocode} % \begin{macro}{\setLink} % \cs{setLink} is the basic high-level link command, it is used to surround text % with a link annotation. % \begin{macro}{\setLinkText} % \cs{setLinkText} is a synonym for \cs{setLink}. % \begin{macro}{\mlhypertext} % A command defined in the \pkg{aeb\_mlink} package. % \begin{macro}{\mlsetLink} % \cs{mlsetLink} expands to \cs{mlhypertext} %\begin{verbatim} % \setLink[\A{\JS{this.pageNum=6;}}\Color{1 0 0}]{Go There!} %\end{verbatim} % \paragraph{Link Parameters.} These high-level links takes two parameters, one of which % is optional. %\begin{enumerate} %\item[\texttt{[\#1]}:] Optional key-value pairs to change the appearance or action % of this link. %\item[\texttt{\#2}:] The text to be enclosed in the bounding rectangle of this link. %\end{enumerate} %\paragraph{Link default parameters.} We set the line style on solid, and % the border array to \texttt{0 0 0}, no visible border. % \begin{macrocode} \def\set@LinkTextDefaults{\S{S}\Border{0 0 0}} % \end{macrocode} % If the \texttt{colorlinks} option is in effect with hyperref, we color links when author % uses |\setLinkText|, a command used by many other commands defined in AeB. % \begin{macrocode} \newcommand\setLink{\begingroup \ef@sanitize@toks\ef@setlinktext } % \end{macrocode} % \changes{v2.5b}{2009/12/24}{added path to \string\cs{mlhypertext}} % Added a path to \cs{mlhypertext} of the \textsf{aeb\_mlink} package. When the % user specifies \verb!\mlLink{true}! in the option list, we branch off to % \cs{mlhypertext}. For example, if we say, %\begin{verbatim} %\setLink[\mlLink{true}\A{\JS{app.alert("Hello World!");}}]{Hello World!} %\end{verbatim} % then we branch off to \cs{mlhypertext}. The above, then, is equivalent to, %\begin{verbatim} %\mlhypertext[\A{\JS{app.alert("Hello World!");}}]{Hello World!} %\end{verbatim} %If you've created a link using \cs{setLink} and the text does not wrap around to the next %link, simply insert \verb!\mlLink{true}! as an option to declare this link is a multi-line %link. Of course, you can also change the name from \cs{setLink} to \cs{mlsetLink} (or to \cs{mlhypertext}). % %In the next line, we \cs{let} \cs{setLinkText} to \cs{setLink} % \begin{macrocode} \let\setLinkText\setLink \newcommand{\ef@setlinktext}[1][]{% \endgroup\ef@searchmlLink#1\mlLink\end\@nil \ifx\ef@mlLink\ef@Zero\def\ef@next{\set@LinkText[#1]}\else \def\ef@next{\mlhypertext[#1]}\fi\ef@next } \newcommand\set@LinkText[2][]{% \set@@Link{#1}{}{}{\ef@colorthislink#2}{}% {\eq@setWidgetProps{\ef@postProcLinkProps\setLink@driver}}% {\set@LinkTextDefaults\every@Link}% } % \end{macrocode} % Definitions we want make locally to the options parameters; otherwise, % these are undefined. % \begin{macrocode} \def\ef@preProcDefns{% \def\Win##1{/Win <<##1>>}% \def\fitpage{\dl@fitpage}\def\actualsize{\dl@actualsize}% \def\fitwidth{\dl@fitwidth}\def\fitheight{\dl@fitheight}% \def\fitvisible{\dl@fitvisible}\def\inheritzoom{\dl@inheritzoom}% \let\rPage\ef@rPage \edef\Page##1{\ifcase\eq@drivernum {Page##1}\or \noexpand\pdfpageref##1\space\space 0 R\or \noexpand @page##1\fi }% } % \end{macrocode} % After the properties are processed, the flow comes to |\ef@postProcLinkProps| % for one last chance to process the properties more finely. The flow continues % to |\setLink@@driver|. % \begin{macrocode} \def\ef@postProcLinkProps{} % \end{macrocode} % \cs{mlhypertext} is not defined unless \pkg{aeb\_mlink} is loaded; however, % we define \cs{mlsetLink} to expand to \cs{mlhypertext}. % \begin{macrocode} \newcommand{\mlsetLink}{\mlhypertext} \newcommand{\mlhypertext}[2][]{\@ifundefined{mlhypertext@i} {\PackageWarning{eforms}{The \string\mlhypertext\space command does nothing unless\MessageBreak the aeb_mlink package is loaded}}{}% #2} % \end{macrocode} % \end{macro} % \end{macro} % \end{macro} % \end{macro} % \begin{macro}{\setLinkBbox} % Set a link around a |\parbox|. %\begin{verbatim} %\setLinkBbox [\Color{1 0 0}}]{50bp}{30bp}[b]{\centering Press Me!} %\end{verbatim} % \paragraph{Link Parameters.} There are four parameters, two of which % are optional. %\begin{enumerate} %\item[\texttt{[\#1]}:] Optional key-value pairs to change the appearance or action % of this link. %\item[\texttt{\#2}:] The width of the \cs{parbox}. %\item[\texttt{\#3}:] The height of the \cs{parbox}. %\item[\texttt{[\#4]}:] The positioning parameter of the \cs{parbox} (\texttt{b}, \texttt{c}, \texttt{t}). %\item[\texttt{[\#5]}:] The text or object to be enclosed in a \cs{parbox} %\end{enumerate} %\paragraph{Link default parameters.} We set the line style on solid, and % the border array to \texttt{0 0 0}, no visible border. % \begin{macrocode} \def\set@LinkBboxDefaults{\S{S}\Border{0 0 0}} % \end{macrocode} % \begin{macrocode} \newcommand{\setLinkBbox}{\begingroup \ef@sanitize@toks\ef@linkbbox } \newcommand{\ef@linkbbox}[1][]{% \endgroup\ef@setLinkBbox[#1]% } \newcommand{\ef@setLinkBbox}[3][]{% \@setLinkBbox{#1}{#2}{#3}% } \def\@setLinkBbox#1#2#3{\@ifnextchar[{\@@setLinkBbox{#1}{#2}{#3}}% {\@@setLinkBbox{#1}{#2}{#3}[c]}} \def\@@setLinkBbox#1#2#3[#4]{% \@ifnextchar[{\@@@setLinkBbox{#1}{#2}{#3}{#4}}% {\@@@setLinkBbox{#1}{#2}{#3}{#4}[#4]}% } \def\@@@setLinkBbox#1#2#3#4[#5]#6{% \def\eq@pos{#4}\def\eq@innerpos{#5}% \set@@Link{#1}{#2}{#3}{\ef@colorthislink#6}% {\eq@setWidgetProps\setLink@driver}{}% {\set@LinkBboxDefaults\every@Link}% } % \end{macrocode} % \end{macro} % \begin{macro}{\setLinkPbox} % This is a special link for creating a fixed box around the % current paragraph and is used with the multi-line link commands. %\changes{v1.0c}{2007/07/21} %{ % Added \string\cs{setLinkPbox} to support multi-line links for dvips % and dvipsone. Added to \string\cs{setLinkPbox@driver} a special link % driver that supports \string\textbf{QuadPoints}. %} % \begin{macrocode} \def\set@LinkPboxDefaults{\S{S}\Border{0 0 0}} \newcommand\setLinkPbox{\begingroup \ef@sanitize@toks\ef@linkpbox } \newcommand{\ef@linkpbox}[1]{% \endgroup\ef@setLinkPbox{#1}% } \newcommand\ef@setLinkPbox[1]{% \@setLinkPbox{#1\BS{}}{}{}{\hfill\vfill}% } \def\@setLinkPbox#1#2#3{\@ifnextchar[{\@@setLinkPbox{#1}{#2}{#3}}% {\@@setLinkPbox{#1}{#2}{#3}[c]}} \def\@@setLinkPbox#1#2#3[#4]{% \@ifnextchar[{\@@@setLinkPbox{#1}{#2}{#3}{#4}}% {\@@@setLinkPbox{#1}{#2}{#3}{#4}[#4]} } \def\@@@setLinkPbox#1#2#3#4[#5]#6{% \def\eq@pos{#4}\def\eq@innerpos{#5}% \set@@Link{#1}{#2}{#3}{#6}{\eq@setWidgetProps\setLinkPbox@driver}% {}{\set@LinkPboxDefaults\every@Link}% } % \end{macrocode} % \end{macro} % \begin{macrocode} % % \end{macrocode} % % \section{A User Interface to links and forms} % % Through the years, I've developed my own version of a ``key-value'' % system, and this system works very well (see % Section~\ref{procArgs}, page~\pageref{procArgs}, for the main % macro); however, in a feeble attempt to make the system more user % friendly, I've incorporated an \textsf{xkeyval} system into the % \textsf{eforms} package. My old key-value system---which requires less % typing and, in my opinion, is easier to use---still works, % and the new one is just a user interface to the old system; parameters are % passed to the main processing macro, defined in Section~\ref{procArgs}. % \begin{macrocode} %<*userinterface> % \end{macrocode} % Let's bring in the \textsf{xkeyval} package. % \begin{macrocode} %\usepackage{xkeyval} % \end{macrocode} % The |\ui| interface is undefined if the \texttt{useui} option is not taken. We use this fact % to send a message to the user that using |\ui| most accompany the \texttt{useui}. % \begin{macrocode} \def\@equi#1{} % \end{macrocode} % The visibility of the border of a link depends on where the \texttt{colorlinks} option of hyperref has been % taken. If the author does not take \texttt{colorlinks}, a visible rectangle appears by default. By putting % \texttt{border=visible}, the author can override this behavior. If \texttt{colorlinks} option was taken, then the same % link has an invisible border by default. Again, the author can override this by putting \texttt{border=visible}. % \begin{macrocode} \ifHy@colorlinks\def\eq@bordervisibledefault{0}\@eqW{}\else \def\eq@bordervisibledefault{1}\@eqW{1}\fi % \end{macrocode} % \subsection{Some Utility Commands} % Some utility commands that are defined elsewhere in the AeB, but this package does not assume AeB, so % we'll define them here as well. % \begin{macrocode} \def\getargs#1#2{\def\aeb@argi{#1}\def\aeb@argii{#2}} \def\labelRef#1{\@ifundefined{r@#1}{Doc-Start} {\aeb@exiii\@fourthoffive\csname r@#1\endcsname}} \def\aeb@exiii{\expandafter\expandafter\expandafter} \newtoks\ef@flagtoks \newtoks\ef@jstoks \def\noexpandiii{\noexpand\noexpand\noexpand} % \end{macrocode} % % \subsection{The Appearance Tab} % % We set this user interface up to model the UI of Acrobat/Reader. % \IndexKey{border} % In the case of a link, this is the Link Type: \textsf{Visible Rectangle} % or \textsf{Invisible Rectangle}. For forms, this key has not counterpart % in the user interface. If you set border equal to \texttt{invisible}, that % will set border line width to zero |\W{0}|. % \begin{macrocode} \define@choicekey{eforms}{border}[\val\nr]{visible,invisible} {% \ifcase\nr % \end{macrocode} % Author has chosen a visible border |\eq@W@buffered|. % \begin{macrocode} \def\eq@visibleborder{1}% \ifx\eq@W\@empty \ifx\eq@W@buffered\@empty\@eqW{1}\else \@eqW{\eq@W@buffered}\fi \else \ifnum\eq@W@value=0 \@eqW{1}\fi \ifx\eq@W@buffered\@empty\else \@eqW{\eq@W@buffered}\fi \fi \@eqBorder{0 0 \eq@W@value}% \or % author has chosen invisible border \def\eq@visibleborder{0}\@eqW{}% \@eqBorder{0 0 0}\@eqBC{}% \fi } % \end{macrocode} % This choice key is for the \texttt{linewidth}\IndexKey{linewidth} of a link or form. The user interface choices % are \texttt{thin}, \texttt{medium}, and \texttt{thick}. This number is ignored if the document % author has set the border to \texttt{invisible}. % \begin{macrocode} \define@choicekey{eforms}{linewidth}[\val\nr]{thin,medium,thick} {% \ifx\annot@type\annot@type@link % \end{macrocode} % This is a link, so, depending on whether the color package is loaded, we show or don't % show the boundary, depending on the explicate choices of the author % \begin{macrocode} \ifx\eq@visibleborder\@empty % \end{macrocode} % Author has not committed to a border type, so we'll assume the default % \begin{macrocode} \ifnum\eq@bordervisibledefault=0 % \end{macrocode} % A color package is loaded, use invisible border by default. % \begin{macrocode} \edef\eq@W@buffered{\ifcase\nr 1\or2\or3\fi}% \@eqW{}% \else % \end{macrocode} % No color is loaded, show the border. % \begin{macrocode} \ifcase\nr \@eqW{1}\or\@eqW{2}\or \@eqW{3}\else\@eqW{1}\fi\@eqBorder{0 0 \eq@W@value}% \fi \else % \end{macrocode} % Author has set the border type before line width, we'll do what the % author wants. If invisible, ignore |\W|, if visible obey |\W|. % \begin{macrocode} \ifnum\eq@visibleborder=1 % visible border \ifcase\nr \@eqW{1}\or\@eqW{2}\or \@eqW{3}\else\@eqW{1}\fi\@eqBorder{0 0 \eq@W@value}% \fi \fi \else % \end{macrocode} % This is not a link, its a form, so things are easier. The invisible border will override % the linewidth. If the author wants a border, s/he better get her/his act together and % remove \texttt{border=invisible}. % \begin{macrocode} \ifx\eq@visibleborder\@empty % \end{macrocode} % If the value of |\eq@visibleborder|, author has not used the border key at this time, % so just set the \texttt{linewidth} as stated. % \begin{macrocode} \ifcase\nr \@eqW{1}\or\@eqW{2}\or \@eqW{3}\else\@eqW{1}\fi\@eqBorder{0 0 \eq@W@value}% \edef\eq@W@buffered{\ifcase\nr 1\or2\or3\fi}% \else % \end{macrocode} % The author has used the border key, so we don't need to save this value. % \begin{macrocode} \ifnum\eq@visibleborder>0 \ifcase\nr \@eqW{1}\or\@eqW{2}\or \@eqW{3}\else\@eqW{1}\fi\@eqBorder{0 0 \eq@W@value}% \fi \fi \fi } \let\eq@visibleborder\@empty \let\eq@W@buffered\@empty % \end{macrocode} % % The highlight\IndexKey{highlight} type, choices are \texttt{none}, \texttt{invert}, % \texttt{outline}, \texttt{inset} and \texttt{push}. The term \texttt{inset} % is used with links, and \texttt{push} is used with forms. They each have the % same key value pair. % \begin{macrocode} \define@choicekey{eforms}{highlight}[\val\nr]{none,invert,outline,% inset,push} {% \ifcase\nr \@eqH{}\or\@eqH{I}\or\@eqH{O}\or\@eqH{P}\or\@eqH{P}\fi }{} % \end{macrocode} % \IndexKey{bordercolor} % This is an rgb color, \texttt{bordercolor=1 0 0}, is the color red. % \begin{macrocode} \define@key{eforms}{bordercolor}[]{% \ifx\annot@type\annot@type@link\@eqColor{#1}\else % If border is invisible, we ignore bordercolor \ifx\eq@visibleborder\@empty\@eqBC{#1}\else \ifnum\eq@visibleborder>0\relax\@eqBC{#1}\fi\fi\fi } % \end{macrocode} % % The line style\IndexKey{linestyle} of the border, possible values are \texttt{solid},\texttt{dashed}, % \texttt{underlined}, \texttt{beveled},and \texttt{inset}. Links do not support % the \texttt{beveled} and \texttt{inset} options. % \begin{macrocode} \define@choicekey{eforms}{linestyle}[\val\nr]{solid,dashed,underlined,% beveled,inset} {% \ifcase\nr\relax \@eqS{S}\or\@eqS{D}\or\@eqS{U}% \or\@eqS{B}\or\@eqS{I}\else\@eqS{S}% \fi } % \end{macrocode} % % When a line style of dashed is chosen, you can specify a dashed array\IndexKey{dasharray}. % The default is 3, which means 3 points of line, 3 points gap. % A value of \texttt{dashedarray=3 2} means three points of line, followed % by two points of space. % \begin{macrocode} \define@key{eforms}{dasharray}[3]{\@eqD{#1}} % \end{macrocode} % Set the color of the link text. Ignored if the colorlinks option of hyperref % has not been taken. The value of \texttt{linktxtcolor}\IndexKey{linktxtcolor} is a named color. For example, % \texttt{linkcolor=red}. The default is |\@linkcolor| from hyperref. This default % can be changed by redefining |\@linkcolor|, or be redefining |\defaultlinkcolor|. % If |linktxtcolor={}| (an empty argument), or simply \texttt{linktxtcolor}, no color is applied to the text. % \begin{macrocode} \define@key{eforms}{linktxtcolor}[]{% \let\ef@linktxtcolor@set=1\@eqlinktxtcolor{#1}} \let\ef@linktxtcolor@set=0 % \end{macrocode} % % \subsection{The General and Option Tab} % In the general and option tabs of Acrobat a variety of attributes % of the field can be set, such visibility, printability, readonly, % orientation, captions (for button), values, default values, etc. % can be set. % % The \texttt{annotflags}\IndexKey{annotflags} is a bit field, possible values are \texttt{hidden}, \texttt{print}, % \texttt{-print}, \texttt{noview}, and \texttt{lock}. Multiple values can % be specified. The values are ``or-ed'' together. Most all forms are printable % by default. If you don't want a form field to print specify \texttt{-print}. % For example, |annotflags={-print,lock}| makes the field not printable and is % locked, so the field cannot be moved through the UI. % \begin{macrocode} \define@key{eforms}{annotflags}[]{\ef@flagtoks={}% \setkeys{annotflags}{#1}} \@tfor\ef@flagopts:={{hidden}{FHidden}}{{print}{FPrint}}{{noprint}% {FNoPrint}}{{-print}{FNoPrint}}{{noview}{FNoView}}{{lock}{FLock}}% \do{\expandafter\getargs\ef@flagopts \edef\temp@expand@def{% \noexpand\define@key{annotflags}{\aeb@argi}[true]{% \noexpand\ef@flagtoks=% \noexpand\expandafter{\noexpand\ef@passedArgs}% \noexpand\edef\noexpand\ef@passedArgs{\noexpandiii% \F{\noexpandiii\csname\aeb@argii\noexpandiii\endcsname}% \noexpand\the\noexpand\ef@flagtoks}% }% }\temp@expand@def } % \end{macrocode} % A large number of fields that sets a number of properties of a field. Some of these % are specified through the bitfield \texttt{fieldflags}\IndexKey{fieldflags}. % These appear in the first of the paired groups listed below. Normally, a document % author would not specify \texttt{radio}, \texttt{pushbutton} or \texttt{combo}. % These properties are used % by eforms to construct a radio button field, a push button and a combo box. % The others can be used as appropriate. % \begin{macrocode} \define@key{eforms}{fieldflags}[]{\ef@flagtoks={}% \setkeys{fieldflags}{#1}} \@tfor\ef@flagopts:={{readonly}{FfReadOnly}}{{required}{FfRequired}}% {{noexport}{FfNoExport}}{{multiline}{FfMultiline}}% {{password}{FfPassword}}{{notoggleoff}{FfNoToggleToOff}}% {{radio}{FfRadio}}{{pushbutton}{FfPushButton}}{{combo}{FfCombo}}% {{edit}{FfEdit}}{{sort}{FfSort}}{{fileselect}{FfFileSelect}}% {{multiselect}{FfMultiSelect}}{{nospellcheck}{FfDoNotSpellCheck}}% {{noscrolling}{FfDoNotScroll}}{{comb}{FfComb}}% {{radiosinunison}{FfRadiosInUnison}}% {{commitonchange}{FfCommitOnSelChange}}{{richtext}{FfRichText}}\do{% \expandafter\getargs\ef@flagopts \edef\temp@expand@def{% \noexpand\define@key{fieldflags}{\aeb@argi}[true]% {% \noexpand\ef@flagtoks=\noexpand\expandafter{% \noexpand\ef@passedArgs}% \noexpand\edef\noexpand\ef@passedArgs{\noexpandiii% \Ff{\noexpandiii\csname\aeb@argii\noexpandiii\endcsname}% \noexpand\the\noexpand\ef@flagtoks}% }% }\temp@expand@def } % \end{macrocode} % Enter a text value to appear as a tool tip\IndexKey{tooltip}. For example, % \texttt{tooltip={Hi, press me and see what happens!}}. Enclose in % parentheses if the text string contains a comma. % \begin{macrocode} \define@key{eforms}{tooltip}{\@eqTU{#1}} % \end{macrocode} % The default value\IndexKey{default}\IndexKey{defaultstyle} of a field (text, list, combobox) what is used % when the field is reset. Example: \texttt{default=Name} % \begin{macrocode} \define@key{eforms}{default}{\@eqDV{#1}} \define@key{eforms}{defaultstyle}{\@eqDS{#1}} % \end{macrocode} % The \texttt{value}\IndexKey{value}\IndexKey{richvalue}\IndexKey{apprD} of the field % (text, list, combobox). Example: \texttt{value=AcroTeX}. % \begin{macrocode} \define@key{eforms}{value}{\@eqV{#1}} \define@key{eforms}{richvalue}{\@eqRV{#1}} \define@key{eforms}{apprD}{\@eqAP{#1}} % \end{macrocode} % Set the orientation\IndexKey{rotate} of the field, values are 0, 90, 180 and 270. If 90 or 270 % are chosen, the height and width of the field need to be reversed. This is not % done automatically by eForms (probably should). % \begin{macrocode} \define@choicekey{eforms}{rotate}[\val\nr]{0,90,180,270} {\expandafter\@eqR\expandafter{\val}}{} % \end{macrocode} % The background color\IndexKey{bgcolor} of the field. This is an RGB value. % \begin{macrocode} \define@key{eforms}{bgcolor}[]{\@eqBG{#1}} % \end{macrocode} % The normal text\IndexKey{uptxt} that appears on a button. Example \texttt{uptxt=Push Me} % \begin{macrocode} \define@key{eforms}{uptxt}{\@eqCA{#1}} % \end{macrocode} % The (mouse) down text\IndexKey{downtxt} of the button caption. Example: \texttt{downtxt=Thanks!} % \begin{macrocode} \define@key{eforms}{downtxt}{\@eqAC{#1}} % \end{macrocode} % The (mouse) rollover\IndexKey{rollovertxt} caption of a button. Example: \texttt{rollovertxt=AcroTeX!} % \begin{macrocode} \define@key{eforms}{rollovertxt}{\@eqRC{#1}} % \end{macrocode} % The type of alignment\IndexKey{align} of a text field. Permitted values are % \texttt{left}, \texttt{centered}, and \texttt{right}. % \begin{macrocode} \define@choicekey{eforms}{align}[\val\nr]{left,centered,right}{% \ifx\annot@type\annot@type@text \expandafter\@eqQ\expandafter{\nr}\fi}{} % \end{macrocode} % The text font\IndexKey{textfont} to be used with the text of the field. % \begin{macrocode} \define@key{eforms}{textfont}{\@eqtextFont{#1}} % \end{macrocode} % The text size\IndexKey{textsize} to be used. A value of 0 means auto size. % \begin{macrocode} \define@key{eforms}{textsize}{\@eqtextSize{#1}} % \end{macrocode} % The color of the text\IndexKey{textcolor} in the field. This can be in \textsf{G}, \textsf{RGB} or \textsf{CMYK} color % space. % \begin{macrocode} \define@key{eforms}{textcolor}{% \@eqtextColor{#1}% % \aeb@cntargs#1 \\\relax % \ifcase\aeb@nArgs\relax\or % \@eqtextColor{#1 g}\or\or % \@eqtextColor{#1 rg}\or % \@eqtextColor{#1 k}\fi } % \end{macrocode} % Use \texttt{maxlength}\IndexKey{maxlength} to limit the number of characters input into a text field. % Example: \texttt{maxlength=12}. % \begin{macrocode} \define@key{eforms}{maxlength}{\@eqMaxLen{#1}} % \end{macrocode} % \paragraph*{Icon Appearances} We begin a section for creating icon % appearances for a push button. We define three keys \texttt{normappr}\IndexKey{normappr}, % \texttt{rollappr}\IndexKey{rollappr}, and \texttt{downappr}\IndexKey{downappr} % \begin{macrocode} \define@key{eforms}{normappr}{\@eqI{#1}} \define@key{eforms}{rollappr}{\@eqRI{#1}} \define@key{eforms}{downappr}{\@eqIX{#1}} \define@choicekey{eforms}{layout}[\val\nr]{labelonly,icononly,% icontop,iconbottom,iconleft,iconright,labelover}{% \ifx\annot@type\annot@type@button \expandafter\@eqTP\expandafter{\nr}\fi}{} % \end{macrocode} % Scaling keys, \texttt{scalewhen}\IndexKey{scalewhen} and \texttt{scale}\IndexKey{scale} % \begin{macrocode} \define@choicekey{eforms}{scalewhen}[\val\nr]{always,never,% iconbig,iconsmall}{% \ifx\annot@type\annot@type@button \ifcase\nr\relax \def\eq@@SW{A}\or \def\eq@@SW{N}\or \def\eq@@SW{B}\or \def\eq@@SW{S}\else \def\eq@@SW{A}\fi \expandafter\@eqSW\expandafter{\eq@@SW}\fi}{} \define@choicekey{eforms}{scale}[\val\nr]{proportional,% nonproportional}{% \ifx\annot@type\annot@type@button \ifcase\nr\relax \def\eq@@ST{P}\or \def\eq@@ST{A}\else \def\eq@@ST{P}\fi \expandafter\@eqST\expandafter{\eq@@ST}\fi}{} % \end{macrocode} % Positioning keys, \texttt{position}\IndexKey{position} and \texttt{fitbounds}\IndexKey{fitbounds} % \begin{macrocode} \define@key{eforms}{position}{\@eqPA{#1}} \define@choicekey{eforms}{fitbounds}[\val\nr]{true,false}[true]{% \ifx\annot@type\annot@type@button \ifcase\nr\relax \def\eq@@FB{true}\or \def\eq@@FB{false}\else \def\eq@@FB{false}\fi \expandafter\@eqFB\expandafter{\eq@@FB}\fi}{} % \end{macrocode} % This set of key-values\IndexKey{norm}\IndexKey{roll}\IndexKey{down} are designed to fill in the AP dictionary for the check box % and the radio button field. %\begin{verbatim} % appr={norm={on={},off={}}},roll={on={},off={}}},down={on={},off={}}}} % \AP{/N << /On {xO} /Off {xX} >> /R << /On {xX} /Off {xO} >>} %\end{verbatim} % \begin{macrocode} \define@key{efappr}{norm}[]{\def\efappr@norm{#1}} \define@key{efappr}{roll}[]{\def\efappr@roll{#1}} \define@key{efappr}{down}[]{\def\efappr@down{#1}} \setkeys{efappr}{norm,roll,down} \define@key{efappr@state}{on}[]{% \expandafter\def\csname \ef@state @on\endcsname{#1}} \define@key{efappr@state}{off}[]{% \expandafter\def\csname \ef@state @off\endcsname{#1}} \let\norm@on\@empty\let\norm@off\@empty \let\roll@on\@empty\let\roll@off\@empty \let\down@on\@empty\let\down@off\@empty % \end{macrocode} % The key \texttt{appr}\IndexKey{appr} corresponds to the \textbf{AP} dictionary. % and the radio button field. %\begin{macrocode} \define@key{eforms}{appr}{\setkeys{efappr}{#1}% \def\ef@state{norm}% \edef\ef@edef@tmp{\noexpand\setkeys{efappr@state}{\efappr@norm}}% \ef@edef@tmp\def\ef@state{roll}% \edef\ef@edef@tmp{\noexpand\setkeys{efappr@state}{\efappr@roll}}% \ef@edef@tmp\def\ef@state{down}% \edef\ef@edef@tmp{\noexpand\setkeys{efappr@state}{\efappr@down}}% \ef@edef@tmp\def\eq@AP{% /AP<< \ifx\efappr@norm\@empty\else/N << \eq@On\space{\norm@on}/Off {\norm@off}>>\fi \ifx\efappr@roll\@empty\else/R << \eq@On\space{\roll@on}/Off {\roll@off}>>\fi \ifx\efappr@down\@empty\else/D << \eq@On\space{\down@on}/Off {\down@off}>>\fi \space>> }% } % \end{macrocode}% % The \texttt{autocenter}\IndexKey{autocenter} is a feature of eforms. Use \texttt{autocenter=yes} (the default) to center the bounding % box, and use \texttt{autocenter=no} otherwise. % \begin{macrocode} \define@choicekey{eforms}{autocenter}[\val\nr]{yes,no} {% \ifcase\nr\relax\@eqautoCenter{y}\or \@eqautoCenter{n}\fi }{} \define@choicekey{eforms}{inline}[\val\nr]{yes,no} {% \ifcase\nr\relax\@eqinline{y}\or \@eqinline{n}\fi }{} \define@choicekey{eforms}{mlfix}[\val\nr]{yes,no} {% \ifcase\nr\relax\@eqmlfix{y}\or \@eqmlfix{n}\fi }{} \define@key{eforms}{mlstrut}[\strut]{\@eqmlstrut{#1}} \define@key{eforms}{mlcrackat}[]{\@eqmlcrackat{#1}} \define@key{eforms}{mlcrackinat}[]{\@eqmlcrackinsat{#1}} \define@choicekey{eforms}{mlhyph}[\val\nr]{yes,no} {% \ifcase\nr\relax\@eqmlhyph{y}\or \@eqmlhyph{n}\fi }{} % \end{macrocode} % Set presets\IndexKey{presets} from inside a \cs{ui} argument. For example, %\begin{verbatim} %\def\myUIOptsi{% % border=visible, % Link Type % linktxtcolor=blue, % blue link color % linewidth=medium, % Line thickness % highlight=outline, % Highlight style % linestyle=dashed, % Line style % bordercolor={1 0 0}, % border color % js={app.alert("Good, good, good!")}, %} %\end{verbatim} % Then we can say, %\begin{verbatim} %\setLinkText[\ui{presets={\myUIOptsii}}]{Press Me Again!!} %\end{verbatim} % \begin{macrocode} \define@key{eforms}{presets}{% \ef@jstoks=\expandafter{#1}% \edef\ef@temp@expand{\noexpand\setkeys{eforms}{\the\ef@jstoks}}% \ef@temp@expand } % \end{macrocode} % \texttt{symbolchoice}\IndexKey{symbolchoice}is used with a checkbox or radio button field. This sets the symbol % that appears in the field with the box is checked, choices are % \texttt{check}, \texttt{circle}, \texttt{cross}, \texttt{diamond}, % \texttt{square}, and \texttt{star}. % \begin{macrocode} \define@choicekey{eforms}{symbolchoice}[\val\nr]% {check,circle,cross,diamond,square,star} {\expandafter\@eqsymbolchoice\expandafter{\val}}{} % \end{macrocode} % % \subsection{The Signed Tab} % % A signature field has a signed tab. On that tab is an option to mark a set of fields % as readonly (locked). The locked key controls that option. % % The \texttt{lock}\IndexKey{lock} key is used with signature fields, currently, there is % no nice user interface to this key. Typical entries are %\begin{verbatim} % lock={/Action/All} % lock all fields in the doc % lock={/Action/Include % lock all fields listed in Fields % /Fields [(field1)(field2)...]} % lock={/Action/Exclude % lock all fields not listed in Fields % /Fields [(field1)(field2)...]} %\end{verbatim} % % \begin{macrocode} \define@key{eforms}{lock}{\@eqLock{#1}} % \end{macrocode} % % Another option that is included in the Signed tab is titled ``This script executes % when field is signed.'' % % This is an option that, through the user interface, is mutually exclusive from % locking fields. This option appears to be implemented through the format event. % Thus, to populate this option with JavaScript use \texttt{format}. For example, %\begin{verbatim} % format={app.alert("Thank you for signing this field.");} %\end{verbatim} % % \subsection{Specifying Actions} % Here, we offer up various common actions for a document author to choose from. % % The \texttt{goto}\IndexKey{goto} key is a combines \textsf{GoTo} and \textsf{GoToR} action. There are options for jumping to a page % with a particular view, a latex label, or a named destination. % % The goto key first calls |\setkeys{efgoto}{#1}|, which parses the parameters. Following the % reading of the parameters, we determined whether this is a GoTo or a GoToR request, whether % we are jumping to a page, a named destination or a latex label. % % Documentation for the parameters of \texttt{goto} follow this definition. % % Process the \texttt{goto} key using \pkg{conv-xkv}. % \changes{v2.9g}{2017/01/03}{Process the \string\texttt{goto} key using \string\pkg{conv-xkv}} % \begin{macrocode} \define@key{eforms}{goto}[]{% % \end{macrocode} % (2017/01/03) Use \cs{cxkvsetkeys} for \texttt{goto} % \changes{v2.9g}{2017/01/03}{Use \string\cs{cxkvsetkeys} for \string\texttt{goto}} % \begin{macrocode} \cxkvsetkeys{efgoto}{#1}% \ifx\ef@goto@url\@empty \ifx\ef@goto@file\@empty % Jump within the file \def\ef@subtype{/S/GoTo }% \ifcase\eq@drivernum \def\ef@formatpage{{Page\ef@page}}% \or \def\ef@formatpage{\pdfpageref\ef@page\space\space 0 R}% \or \def\ef@formatpage{@page\ef@page}% \fi \let\ef@open\@empty \let\ef@formatfile\@empty \else % Jump to another PDF % \ifx\ef@linktxtcolor@set0% % \def\ef@thislinkcolor{\@filecolor}\fi \def\ef@subtype{/S/GoToR }% \count0=\ef@page\advance\count0by-1 \edef\ef@formatpage{\the\count0 }% \def\ef@formatfile{/F (\ef@goto@file)}% \fi \ifx\ef@goto@targetdest\@empty \ifx\ef@labeldest\@empty % we will jump to a page, it might be the default page \expandafter\@eqA\expandafter{\ef@subtype /D[\ef@formatpage\ef@view]% \ef@formatfile\ef@open}% \else % jump to a label \expandafter\@eqA\expandafter{\ef@subtype% /D (\labelRef{\ef@labeldest})% \ef@formatfile\ef@open}% \fi \else % jump to a target \expandafter\@eqA\expandafter{\ef@subtype% /D (\ef@goto@targetdest)% \ef@formatfile\ef@open}% \fi \else % go to url \ifx\ef@goto@openparams\@empty \@eqA{/S/URI/URI(\ef@goto@url)}\else \@eqA{/S/URI/URI(\ef@goto@url\#\ef@goto@openparams)}% \fi \fi } % \end{macrocode} % The keys for \texttt{goto} are \texttt{file}, % \texttt{targetdest}, \texttt{labeldest}, \texttt{page}, % \texttt{view}, and \texttt{open}. % Specify a relative path\IndexKey{file} to the PDF file. This will work on the Web if % the position is the same relative to the calling file. % \begin{macrocode} \define@key{efgoto}{file}[]{\def\ef@goto@file{#1}} \let\ef@goto@file\@empty % \end{macrocode} % Specify a url\IndexKey{url} to create a weblink % \begin{macrocode} \define@key{efgoto}{url}[]{% \if\ef@linktxtcolor@set0\@eqlinktxtcolor{\@urlcolor}\fi \def\ef@goto@url{#1}% } \let\ef@goto@url\@empty % \end{macrocode} % Specify a relative path to the PDF file with \texttt{openparams}\IndexKey{openparams}. % This will work on the Web if the position is the same relative to the calling file. % \begin{macrocode} \define@key{efgoto}{openparams}[]{\def\ef@goto@openparams{#1}} \let\ef@goto@openparams\@empty % \end{macrocode} % Jump to a target\IndexKey{targetdest}, perhaps created by |\hypertarget|. For example, % if we say |\hypertarget{acrotex}{Welcome!}|, we can then jump to % \texttt{acrotex} by specifying \texttt{targetdest=acrotex}. % \begin{macrocode} \define@key{efgoto}{targetdest}[]{\def\ef@goto@targetdest{#1}} \let\ef@goto@targetdest\@empty % \end{macrocode} % \texttt{labeldest}\IndexKey{labeldest} is the % same as targetdest, but now we jump to a destination specified by % a latex label. For example, |\section{AcroTeX}\label{acrotex}|, % we can jump to this section by specifying \texttt{labeldest=acrotex}. % \begin{macrocode} \define@key{efgoto}{labeldest}[]{\def\ef@labeldest{#1}} \let\ef@labeldest\@empty % \end{macrocode} % The page number\IndexKey{page} that you want to jump to. If we set \texttt{page=1}, % we will jump to the first page of the document. % \begin{macrocode} \define@key{efgoto}{page}[1]{\def\ef@page{#1}} \def\ef@page{1} \def\ef@view{/Fit}% % \end{macrocode} % The view\IndexKey{view} can be set when the page key is used. Possible values are % \texttt{fitpage}, \texttt{actualsize}, \texttt{fitwidth}, % \texttt{fitvisible}, and \texttt{inheritzoom}. These terms correspond % to Acrobat's UI. When jumping to a destination, the view is set by the % destination code. %\begin{verbatim} %\def\dl@fitpage{/Fit} %\def\dl@actualsize{/XYZ -32768 -32768 1.0} %\def\dl@fitwidth{/FitH -32768} %\def\dl@fitvisible{/FitBH -32768} %\def\dl@inheritzoom{/XYZ 0 0 0} %\end{verbatim} % \begin{macrocode} \define@choicekey{efgoto}{view}[\val\nr]{fitpage,actualsize,fitwidth,% fitheight,fitvisible,inheritzoom} {% \edef\ef@view{\csname dl@\val\endcsname}% }{} % \end{macrocode} % The \texttt{open}\IndexKey{open} key is use when you specify the \texttt{file} key. The % open key determines if a new window is opened or not when we % jump to the file. Possible values are \texttt{userpref} (use user preferences), % \texttt{new} (open new window), \texttt{existing} (use the existing window). % \begin{macrocode} \define@choicekey{efgoto}{open}[\val\nr]{userpref,new,existing} {% \ifcase\nr\relax \let\ef@open\@empty\or \def\ef@open{/NewWindow true }\or \def\ef@open{/NewWindow false }\fi }{} \let\ef@open\@empty % \end{macrocode} % Through the \texttt{launch}\IndexKey{launch} key, we support the subtype \textbf{Launch}. The launch action dictionary % contains six keys, four of which we support: \texttt{S}, \texttt{F}, \texttt{Win}, % and \texttt{New Window} (boolean). The Win key is a dictionary with keys \texttt{F}, \texttt{D}, \texttt{O}, % and \texttt{P}. If the \texttt{Win} key is used, the F key in the launch dictionary is optional. The parameters % of the Win dictionary are passed to the \textsf{ShellExecute}. % % Process the \texttt{launch} key using \pkg{conv-xkv}. % \changes{v2.9g}{2017/01/03}{Process the \string\texttt{launch} key using \string\pkg{conv-xkv}} % \begin{macrocode} \define@key{eforms}{launch}[]{% % \end{macrocode} % (2017/01/03) Use \cs{cxkvsetkeys} for \texttt{launch} % \changes{v2.9g}{2017/01/03}{Use \string\cs{cxkvsetkeys} for \string\texttt{launch}} % \begin{macrocode} \cxkvsetkeys{eflaunch}{#1}% \@eqA{/S/Launch\ifx\ef@launch@file\@empty\else /F(\ef@launch@file)\fi\ef@launch@open \ifx\ef@launch@win\@empty\else /Win<<\ifx\ef@launchwin@file\@empty /F(\ef@launch@file)\else/F(\ef@launchwin@file)\fi \ifx\ef@launchwin@params\@empty\else /P(\ef@launchwin@params)\fi \ifx\ef@launchwin@open\@empty\else /O(\ef@launchwin@open)\fi \ifx\ef@launchwin@dir\@empty\else /D(\ef@launchwin@dir)\fi>> \fi }% } % \end{macrocode} % The value of the \texttt{file} key can be an application or a file. If a % document, the operating system will launch an application associated with % the file extension. The path can be given relative to the current source % folder. % \begin{macrocode} \define@key{eflaunch}{file}[]{\def\ef@launch@file{#1}} \let\ef@launch@file\@empty % \end{macrocode} % The value of the \texttt{open} key is ignored, if the value of the % \texttt{file} key is not a PDF file. If the file is a PDF, a new window % can be optionally opened, or not. The default is to use the user % preferences. % \begin{macrocode} \define@choicekey{eflaunch}{open}[\val\nr]{userpref,new,existing} {% \ifcase\nr\relax \let\ef@launch@open\@empty\or \def\ef@launch@open{/NewWindow true }\or \def\ef@launch@open{/NewWindow false }\fi }{} \let\ef@launch@open\@empty % \end{macrocode} % The PDF Specification allows for additional parameters to be passed on % the windows operating system. (No such key is available for the Mac or % for Unix.) This is a windows-only feature. The \texttt{winParams} key % itself takes key values pairs; these keys are \texttt{file} (\texttt{F}), % \texttt{directory} (\texttt{D}), \texttt{open} (\texttt{O}), and % \texttt{params} (\texttt{P}), these keys are defined below. % \begin{macrocode} \define@key{eflaunch}{winParams}[]{\def\ef@launch@win{#1}% \setkeys{eflaunchwin}{#1}% }\let\ef@launch@win\@empty % \end{macrocode} % As far as I can see, the \texttt{file} (application or file) must have a % full path (absolute path). The path should be enclosed in double quotes if % the path contains any spaces. % \begin{macrocode} \define@key{eflaunchwin}{file}[]{\def\ef@launchwin@file{#1}} \let\ef@launchwin@file\@empty % \end{macrocode} % As far as I can see, this key does nothing. The value of the key % is a path to the (startup) folder. % \begin{macrocode} \define@key{eflaunchwin}{directory}[]{\def\ef@launchwin@dir{#1}} \let\ef@launchwin@dir\@empty % \end{macrocode} % The \texttt{open} key takes one of two (documented) values: \texttt{open} % (the default) or \texttt{print}. But because these parameters are passed % to Window's \texttt{ShellExecute} a value of explore is recognized as well % (when the value of \texttt{file} is a path to a folder). % \begin{macrocode} \define@key{eflaunchwin}{open}[]{\def\ef@launchwin@open{#1}} \let\ef@launchwin@open\@empty % \end{macrocode} % The launch parameters. Any paths must be absolute and enclosed in double quotes, if the % path contains a space. % \begin{macrocode} \define@key{eflaunchwin}{params}[]{\def\ef@launchwin@params{#1}} \let\ef@launchwin@params\@empty % \end{macrocode} % The \texttt{js}\IndexKey{js} key is used to execute JavaScript actions on a mouse up trigger. % The argument is a JavaScript text string: |js={app.alert("Hello World!"}|. % The value of \texttt{js} may be a macro containing JavaScript, which would include % a macro created by the \texttt{defineJS} environment of \textsf{insdljs}. % \begin{macrocode} \define@key{eforms}{js}[]{\@eqA{\JS{#1}}} % \end{macrocode} % Next up are additional actions, and there are a lot of them. All these % take JavaScript code as their values.% % \begin{itemize} % \item \texttt{mouseup}\IndexKey{mouseup}: Executes its code with a mouse up event. If there is a JavaScript % action defined by the \texttt{js} key (or the |\A| key), the \texttt{js} (|\A|) action is executed. % \item \texttt{mousedown}\IndexKey{mousedown}: Executes when the mouse is hovering over the field and the user clicks % on the mouse. % \item \texttt{onenter}\IndexKey{onenter}: Executes its code when the user moves the mouse into the form field (the bounding rectangle). % \item \texttt{onexit}\IndexKey{onexit}: Executes its code when the user moves the mouse out of the form field (the bounding rectangle). % \item \texttt{onfocus}\IndexKey{onfocus}: Executes its code when the user brings the field into focus. % \item \texttt{onblur}\IndexKey{onblur}: Executes its code when the user brings the field loses focus (the user tabs away from % the field, or click outside the field). % \item \texttt{format}\IndexKey{format}: JavaScript to format the text that appears to % the user in a text field or editable combo box. % \item \texttt{keystroke}\IndexKey{keystroke}: JavaScript to process each keystroke in a text field or editable combo box. % \item \texttt{validate}\IndexKey{validate}: JavaScript to validate the committed data input into a text field or editable combo box. % \item \texttt{calculate}\IndexKey{calculate}: JavaScript to make calculates based on the values of other fields. % \item \texttt{pageopen}\IndexKey{pageopen}: JavaScript that executes when the page containing the field is opened. % \item \texttt{pageclose}\IndexKey{pageclose}: JavaScript that executes when the page containing the field is closed. % \item \texttt{pagevisible}\IndexKey{pagevisible}: JavaScript that executes when the page containing the field first becomes visible to the user. % \item \texttt{pageinvisible}\IndexKey{pageinvisible}: JavaScript that executes when the page containing the field is no longer visible to the user. % \end{itemize} % \begin{macrocode} \@tfor\ef@AActions:={{mouseup}{AAmouseup}}{{mousedown}{AAmousedown}}% {{onenter}{AAmouseenter}}{{onexit}{AAmouseexit}}% {{onfocus}{AAonfocus}}{{onblur}{AAonblur}}% {{format}{AAformat}}{{keystroke}{AAkeystroke}}% {{validate}{AAvalidate}}{{calculate}{AAcalculate}}% {{pageopen}{AApageopen}}{{pageclose}{AApageclose}}% {{pagevisible}{AApagevisible}}% {{pageinvisible}{AApageinvisible}}\do{% \expandafter\getargs\ef@AActions\ef@jstoks={#1}% \edef\temp@expand@def{\noexpand\define@key{eforms}{\aeb@argi}[]% {\noexpand\csname @eq\aeb@argii\noexpand\endcsname% {\the\ef@jstoks}}}% \temp@expand@def } % \end{macrocode} % The \texttt{objdef}\IndexKey{objdef} key is used to create indirect references to the form field. % The value of this key must be unique throughout the whole document. Both \texttt{objdef} % and \texttt{taborder}\IndexKey{taborder} are used for structured tabbing. (Distiller only) % \begin{macrocode} \define@key{eforms}{objdef}{\@eqobjdef{#1}} \define@key{eforms}{taborder}{\@eqtaborder{#1}} % \end{macrocode} % \begin{macrocode} % % \end{macrocode} % % \section{Input Driver Specific Code} % Now bring in driver dependent macros. The macros defined are % the answer macros for the \texttt{shortquiz} environment and most all % for the \texttt{quiz} environment. These macros make heavy use of % JavaScript. The method of introducing these JavaScripts and % PDF code related elements depends on the driver. % \changes{v2.9j}{2017/01/22}{\string\cs{eq@rectH} and \string\cs{eq@rectW} pass through \string\cs{setlength} % to enable arithmetic for the arguments of those commands} % \begin{macrocode} %<*package> % \end{macrocode} % \begin{macrocode} \input{\eq@drivercode} % \end{macrocode} % \begin{macrocode} % % \end{macrocode} % \subsection{For the \texttt{dvips} and \texttt{dvipsone} options} % \begin{macrocode} %<*epdfmark> % \end{macrocode} % This is the code for the \texttt{dvipsone} and \texttt{dvips} % options. These two are done together. \textsf{hyperref} % redefines the macro \cmd{\literalps@out} appropriate to each of % these drivers. Both use pdfmarks, so we can put them together. % \par\medskip\noindent % This sets the rectangle size allowing for a literal % hyperlink---meaning we can insert arbitrary links actions. % \begin{macrocode} \def\Rect#1{\pdf@rect{\textcolor{\@linkcolor}{#1}}} % \end{macrocode} % Code to hide the solutions page to a quiz that has solutions. % \begin{macrocode} \def\noPeek#1#2{\literalps@out{% [ {ThisPage} << \noPeekAction{#1}{#2} >> /PUT pdfmark}} % \end{macrocode} % Driver dependent code (distiller) for choice fields, list and combo. % \begin{macrocode} \def\eq@choice@driver {% \Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \pdf@rect{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \literalps@out{% [ \ifisCalculate/_objdef {\Fld@name}\else\eq@objdef\fi /Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@choiceCode /ANN pdfmark \ifisCalculate[ {corder} {\Fld@name} /APPEND pdfmark\fi }\to@insertStrucTabOrder{Form}\endgroup } % \end{macrocode} % Driver dependent code (distiller) for push button fields. % \begin{macrocode} \def\eq@Button@driver {% \Hy@pdfstringtrue \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\ef@djXPD\fi \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \pdf@rect{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \literalps@out{% [ \eq@objdef/Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@pushButtonCode /ANN pdfmark}\to@insertStrucTabOrder{Form}\endgroup } % \end{macrocode} % Driver dependent code (distiller) for radio and button fields. % \begin{macrocode} \def\eq@RadioCheck@driver {% \Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\fi \pdf@rect{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \literalps@out{% [ \eq@objdef/Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@RadioCheckCode /ANN pdfmark}\to@insertStrucTabOrder{Form}\endgroup } \def\eq@l@check@driver {% \pdf@rect{\makebox[\eq@tmpdima]{\phantom{\link@@Content}}}% \literalps@out{% [ \eq@objdef/Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@RadioCheckCode /ANN pdfmark}\endgroup } % \end{macrocode} % Driver dependent code for text fields. % \begin{macrocode} \def\eq@TextField{\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \pdf@rect{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \literalps@out{% [ \ifisCalculate/_objdef {\Fld@name}\else\eq@objdef\fi /Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@TextFieldCode /ANN pdfmark \ifisCalculate[ {corder} {\Fld@name} /APPEND pdfmark\fi }\to@insertStrucTabOrder{Form}\endgroup } % \end{macrocode} % \changes{v2.5p}{2012/09/25}{Corrected a bug in \string\cs{eq@SigField} for % the dvipdfm-type drivers} % \begin{macrocode} \def\eq@SigField{\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH % \centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \pdf@rect{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \literalps@out{% [ \eq@objdef/Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \common@SigFieldCode /ANN pdfmark }\to@insertStrucTabOrder{Form}\endgroup } % \end{macrocode} % For processing the \texttt{pdfmark} with distiller, the key \texttt{/Action} is % required (not \texttt{/A}). This macro converts \texttt{/A} to \texttt{/Action}, % and is used for the drivers using distiller. % \begin{macrocode} \def\convertAToAction/A#1\@nil{\def\eq@A{/Action#1}} % \end{macrocode} % Driver dependent code for links. % \begin{macrocode} \def\setLink@driver {% \ifx\eq@A\@empty\else\expandafter\convertAToAction\eq@A\@nil\fi \@eqBS{}% \pdf@rect{\link@@Box}% \literalps@out{% [ \eq@objdef/Rect [pdf@llx pdf@lly pdf@urx pdf@ury] \eq@Border \common@LinkCode /Subtype /Link /ANN pdfmark}% \to@insertStrucTabOrder{Link}\endgroup } % \end{macrocode} % (2018/03/22) Defined \cs{pboxRect} to support % \cs{setLinkPbox}. % \changes{v2.9.19}{2018/03/22}{Defined \string\cs{pboxRect} to support % \string\cs{setLinkPbox}} % \begin{macrocode} \def\pboxRect{/Rect [\par@@Rect]} % \end{macrocode} % Added \cs{mllnkcontainer} to support textsf{aeb\_mlink} package. % \changes{v2.9.17}{2018/03/14}{Added \string\cs{mllnkcontainer}.} % \begin{macrocode} \def\mllnkcontainer#1{#1} \def\setLinkPbox@driver {% \ifx\eq@A\@empty\else\expandafter\convertAToAction\eq@A\@nil\fi \@eqBS{}% \literalps@out{\mllnkcontainer{% [ \eq@objdef\pboxRect \eq@Border \eq@QuadPoints % QuadPoints \common@LinkCode /Subtype /Link /ANN pdfmark}}% \to@insertStrucTabOrder{Link}\endgroup } % \end{macrocode} % \begin{macrocode} % % \end{macrocode} % \subsection{For the \texttt{pdftex} option} % \begin{macrocode} %<*epdftex> % \end{macrocode} % Code used in the case of the \texttt{pdftex} option. %\par\medskip\noindent % Code to hide the solutions page to a quiz that has solutions. % \begin{macrocode} \def\noPeek#1#2{\global\pdfpageattr=\expandafter{\noPeekAction{#1}{#2}}} % \end{macrocode} % Support for automatic calculation fields for the \textsf{pdflatex} driver. The command % \cs{HyField@AddToFields}, not modified here, is inserted at the end of the code % for \cs{eq@choice@driver} and \cs{eq@TextField} below. %\changes{v2.8}{2014/11/23}{Modified a macro from hyperref (2012/11/06) to support %automatic calculation of fields using eforms (and hyperref).} % \begin{macrocode} \def\HyField@@AddToFields#1{% \HyField@AfterAuxOpen{% \if@filesw \write\@mainaux{% \string\HyField@AuxAddToFields{#1}}% % added for eforms \ifisCalculate\write\@mainaux{% \string\HyField@AuxAddToCoFields{}{#1}}\fi % end eforms \fi }% }% % \end{macrocode} % driver dependent code for choice fields % \begin{macrocode} \def\eq@choice@driver {% \Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \hbox{\pdfstartlink user{\common@choiceCode}% \lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}\pdfendlink}% \HyField@AddToFields \endgroup } \def\eq@Button@driver {% \Hy@pdfstringtrue \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\ef@djXPD\fi \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\fi \hbox{\pdfstartlink user{ \common@pushButtonCode }% \lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}\pdfendlink}% \endgroup } \def\eq@RadioCheck@driver {% \Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\fi \hbox{\pdfstartlink user{\common@RadioCheckCode}% \lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}\pdfendlink}% \endgroup } \def\eq@l@check@driver {% \pdfstartlink user{\common@RadioCheckCode}% \makebox[\eq@tmpdima]{\phantom{\link@@Content}}% \pdfendlink\endgroup } \def\eq@TextField{\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \leavevmode \hbox{\pdfstartlink user{\common@TextFieldCode}% \lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}\pdfendlink}% \HyField@AddToFields \endgroup } \def\eq@SigField{\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \leavevmode\hbox{\pdfstartlink user{\common@SigFieldCode}% \lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}\pdfendlink}% \endgroup } \def\setLink@driver {% \@eqBS{}% \leavevmode\pdfstartlink attr {\eq@Border}% user{/Subtype/Link \common@LinkCode}% \Hy@colorlink{\@linkcolor}\link@@Box \close@pdflink \endgroup } \def\ef@setTabOrder{\ifx\ef@taborder\@empty\else \edef\ef@tmp@toks{\the\pdfpageattr\space/Tabs/\ef@taborder}% \global\pdfpageattr=\expandafter{\ef@tmp@toks}% \fi\endgroup } % \end{macrocode} % \begin{macrocode} % % \end{macrocode} % \subsection{For the \texttt{dvipdfm}, \texttt{dvipdfmx}, \texttt{xetex} options} % \begin{macrocode} %<*edvipdfm> % \end{macrocode} % Code to hide the solutions page to a quiz that has solutions. % \begin{macrocode} \def\noPeek#1#2{\@pdfm@mark{put @thispage << \noPeekAction{#1}{#2} >> }} % \end{macrocode} % (2016/12/22) Removed \cs{ef@adjHWxetex} in favor of \cs{ef@djXPD}. % \changes{v2.9d}{2016/12/22}{Removed \string\cs{ef@adjHWxetex} in favor of \string\cs{ef@djXPD}} % \begin{macrocode} %\def\ef@adjHWxetex{% % \setlength{\@tempdima}{\eq@W@value bp}% % \setlength{\@tempdima}{2\@tempdima}% % \edef\ef@border@adj{\the\@tempdima}% % \setlength{\@tempdima}{\eq@rectH+\ef@border@adj}% % \edef\eq@rectH{\the\@tempdima}% % \setlength{\@tempdima}{\eq@rectW+\ef@border@adj}% % \edef\eq@rectW{\the\@tempdima}} \let\ef@adjHWxetex\relax % \end{macrocode} % \begin{macrocode} \def\eq@choice@driver{\ef@adjHWxetex \Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \leavevmode\setbox\pdfm@box=% \hbox{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim <<\common@choiceCode>>}\unhbox\pdfm@box\relax% \@pdfm@mark{put @afields @\Fld@name}% record in @afields array \ifisCalculate\@pdfm@mark{put @corder @\Fld@name}\fi \endgroup} % \end{macrocode} % (2013/06/09) xelatex apparently includes the boundary in its width and height % calculations. So we must too. % \begin{macrocode} \def\eq@Button@driver{\Hy@pdfstringtrue \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\ef@djXPD\fi % 12/22 \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \setbox\pdfm@box=% \hbox{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim << \common@pushButtonCode >>}\unhbox\pdfm@box\relax% \@pdfm@mark{put @afields @\Fld@name}% record in @afields array \endgroup } \def\eq@RadioCheck@driver{\ef@adjHWxetex\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \ifx\eq@rectW\@empty\def\eq@rectW{\wd\eq@tmpbox}\fi \setbox\pdfm@box=% \hbox{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \@pdfm@mark{ann \dvipdfm@setdim <<\common@RadioCheckCode>>}\unhbox\pdfm@box\relax% \endgroup } \def\eq@l@check@driver{% \setbox\pdfm@box=% \hbox{\makebox[\eq@tmpdima]{\phantom{\link@@Content}}}% \@pdfm@mark{ann \dvipdfm@setdim<<\common@RadioCheckCode>>}% \unhbox\pdfm@box\relax\endgroup } \def\eq@TextField{\ef@adjHWxetex\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \leavevmode\setbox\pdfm@box=% \hbox{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim << \common@TextFieldCode >>}\unhbox\pdfm@box\relax% \@pdfm@mark{put @afields @\Fld@name}% record in @afields array \ifisCalculate\@pdfm@mark{put @corder @\Fld@name}\fi \endgroup } \def\eq@SigField{\ef@adjHWxetex\Hy@pdfstringtrue \if\@vertRotate1 \let\W@temp\eq@rectW\edef\eq@rectW{\eq@rectH}% \edef\eq@rectH{\W@temp}\fi\centerWidget\eq@rectH \ifx\autoCenter\ef@n\eqcenterWidget=0pt\fi \leavevmode\setbox\pdfm@box=% \hbox{\lower\eqcenterWidget\ef@Bbox{\eq@rectW}{\eq@rectH}}% \@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim << \common@SigFieldCode >>}\unhbox\pdfm@box\relax% \endgroup } \def\setLink@driver{% \@eqBS{}\leavevmode \@pdfm@mark{bann <>}% \Hy@colorlink{\@linkcolor}\link@@Box\Hy@endcolorlink \@pdfm@mark{eann}% \endgroup } \def\ef@setTabOrder{\ifx\ef@taborder\@empty\else \@pdfm@mark{ put @thispage << /Tabs/\ef@taborder >> }% \fi\endgroup } % % \end{macrocode} % \begin{macrocode} %<*setcorder> % \end{macrocode} % \section{Document JavaScripts} % \subsection{Support for setting calculation order} % \begin{macrocode} \begin{insDLJS}{cojs}{eforms: JavaScript to set calculation order} var debugCalc=false; ef_setCalcOrder.lastIndex=0; function ef_setCalcOrder (a) { var o1, o2, f; while ( a.length > 0) { if (a.length > 1) { f=a.shift(); o1=this.getField(f); if ( o1 == null ) { ef_CalcOrderErr(f); continue; } f = a[0]; o2=this.getField(f); if ( o2 == null ) { ef_CalcOrderErr(f); a.shift(); continue; } if ( o2.calcOrderIndex < o1.calcOrderIndex ) { o2.calcOrderIndex=o1.calcOrderIndex+1; ef_setCalcOrder.lastIndex=o2.calcOrderIndex; } } else { f=a.shift(); o1=this.getField(f); if ( o1 == null ) { ef_CalcOrderErr(f); continue; } o1.calcOrderIndex=ef_setCalcOrder.lastIndex; } } } function ef_CalcOrderErr(f) { console.show(); app.beep(0); console.println("calcOrder: the field \""+ f + "\" does not exist in this document, skipping it.\n\n" + "calcOrder: Check the case sensitive spelling of the field."); } var _EfCalcOrder=\efCalcOrder; ef_setCalcOrder(_EfCalcOrder); \end{insDLJS} % % \end{macrocode} % \begin{macrocode} %<*package> \inputCalcOrderJS % % \end{macrocode} % \Finale \endinput