Source Browser ?

1%D \module
2%D   [       file=page-smp,  % was: core-mul, page-mul
3%D        version=1998.03.15,
4%D          title=\CONTEXT\ Page Macros,
5%D       subtitle=Simple Multi Column Output,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\unprotect
15
16%D The old one:
17
18\definemixedcolumns
19  [\v!columns]
20  % compatible with columns default :
21  [\c!balance=\v!yes,
22   \c!blank={\v!line,\v!fixed}]
23
\unexpanded\def\setupcolumns
  {\setupmixedcolumns[\v!columns]}
26
27%D This will be replaced by mixed box.
28
29\unexpanded\def\startsimplecolumns
30  {\dosingleempty\page_simple_start}
31
32\def\page_simple_start[#1]%
33  {\bgroup
34   \setsimplecolumnshsize[#1]%
35   \nopenalties
36   \setbox\scratchbox\vbox\bgroup
37   \forgetall} % \blank[\v!disable]
38
39\unexpanded\def\stopsimplecolumns
40  {\removebottomthings
41   \egroup
42   \rigidcolumnbalance\scratchbox
43   \egroup}
44
45\unexpanded\def\setsimplecolumnshsize[#1]%
46  {\getdummyparameters
47     [\c!width=\hsize,
48      \c!distance=1.5\bodyfontsize,
49      \c!n=2,
50      \c!lines=0,
51      #1]%
52   \edef\rigidcolumnlines
53     {\directdummyparameter\c!lines}%
54   \setrigidcolumnhsize
55     {\directdummyparameter\c!width}%
56     {\directdummyparameter\c!distance}%
57     {\directdummyparameter\c!n}}
58
59\protect \endinput
60