remade

R. Averkov 08.02.2006 10:03 / 08.02.2006 10:07

@main[][t]
$t[^table::create{id
^for[i](1;50){$i
}}]

<table border="1">
^tableInColumns[t](4){$t.id}
</table> 

@tableInColumns[tableName;cols;cellCode][cellWidth]
$cellWidth[^math:floor(100/$cols)%]
<tr>

^caller.[$tableName].menu{
	<td width="$cellWidth">$cellCode</td>

	^if(^caller.[$tableName].line[] != $caller.[$tableName] && !(^caller.[$tableName].line[] % $cols)){</tr><tr>}

}

^for[i](1;$cols - $caller.[$tableName] % $cols){<td><br/></td>}

</tr>