придумал костыли :)

Sergey M. 22.10.2004 21:15

@print[title;hash][key;value]
<p>$title ^hash.foreach[key;value]{$key}[ | ]</p>
=$hash.[zzz].rrggbb=

@main[]
$table[^table::create{color	rrggbb
red	ff0000
green	00ff00
blue	0000ff
_default	000000}
]

$b_hash[$._default[
		$.color[_default]
		$.rrggbb[]
	]]
^table.menu{
	^if($table.color eq "_default"){
		$b_hash._default.rrggbb[$table.rrggbb]
	}{
		^b_hash.add[$.[$table.color][$table.fields]]
	}
}
^print[b_hash:;$b_hash]