summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/dialogl/fontmenu.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-01-20 22:23:40 +0000
committerKarl Berry <karl@freefriends.org>2011-01-20 22:23:40 +0000
commit07899da1626d7e1e1d782a72ece3588442da6c7e (patch)
treed5b1de235090a5af9517f8525a508dfb4f4c8a6f /Master/texmf-dist/doc/latex/dialogl/fontmenu.tex
parent26a263f4b5fc1171444b7d04d05b1831317f36b5 (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.tex67
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