diff options
author | Karl Berry <karl@freefriends.org> | 2011-01-20 22:23:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-01-20 22:23:40 +0000 |
commit | 07899da1626d7e1e1d782a72ece3588442da6c7e (patch) | |
tree | d5b1de235090a5af9517f8525a508dfb4f4c8a6f /Master/texmf-dist/doc/latex/dialogl/fontmenu.tex | |
parent | 26a263f4b5fc1171444b7d04d05b1831317f36b5 (diff) |
rm dialogl, noinfo license, author sadly deceased
git-svn-id: svn://tug.org/texlive/trunk@21137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/dialogl/fontmenu.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/dialogl/fontmenu.tex | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/Master/texmf-dist/doc/latex/dialogl/fontmenu.tex b/Master/texmf-dist/doc/latex/dialogl/fontmenu.tex deleted file mode 100644 index 575a8344f3e..00000000000 --- a/Master/texmf-dist/doc/latex/dialogl/fontmenu.tex +++ /dev/null @@ -1,67 +0,0 @@ -\def\ComputerModern{\gdef\fontbase{Times}\gobble} -\def\Garamond{\gdef\fontbase{Computer Modern}\gobble} -\def\Helvetica{\gdef\fontbase{Garamond}\gobble} -\def\Malibu{\gdef\fontbase{Helvetica}\gobble} -\def\Times{\gdef\fontbase{Malibu}\gobble} - -\def\gobble#1\endgobble{} - -% Make sure we have a reasonable \newlinechar -\newlinechar=`\^^J \catcode\newlinechar=12 - -\begingroup -\catcode`\<=1 \catcode`\ =2\relax -\gdef\menustart{\errmessage<% -....................................... }% -\endlinechar\newlinechar\catcode`\ =12\relax -\gdef\menutext{ - ....................................... - ....................................... - - Select the font base you wish to use: - - [1] Computer Modern [4] Malibu - [2] Garamond [5] Times - [3] Helvetica - - (Default: Times)}% -\endgroup% percent here to avoid extra \newlinechar - -\begingroup -\immediate\write16{\menutext} -% If the user accidentally types 33 instead of 3 they will get past -% all the legitimate menu choices. So to keep that from causing -% trouble, we throw in a bunch of ~ characters below to perform -% error recovery. The standard maximum number of tokens that TeX -% will delete at one time is 99. -\catcode`\~=\active % just to make sure -\def~{\newlinechar`\^^J% restore normal value - \message{% -Whoops! Well, you got Times as your font base, I think}% - \gobble} -% Minimize unwanted error context (note: setting -% this to -1 doesn't suppress any more information) -\errorcontextlines 0 -\newlinechar=`\! % to hide the automatic ! from \errmessage -\gdef\fontbase{Times} -% Inside the next group we make the space character -% active so that we can use it to call \menustart, -% and then we use \expandafter so that the first -% space on the next line gets that catcode before -% the \endgroup makes it revert to normal. All this -% so that the user does not see `\menustart' on -% screen, only a space. -\begingroup -\catcode`\ =\active\let =\menustart\expandafter\endgroup% - % Enter a number (1...5) and press Return TWICE -\ComputerModern% Press Return to continue -\Garamond% Press Return to continue -\Helvetica% Press Return to continue -\Malibu% Press Return to continue -\Times% Press Return to continue -\gobble% -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~% -~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~% -\endgobble\endgroup% -\show\fontbase -\end |