stable 2010-05-24 13:10

1 files changed, 615 insertions, 0 deletions

diff --git a/tex/context/base/scrn-men.mkiv b/tex/context/base/scrn-men.mkiv
new file mode 100644
index 000000000..246d31bfd
--- /dev/null
+++ b/tex/context/base/scrn-men.mkiv
@@ -0,0 +1,615 @@
+%D \module
+%D   [       file=scrn-bar, % was part of scrn-int
+%D        version=1995.01.01,
+%D          title=\CONTEXT\ Core Macros,
+%D       subtitle=Menus,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\writestatus{loading}{ConTeXt Screen Macros / Menus}
+
+\unprotect
+
+% \startinteractionmenu[rechts]
+%   \but [eerste]  eerste  \\
+%   \txt hello world       \\
+%   \but [tweede]  tweede  \\
+%   \nop                   \\
+%   \but [tweede]  tweede  \\
+%   \rul whow              \\
+%   \but [tweede]  tweede  \\
+%   \raw hello world       \\
+%   \but [tweede]  tweede  \\
+%   \com \vfill            \\
+%   \but [derde]   derde   \\
+% \stopinteractionmenu
+
+% \setupinteraction[menu=on,state=start]
+%
+% \defineinteractionmenuclass[test]   [vertical]
+% \defineinteractionmenuclass[another][horizontal]
+%
+% \defineinteractionmenu[test]   [left][state=start,width=4cm]
+% \defineinteractionmenu[another][top] [state=start,height=1cm]
+%
+% \startinteractionmenu[test]
+%   \but [firstpage] test-a \\
+%   \but [nextpage]  test-b \\
+% \stopinteractionmenu
+%
+% \startinteractionmenu[another]
+%   \but [firstpage] test-a \\
+%   \but [nextpage]  test-b \\
+% \stopinteractionmenu
+%
+% \setupheadertexts[{\interactionmenu[another]}]
+%
+% \starttext
+%
+% test \interactionmenu[test] \page
+% test \interactionmenu[test] \page
+%
+% \stoptext
+
+% ja   : kader/achtergrond met tekst
+% leeg : kader/achtergrond maar geen tekst
+% nee  : alleen ruimte reserveren
+% geen : helemaal weglaten
+%
+% \setupinteractionmenu[right][samepage=yes,  unknownreference=yes]
+% \setupinteractionmenu[right][samepage=empty,unknownreference=empty]
+% \setupinteractionmenu[right][samepage=no,   unknownreference=no]
+% \setupinteractionmenu[right][samepage=none, unknownreference=none]
+%
+% \startinteractionmenu[right]
+% \but [firstpage] first \\
+% \but [lastpage] last \\
+% \but [somepage] crap \\
+% \stopinteractionmenu
+
+%D Define menus:
+
+\def\setmenuparameter#1#2#3{\@EA\def\csname\??am#1#2\endcsname{#3}}
+\def\letmenuparameter  #1#2{\@EA\let\csname\??am#1#2\endcsname}
+
+\def\menuparameter       #1{\csname\domenuparameter{\??am\currentmenu}#1\endcsname}
+\def\namedmenuparameter#1#2{\csname\domenuparameter{\??am          #1}#2\endcsname}
+\def\menuparameterhash   #1{\domenuparameterhash   {\??am\currentmenu}#1}
+
+\def\domenuparameter    #1#2{\ifcsname#1#2\endcsname#1#2\else\expandafter\domenuparentparameter    \csname#1\s!parent\endcsname#2\fi}
+\def\domenuparameterhash#1#2{\ifcsname#1#2\endcsname  #1\else\expandafter\domenuparentparameterhash\csname#1\s!parent\endcsname#2\fi}
+
+\def\domenuparentparameter    #1#2{\ifx#1\relax\s!empty\else\domenuparameter    #1#2\fi}
+\def\domenuparentparameterhash#1#2{\ifx#1\relax        \else\domenuparameterhash#1#2\fi}
+
+\unexpanded\def\defineinteractionmenu
+  {\dotripleempty\dodefineinteractionmenu}
+
+\def\dodefineinteractionmenu[#1][#2][#3]% [name] [location] [settings]
+  {\ifsecondargument
+     \ifcsname\??am:\c!list:#2\endcsname \else
+        \letvalue{\??am:\c!list:#2}\empty
+     \fi
+     \normalexpanded{\noexpand\addtocommalist{#1}\@EA\noexpand\csname\??am:\c!list:#2\endcsname}%
+     \setvalue{\@@dodolistelement#1}{\def\dosomelistelement{\dodomenulistelement{#1}}}%
+     \ifthirdargument
+       \presetlocalframed[\??am#1]%
+       \doifassignmentelse{#3}
+         {\doifelse{#1}{#2}
+            {\getparameters[\??am#1][\c!location=#2,\c!menu=,\s!parent=\??am,#3]}
+            {\getparameters[\??am#1][\c!location=#2,\c!menu=,\s!parent=\??am#2,#3]}}%
+         {\doifelsenothing{#3}
+            {\getparameters[\??am#1][\c!location=#2,\c!menu=,\s!parent=\??am]}
+            {\getparameters[\??am#1][\c!location=#2,\c!menu=,\s!parent=\??am#3]}}%
+     \else
+       \getparameters[\??am#1][\c!location=#2,\c!menu=,\s!parent=\??am#2]%
+     \fi
+   \else
+     \getparameters[\??am#1][\s!parent=\??am]% simple cloning
+   \fi}
+
+\def\currentmenulist{\ifcsname\??am:\c!list:\currentmenu\endcsname\csname\??am:\c!list:\currentmenu\endcsname\fi}
+
+%D Setup menus:
+
+\unexpanded\def\setupinteractionmenu
+  {\dodoubleargument\dosetupinteractionmenu}
+
+\def\dosetupinteractionmenu[#1][#2]%
+  {\def\docommand##1{\getparameters[\??am##1][#2]}%
+   \processcommalist[#1]\docommand}
+
+\unexpanded\def\setupinteractionmenus[#1]%
+  {\getparameters[\??am][#1]}
+
+%D Fill menus:
+
+\normalexpanded{\long\def\expandafter\noexpand\csname\e!start\v!interactionmenu\endcsname[#1]#2\expandafter\noexpand\csname\e!stop\v!interactionmenu\endcsname}%
+  {\long\setmenuparameter{#1}\c!menu{\dointeractionmenu{#1}{#2}}}
+
+\def\resetinteractionmenu[#1]%
+  {\letmenuparameter{#1}\c!menu\empty}
+
+%D Check if menus permitted:
+
+\newif\iflocationmenupermitted
+
+\def\testinteractionmenu
+   {\iflocation
+      \doifelse\@@iamenu\v!on
+        {\doifelse{\menuparameter\c!state}\v!start
+           {\global\locationmenupermittedtrue}
+           {\global\locationmenupermittedfalse}}
+        {\global\locationmenupermittedfalse}%
+    \else
+      \global\locationmenupermittedfalse
+    \fi}
+
+%D Placement of menus:
+
+\def\interactionmenus[#1]% location
+  {\iflocation
+     \csname\??am:\c!menu:#1\endcsname
+   \fi}
+
+% \unexpanded\def\defineinteractionmenuclass
+%   {\dodoubleargument\dodefineinteractionmenuclass}
+%
+% \def\dodefineinteractionmenuclass[#1][#2]% tag hori|veri
+%   {\doifelse{#2}\v!vertical
+%      {\setvalue{\??am:\c!menu:#1}{\verticalinteractionmenu  {#1}{\getvalue{\??am#1\c!width }}}}
+%      {\setvalue{\??am:\c!menu:#1}{\horizontalinteractionmenu{#1}{\getvalue{\??am#1\c!height}}}}}
+%
+% \defineinteractionmenuclass[\v!left  ][\v!horizontal]
+% \defineinteractionmenuclass[\v!right ][\v!horizontal]
+% \defineinteractionmenuclass[\v!top   ][\v!vertical]
+% \defineinteractionmenuclass[\v!bottom][\v!vertical]
+
+\setvalue{\??am:\c!menu   :\v!left  }{\horizontalinteractionmenu\v!left  \leftedgewidth }
+\setvalue{\??am:\c!menu   :\v!right }{\horizontalinteractionmenu\v!right \rightedgewidth}
+\setvalue{\??am:\c!menu   :\v!top   }{\verticalinteractionmenu  \v!top   \topheight     }
+\setvalue{\??am:\c!menu   :\v!bottom}{\verticalinteractionmenu  \v!bottom\bottomheight  }
+
+\setvalue{\??am:\c!command:\v!right }{\@@amvbox{}\rightedgewidth}
+\setvalue{\??am:\c!command:\v!left  }{\@@amvbox{}\leftedgewidth }
+\setvalue{\??am:\c!command:\v!top   }{\@@amhbox{}\topheight     }
+\setvalue{\??am:\c!command:\v!bottom}{\@@amhbox{}\bottomheight  }
+
+\def\dointeractionmenu#1#2%
+  {\edef\currentmenu{#1}%
+   \getvalue{\??am:\c!command:\menuparameter\c!location}\currentmenu{#2}}
+
+\unexpanded\def\interactionmenu[#1]%
+  {\def\currentmenu{#1}%
+   \menuparameter\c!menu}
+
+\newdimen  \intermenudistance
+\newdimen  \finalmenuwidth
+\newdimen  \finalmenuheight
+
+\newcounter\currentamposition    % better \currentmenuposition
+\newtoks   \everysetmenucommands
+
+\def\horizontalinteractionmenu#1#2% location vhsize before/after
+  {\ifdim#2>\zeropoint
+     \edef\currentmenu{#1}%
+     \finalmenuwidth#2\relax
+     \horizontalinteractionmenuindeed
+   \fi}
+
+\def\verticalinteractionmenu#1#2%
+  {\ifdim#2>\zeropoint
+     \edef\currentmenu{#1}%
+     \finalmenuheight#2\relax
+     \verticalinteractionmenuindeed
+   \fi}
+
+\def\horizontalinteractionmenuindeed
+  {\global\intermenudistance\zeropoint
+   \setbox\scratchbox\hbox
+     {\processcommacommand[\currentmenulist]\somehorizontalinteractionmenu}%
+   \wd\scratchbox\finalmenuwidth\relax
+   \box\scratchbox}
+
+\def\verticalinteractionmenuindeed
+  {\global\intermenudistance\zeropoint
+   \setbox\scratchbox\vbox
+     {\processcommacommand[\currentmenulist]\someverticalinteractionmenu}%
+   \ht\scratchbox\finalmenuheight
+   \dp\scratchbox\zeropoint
+   \box\scratchbox}
+
+\def\somehorizontalinteractionmenu#1%
+  {\begingroup
+   \edef\currentmenu{#1}%
+   \doifnot{\menuparameter\c!state}\v!none
+     {\hskip\intermenudistance
+      \setbox\scratchbox\hbox to \finalmenuwidth
+        {\menuparameter\c!left
+         \interactionmenu[#1]%
+         \menuparameter\c!right}%
+      \doifelse{\menuparameter\c!distance}\v!overlay
+        {\global\intermenudistance\zeropoint
+         \wd\scratchbox\zeropoint}%
+        {\global\intermenudistance\menuparameter\c!distance}%
+      \box\scratchbox}%
+  \endgroup}
+
+\def\someverticalinteractionmenu#1%
+  {\begingroup
+   \edef\currentmenu{#1}%
+   \doifnot{\menuparameter\c!state}\v!none
+     {\vskip\intermenudistance
+      \setbox\scratchbox\vbox to \finalmenuheight
+        {\menuparameter\c!before
+         \interactionmenu[#1]%
+         \menuparameter\c!after}%
+      \doifelse{\menuparameter\c!distance}\v!overlay
+        {\global\intermenudistance\zeropoint
+         \offinterlineskip
+         \dp\scratchbox\zeropoint
+         \ht\scratchbox\zeropoint}%
+        {\global\intermenudistance\menuparameter\c!distance}%
+      \box\scratchbox}%
+   \endgroup}
+
+% don't change skipping, this one works! \showcomposition removed
+
+\def\@@amhbox#1#2#3#4% #1 obsolete, #3 is redundant
+  {\edef\currentmenu{#3}%
+   \testinteractionmenu
+   \iflocationmenupermitted
+     \begingroup
+     \forgetall
+     \scratchdimen\dimexpr\makeupwidth+\pagebackgroundhoffset*2-\menuparameter\c!leftoffset-\menuparameter\c!rightoffset\relax
+     \setbox\scratchbox\hbox to \scratchdimen
+       {\executeamboxcommands{#3}{#4}\c!left\c!middle\c!right}%
+     \setbox\scratchbox\hbox{\dowholemenuposition{#3}{\box\scratchbox}}% cannot happen in previous due to align
+     \wd\scratchbox\makeupwidth % geen \ht=#2 setting (yet)
+     \hskip\dimexpr-\pagebackgroundhoffset+\menuparameter\c!leftoffset\relax
+     \box\scratchbox
+     \endgroup
+   \fi}
+
+\def\@@amvbox#1#2#3#4% #1 obsolete, #3 is redundant
+  {\edef\currentmenu{#3}%
+   \testinteractionmenu
+   \iflocationmenupermitted
+     \bgroup
+     \forgetall
+     \scratchdimen\dimexpr\textheight+\pagebackgroundvoffset*2+\pagebackgrounddepth-\menuparameter\c!topoffset-\menuparameter\c!bottomoffset\relax
+     \setbox\scratchbox\vbox to \scratchdimen
+       {\restorestandardblank % todo: vspacing
+        \hsize#2\relax
+        \executeamboxcommands{#3}{#4}\c!before\c!inbetween\c!after}%
+     % strange: when we mnake this a hbox the content disappears
+     \setbox\scratchbox\vbox{\dowholemenuposition{#3}{\box\scratchbox}}% cannot happen in previous due to align
+     \setbox\scratchbox\vbox
+       {\ht\scratchbox\zeropoint
+        \vskip\dimexpr-\pagebackgroundvoffset+\menuparameter\c!topoffset\relax
+        \box\scratchbox
+        \vskip\pagebackgroundvoffset}% overbodig
+     \ht\scratchbox\textheight
+     \wd\scratchbox#2\relax
+     \box\scratchbox
+     \egroup
+   \fi}
+
+\def\executeamboxcommands#1#2#3#4#5%
+  {\begingroup
+   \edef\currentmenu{#1}%
+   \menuparameter#3\relax
+   \setamboxcommands{#1}{#4}%
+   \ignorespaces#2\unskip
+   \menuparameter#5\relax
+   \endgroup}
+
+\def\setamboxcommands#1#2%
+  {\edef\currentmenu{#1}%
+   \edef\betweenmenu{#2}%
+   \doglobal\newcounter\currentamposition
+   \the\everysetmenucommands}
+
+\def\addsomemenuitem#1%
+  {\dontleavehmode
+   \begingroup
+   \ignorespaces#1\unskip\relax
+   \ifconditional\skippedmenuitem \else
+     \menuparameter\betweenmenu
+   \fi
+   \endgroup
+   \ignorespaces}
+
+%D This can save complicated menu macros when one want to
+%D keep control over parts of a menu (i.e.\ turn them on and
+%D off). We could have achieved something similar with modes.
+
+\def\local@@ambox#1#2#3#4% don't change skipping, this one works!
+  {\begingroup
+   \edef\currentmenu{#3}%
+   \iflocationmenupermitted
+     \executeamboxcommands{#3}{#4}\c!before\c!inbetween\c!after
+   \fi
+   \endgroup}
+
+\def\includemenu[#1]%
+  {\begingroup
+   \edef\currentmenu{#1}%
+   \doif{\menuparameter\c!state}\v!local
+     {\letmenuparameter\currentmenu\c!state\v!start
+      \let\@@amvbox\local@@ambox
+      \let\@@amhbox\local@@ambox
+      \menuparameter\c!menu}%
+   \endgroup}
+
+%D The menu commands:
+
+% ja   : kader/achtergrond met tekst
+% leeg : kader/achtergrond maar geen tekst
+% nee  : alleen ruimte reserveren
+% geen : helemaal weglaten
+
+\newconditional\skippedmenuitem
+\newconditional\usemenuclick
+
+\def\dosetlocationboxcontent#1[#2]#3[#4]% to be checked
+  {\global\setfalse\skippedmenuitem
+   \setbox\locationbox\hbox{\localframed[#1][#2]{#3}}%
+   \ifconditional\usemenuclick
+     \gotobox{\box\locationbox}[#4]%
+   \else
+     \box\locationbox
+   \fi}
+
+\def\dosetlocationboxempty#1[%
+  {\dosetlocationboxcontent{#1}[\c!empty=\v!yes,}
+
+\def\dosetlocationboxno#1[%
+  {\dosetlocationboxcontent{#1}[\c!empty=\v!yes,\c!frame=,\c!background=,}
+
+\def\dosetlocationboxnone#1[#2]#3[#4]%
+  {\global\settrue\skippedmenuitem}
+
+% make two sub macros
+
+%    \dosetfontattribute {#1}{#2}%
+%    \dosetcolorattribute{#1}{#3}%
+
+\def\setlocationboxyes#1[#2]#3[#4]% needs to be split as the attr is not applicable to the box
+  {\begingroup
+   \settrue\usemenuclick
+   \global\setfalse\skippedmenuitem
+   \attribute\referenceattribute\attributeunsetvalue
+   \doifreferencefoundelse{#4}
+     {\analyzecurrentreference % we need to act on the state
+      \ifcase\referencepagestate
+         % something else than a page reference
+         \ctxlua{jobreferences.injectcurrentset(nil,nil)}%
+         \hbox attr \referenceattribute \lastreferenceattribute {\localframed[#1][#2]{#3}}%
+      \else\ifcase\csname\??am:\c!location:\menuparameter\c!samepage\endcsname\relax
+        % yes: same page or not ... todo
+        \ctxlua{jobreferences.injectcurrentset(nil,nil)}%
+        \ifnum\referencepagestate=\plusone % same page
+           \hbox attr \referenceattribute \lastreferenceattribute {\localframed[#1][#2,\c!color=\menuparameter\c!contrastcolor]{#3}}%
+        \else % elsewhere
+           \hbox attr \referenceattribute \lastreferenceattribute {\localframed[#1][#2]{#3}}%
+        \fi
+      \or
+        % empty but frame: no click
+        \localframed[#1][\c!empty=\v!yes,#2]{#3}%
+      \or
+        % empty no frame: no
+        \localframed[#1][\c!empty=\v!yes,\c!frame=,\c!background=,#2]{#3}%
+      \or
+        % nothing at all
+        \global\settrue\skippedmenuitem
+      \fi\fi}%
+    {\unknownreference{#4}%
+     \ifcase\csname\??am:\c!location:\menuparameter\c!unknownreference\endcsname\relax
+        \localframed[#1][#2]{#3}%
+      \or
+        \localframed[#1][\c!empty=\v!yes,#2]{#3}%
+      \or
+        \localframed[#1][\c!empty=\v!yes,\c!frame=,\c!background=,#2]{#1}%
+      \or
+        \global\skippedmenuitemtrue
+      \fi}%
+   \endgroup}
+
+\def\setlocationboxraw#1[#2]#3[#4]%
+  {\localframed[#1][#2]{#3}}
+
+\def\setlocationnop#1[#2]#3%
+  {\localframed[#1][#2]{#3}}
+
+\def\menu@raw[#1]#2\\%
+  {\addsomemenuitem{\gotobox{\ignorespaces#2\unskip}[#1]}}
+
+\def\menu@but[#1]#2\\%
+  {\addsomemenuitem{\domenuitemposition\currentmenu{#1}{\setlocationboxyes{\??am\currentmenu}[]{\ignorespaces#2\unskip}[#1]}}}
+
+\def\menu@got[#1]#2\\%
+  {\addsomemenuitem{\setlocationboxyes{\??am\currentmenu}[\c!frame=\v!off,\c!background=]{\ignorespaces#2\unskip}[#1]}}
+
+\def\menu@nop#1\\%
+  {\addsomemenuitem{\setlocationboxraw{\??am\currentmenu}[\c!frame=\v!off,\c!background=,\c!empty=\v!yes]{\ignorespaces#1\unskip}[]}}
+
+\def\menu@txt#1\\%
+  {\addsomemenuitem{\localframed[\??am\currentmenu][\c!frame=\v!off,\c!background=]{\ignorespaces#1\unskip}}}
+
+\def\menu@rul#1\\%
+  {\addsomemenuitem{\localframed[\??am\currentmenu][]{\ignorespaces#1\unskip}}}
+
+\def\menu@com#1\\%
+  {\ignorespaces#1\unskip\ignorespaces}
+
+\appendtoks
+  \let\raw\menu@raw \let\but\menu@but \let\got\menu@got \let\nop\menu@nop
+  \let\txt\menu@txt \let\rul\menu@rul \let\com\menu@com
+\to \everysetmenucommands
+
+\ifdefined\domenuitemposition  \else \let\domenuitemposition \gobbletwoarguments \fi
+\ifdefined\dowholemenuposition \else \let\dowholemenuposition\gobbleoneargument  \fi
+
+%D We also need an explicit position control some day. I'll
+%D do that when I need it. [The stacking order.]
+
+% [name] [location]
+% [name] [location] [pars]
+
+\expandafter\chardef\csname\??am:\c!location:\v!yes    \endcsname\zerocount
+\expandafter\chardef\csname\??am:\c!location:\v!empty  \endcsname\plusone
+\expandafter\chardef\csname\??am:\c!location:\v!no     \endcsname\plustwo
+\expandafter\chardef\csname\??am:\c!location:\v!none   \endcsname\plusthree
+
+\expandafter\chardef\csname\??am:\c!location:\v!normal \endcsname\plusone % default
+\expandafter\chardef\csname\??am:\c!location:\s!default\endcsname\plusone % default
+\expandafter\chardef\csname\??am:\c!location:\s!empty  \endcsname\plusone % default
+
+\def\dodomenulistelement#1#2#3#4#5#6#7%
+  {\addsomemenuitem{\domenuitemposition\currentmenu{internal(#3)}%
+     {\setlocationboxyes{\??am\currentmenu}[]{\limitatetext{#5}{\namedlistparameter{#2}\c!maxwidth}{\unknown}}[internal(#3)]}}}
+
+\unexpanded\def\menubutton
+  {\dodoubleempty\domenubutton}
+
+\def\domenubutton[#1]%
+  {\iffirstargument
+     \ifsecondargument
+       \@EAEAEA\domenubuttonB
+     \else
+       \doifassignmentelse{#1}
+         {\@EAEAEA\domenubuttonC}
+         {\@EAEAEA\domenubuttonD}%
+     \fi
+   \else
+     \@EA\domenubuttonA
+   \fi[#1]}
+
+\def\domenubuttonA[#1][#2]#3[#4]{\setlocationboxyes\??bt[]{#3}[#4]}       % normal button, no parameters
+\def\domenubuttonB[#1][#2]#3[#4]{\setlocationboxyes{\??am#1}[#2]{#3}[#4]} % menu button, with parameters
+\def\domenubuttonC[#1][#2]#3[#4]{\setlocationboxyes\??bt[#1]{#3}[#4]}     % normal button, with parameters
+\def\domenubuttonD[#1][#2]#3[#4]{\setlocationboxyes{\??am#1}[]{#3}[#4]}   % menu button, no parameters
+
+\def\menubox
+  {\dodoubleempty\domenubox}
+
+\def\domenubox[#1][#2]#3%
+  {\bgroup
+   \let\setlocationboxyes\setlocationboxraw
+   \domenubutton[#1][#2]#3[]%
+   \egroup}
+
+% jammer, tussen/midden had erin gemoeten; \c!commando toevoegen
+
+\def\registermenucommand#1%
+  {{\textonly\noindent#1\space}} % no math switching
+
+\def\doregistermenubuttons[#1][#2]% [menu id] [register]
+  {\bgroup
+   \ifsecondargument
+     \setupinteractionmenu[#1][\c!unknownreference=\v!yes,\c!samepage=\v!yes]%
+     \def\docommand##1{\registermenucommand{\menubutton[#1]{##1}[#2:##1]}}%
+   \else
+     \def\docommand##1{\registermenucommand{\button[\c!unknownreference=\v!yes,\c!samepage=\v!yes]{##1}[#1:##1]}}%
+   \fi
+   \handletokens abcdefghijklmnopqrstuvwxyz\with\docommand % moet anders
+   \egroup}
+
+\def\registermenubuttons
+  {\dodoubleempty\doregistermenubuttons}
+
+\defineinteractionmenu [\v!vertical]   % we happen to know that this works out ok (just a setup set)
+\defineinteractionmenu [\v!horizontal] % we happen to know that this works out ok (just a setup set)
+
+\defineinteractionmenu [\v!right ] [\v!right ] [\v!vertical  ] % we share a setup set
+\defineinteractionmenu [\v!left  ] [\v!left  ] [\v!vertical  ] % we share a setup set
+\defineinteractionmenu [\v!top   ] [\v!top   ] [\v!horizontal] % we share a setup set
+\defineinteractionmenu [\v!bottom] [\v!bottom] [\v!horizontal] % we share a setup set
+
+\setupinteractionmenus
+  [\c!offset=.25em,
+   \c!position=\v!no,
+   \c!frame=\v!on,
+   \c!background=,
+   \c!backgroundcolor=,
+   \c!foregroundstyle=\menuparameter\c!style,
+   \c!foregroundcolor=\menuparameter\c!color,
+   \c!style=\@@iastyle,
+   \c!color=\@@iacolor,
+   \c!contrastcolor=\@@iacontrastcolor,
+   \c!state=\v!start,
+   \c!samepage=\v!yes,
+   \c!unknownreference=\v!empty,
+   \c!distance=\bodyfontsize, % 12pt
+   \c!topoffset=\zeropoint,
+   \c!bottomoffset=\zeropoint,
+   \c!leftoffset=\zeropoint,
+   \c!rightoffset=\zeropoint]
+
+\setupinteractionmenu
+  [\v!vertical] % not really a menu
+  [\c!before=,
+   \c!after=\vfil,
+   \c!inbetween=\blank,
+   \c!left=\hss,
+   \c!right=\hss,
+   \c!height=\v!broad]
+
+\setupinteractionmenu
+  [\v!horizontal] % not really a menu
+  [\c!before=\vss,
+   \c!after=\vss,
+   \c!middle=\hfil,
+   \c!width=\v!fit,
+   \c!height=\v!broad]
+
+\setupinteractionmenu[\v!left  ][\c!width=\leftedgewidth ]
+\setupinteractionmenu[\v!right ][\c!width=\rightedgewidth]
+% \setupinteractionmenu[\v!top   ] [\c!height=\topheight    ]
+% \setupinteractionmenu[\v!bottom] [\c!height=\bottomheight ]
+
+\unexpanded\def\placeleftedgetextblock % Is \hss/\hsize really needed here? (check outer level and settings)
+  {\hbox to \leftedgewidth{\hsize\leftedgewidth\hss\interactionmenus[\v!left]}}
+
+\unexpanded\def\placerightedgetextblock % Is \hss/\hsize really needed here? (check outer level and settings)
+  {\hbox to \rightedgewidth{\hsize\rightedgewidth\interactionmenus[\v!right]\hss}}
+
+\unexpanded\def\placetoptextblock
+  {\vbox to \topheight
+     {\vsize\topheight
+      \csname\??tk\v!top\c!before\endcsname
+      \interactionmenus[\v!top]%
+      \csname\??tk\v!top\c!after\endcsname
+      \kern\zeropoint}}
+
+\unexpanded\def\placebottomtextblock
+  {\vbox to \bottomheight
+     {\vsize\bottomheight
+      \csname\??tk\v!bottom\c!before\endcsname
+      \interactionmenus[\v!bottom]%
+      \csname\??tk\v!bottom\c!after\endcsname
+      \kern\zeropoint}}
+
+\ifdefined\leftedgetextcontent
+
+  \appendtoks \iflocation\placeleftedgetextblock  \hskip-\leftedgewidth  \fi\to \leftedgetextcontent
+  \appendtoks \iflocation\placerightedgetextblock \hskip-\rightedgewidth \fi\to \rightedgetextcontent
+  \appendtoks \iflocation\placetoptextblock       \vskip-\topheight      \fi\to \toptextcontent
+  \appendtoks \iflocation\placebottomtextblock    \vskip-\bottomheight   \fi\to \bottomtextcontent
+
+\fi
+
+%D Enable and disable menus \unknown\ obsolete:
+
+\def\gobbletwoparameters[#1][#2]{}
+
+\def\disableinteractionmenu{\dodoubleempty\gobbletwoparameters}
+\def\enableinteractionmenu {\dodoubleempty\gobbletwoparameters}
+
+\protect \endinput