|
|
| version 1.58, 2004/07/28 13:43:58 | version 1.74, 2004/12/23 14:51:32 |
|---|---|
| Line 1 | Line 1 |
| $t[^table::create{c | @print[title;hash][key;value] |
| 515 | <p>$title ^hash.foreach[key;value]{$key}[ | ]</p> |
| 516 | =$hash.[zzz].rrggbb= |
| 517 | |
| 518 | |
| 519 | |
| 520 | |
| 521 | |
| 522 | |
| 523 | |
| 501 | |
| 502 | |
| 506 | |
| 507 | |
| 508 | |
| 509à, | |
| 509 | |
| 509 | |
| 510 | |
| 511 | |
| 512 | |
| 513/513à | |
| }] | |
| #^throw[paf; | @main[] |
| ^t.menu{ | $table[^table::create{color rrggbb |
| $t.c -- ^t.c.int(0)<br> | red ff0000 |
| green 00ff00 | |
| blue 0000ff | |
| _default 000000} | |
| ] | |
| $c_hash[ | |
| $.red[ | |
| $.color[red] | |
| $.rrggbb[ff0000] | |
| ] | |
| $.green[ | |
| $.color[green] | |
| $.rrggbb[00ff00] | |
| ] | |
| $.blue[ | |
| $.color[blue] | |
| $.rrggbb[0000ff] | |
| ] | |
| $._default[ | |
| $.color[_default] | |
| $.rrggbb[000000] | |
| ] | |
| ] | |
| $a_hash[^table.hash[color]] | |
| ^print[a_hash:;$a_hash] | |
| $b_hash[^hash::create[]] | |
| ^table.menu{ | |
| ^b_hash.add[$.[$table.color][$table.fields]] | |
| } | } |
| #] | |
| ^print[b_hash:;$b_hash] | |
| ^print[c_hash:;$c_hash] | |