diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-08-17 08:21:39 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:50 +1000 |
| commit | cbc635e8f4de48408768053a976dc7bd7177ba7a (patch) | |
| tree | bca1549fa15afc234868b5c46cd8a4a486f16b8f /tree.tcl | |
| parent | 75af5a8f20800977aabfd95fdfc403f851f8c459 (diff) | |
| download | jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.zip jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.tar.gz jimtcl-cbc635e8f4de48408768053a976dc7bd7177ba7a.tar.bz2 | |
Clean up the indentation mess
Use 'indent'. Not perfect, but at least consistent.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tree.tcl')
| -rw-r--r-- | tree.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -15,9 +15,9 @@ package provide tree # # Set the value for the given key # -# $pt lappend <nodename> <key> <value> +# $pt lappend <nodename> <key> <value> ... # -# Append to the (list) value for the given key, or set if not yet set +# Append to the (list) value(s) for the given key, or set if not yet set # # $pt keyexists <nodename> <key> # @@ -125,9 +125,9 @@ proc tree_set {treeref node key value} { # treehandle lappend node key value # -proc tree_lappend {treeref node key value} { +proc tree_lappend {treeref node key args} { _tree_update_node $treeref $node n { - lappend n($key) $value + lappend n($key) {expand}$args set result $n($key) } return $result |