summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mpman-ru/ctabbing.sty
blob: b61ec6ed7842b6af497ab15c72078b73ce965dd6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
% Public domain.
% 
% The ctabbing environment is a centered tabbing environment suitable for
% displaying program fragments.  The vertical spacing is exactly like that
% for normal text in a center environment.  This is achieved by setting
% \@minipagetrue to fool \tabbing into thinking that it starts a minipage
% and should therefore avoid all vertical space at the top.  (Note that any
% space at all would defeat the \vtop command in \ctabbing.)  The
% \vskip-\lastskip and \prevdepth saving commands avoid extra space after
% \endtabbing

\newdimen\ct@pd

\def\ctabbing{\center\leavevmode\vtop\bgroup\@minipagetrue\begingroup\tabbing}

\def\endctabbing{\endtabbing\endgroup\vskip-\lastskip
                \global\ct@pd\prevdepth \egroup
                \endcenter \global\prevdepth\ct@pd}