context-beginner-vi/ma-cb-screen.tex

   1 \startenvironment ma-cb-screen
   2
   3 % This setups adds some functionality as well as redefines
   4 % some of the previously defined layout.
   5
   6 \unprotect
   7
   8 \definepapersize
   9   [LocalPaperFormat]
  10   [\c!width=28cm,
  11    \c!height=21cm]
  12
  13 \setuppapersize
  14   [LocalPaperFormat]
  15   [LocalPaperFormat]
  16
  17 \setuplayout
  18   [\c!location=\v!middle,
  19    \c!topspace=.5cm,
  20    \c!header=1.5cm,
  21    \c!height=20cm,
  22    \c!rightedge=5cm,
  23    \c!rightedgedistance=1cm]
  24
  25 \setupinteractionscreen
  26   [\c!width=28cm,
  27    \c!height=21cm,
  28    \c!option=\v!max]
  29
  30 % We place the pagenumber (not that useful in an interactive
  31 % document) somewhere else and the chapter number in the
  32 % footer.
  33
  34 \setuppagenumbering
  35   [\c!alternative=\v!singlesided,
  36    \c!location=,
  37    \c!command=\NummerCommando]
  38
  39 \unexpanded\def\NummerCommando#1% uitlijnen op onderkant voet
  40   {\hbox to \rightedgewidth
  41      {\scratchcounter=\lastpage
  42       \advance\scratchcounter by -\realpageno
  43       \hskip0pt plus \realpageno cm
  44       \framed
  45         [\c!background=NummerAchtergrond,
  46          \c!frame=\v!off,
  47          \c!offset=4pt]%
  48         {\lower.5\dp\strutbox\hbox spread 60pt{\hss\tx#1\hss}}% {\hss#1\hss}}%
  49       \hskip0pt plus \scratchcounter cm}}
  50
  51 \setupfootertexts
  52   [\v!edge]
  53   [][\v!pagenumber]
  54
  55 \unexpanded\def\PlaatsHoofdstukStatus
  56   {\determineheadnumber[\v!chapter]%
  57    \ifnum\currentheadnumber>0
  58      \hbox to \hsize
  59        {\hss
  60         \framed
  61           [\c!background=NummerAchtergrond,
  62            \c!frame=\v!off,
  63            \c!offset=6pt]
  64           {\lower.5\dp\strutbox\hbox spread 60pt
  65              {\hss\getmarking[\v!chapter\v!number]\hss}}%
  66         \hss}
  67    \fi}
  68
  69 \setupfootertexts
  70   [\v!margin]
  71   [][]
  72
  73 \setupfootertexts
  74   [\v!text]
  75   [][\PlaatsHoofdstukStatus]
  76
  77 \setupinteraction
  78   [\c!state=\v!start,
  79    \c!color=,
  80    \c!menu=\v!on]
  81
  82 % We let users click on the whole table of contents line and
  83 % provide some menus.
  84
  85 \setuplist
  86   [\v!chapter]
  87   [\c!interaction=\v!all]
  88
  89 \setupinteractionmenu
  90   [\v!right]
  91   [\c!state=\v!start,
  92    \c!color=,
  93    \c!offset=4pt,
  94    \c!background=MenuAchtergrond,
  95    \c!frame=\v!off]
  96
  97 \startmode[**nl]
  98
  99   \setupinteractionmenu
 100     [\v!right]
 101     [    {inhoud[contents]},
 102           {index[subind]},
 103      {commando's[comind]},
 104      {definities[comdefs]},
 105         {colofon[colofon]},
 106             {\vfill},
 107         {stoppen[\v!CloseDocument]},
 108      {\ZoekEnZoek{zoeken}},
 109           {terug[\v!PreviousJump]},
 110         {\HeenEnWeer}]
 111
 112 \stopmode
 113
 114 \startmode[**en,**uk]
 115
 116   \setupinteractionmenu
 117     [\v!right]
 118     [  {contents[contents]},
 119           {index[subind]},
 120        {commands[comind]},
 121     {definitions[comdefs]},
 122         {colofon[colofon]},
 123             {\vfill},
 124            {exit[\v!CloseDocument]},
 125      {\ZoekEnZoek{search}},
 126         {go back[\v!PreviousJump]},
 127         {\HeenEnWeer}]
 128
 129 \stopmode
 130
 131 \startmode[**cz]
 132
 133   \setupinteractionmenu
 134     [\v!right]
 135     [                             {obsah[contents]},
 136                   {rejst\rcaron\iacute k[subind]},
 137        {seznam p\rcaron\iacute kaz\uring[comind]},
 138      {definice p\rcaron\iacute kaz\uring[comdefs]},
 139                       {tir\aacute\zcaron[colofon]},
 140                                     {\vfill},
 141                                   {konec[\v!CloseDocument]},
 142                             {\ZoekEnZoek{vyhledej}},
 143                        {krok zp\ecaron t[\v!PreviousJump]},
 144                                   {\HeenEnWeer}]
 145
 146 \stopmode
 147
 148 \startmode[**fr]
 149
 150   \setupinteractionmenu
 151     [\v!right]
 152     [  {table des mati\egrave res[contents]},
 153           {index[subind]},
 154        {commandes[comind]},
 155     {d\eacute finitions[comdefs]},
 156         {colophon[colofon]},
 157             {\vfill},
 158            {quitter[\v!CloseDocument]},
 159      {\ZoekEnZoek{recherche}},
 160         {retour[\v!PreviousJump]},
 161         {\HeenEnWeer}]
 162
 163 \stopmode
 164
 165 % This not that \TEX nical definition deals with the two sets
 166 % of buttons. Someday I'll make a general macro for this.
 167
 168 \def\TwoMenuButtons#1[#2]#3[#4]%
 169   {\hbox to \hsize
 170      {\dimen0=\hsize
 171       \advance\hsize by -12pt
 172       \menubutton[\v!right][\c!width=.5\hsize]{#1}[#2]%
 173       \hss
 174       \menubutton[\v!right][\c!width=.5\hsize]{#3}[#4]}}
 175
 176 \def\HeenEnWeer
 177   {\TwoMenuButtons{--}[\v!previouspage]{+}[\v!nextpage]}
 178
 179 \def\ZoekEnZoek#1%
 180   {\TwoMenuButtons{#1}[\v!SearchDocument]{+}[\v!SearchAgain]}
 181
 182 \protect
 183
 184 \stopenvironment