3. Тогда как универсально передать $cellCode?

R. Averkov 08.02.2006 11:30 / 08.02.2006 11:51

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

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

@tableInColumns[table;cols;cellCode][cellWidth;i]
$cellWidth(^math:floor(100/$cols))

<tr>

^table.menu{

	<td^if(^table.offset[] < $cols){ width="^if(^table.offset[];$cellWidth;100 - $cellWidth * ($cols - 1))%"}>$cellCode</td>

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

}

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

</tr>