tree: node ids are now simple integers

Dictionary lookups with simple integers are more efficient
than with "node<integer>"

Signed-off-by: Steve Bennett <[email protected]>

Author: msteveb

tests/tree.test

@@ -111,7 +111,7 @@ test tree-2.3 "walk bfs" {
 } {rootnode childnode1 root.c2 root.c3 childnode2 n.c4 n.c5 n.c5.c6}
 
 test tree-3.1 "delete nodes" {
-	$pt delete node6
+	$pt delete 6
 	set result {}
 	$pt walk root bfs {action n} {
 		if {$action == "enter"} {

tree.tcl

@@ -143,7 +143,7 @@ tree method getall {node} {
 tree method insert {node {index end}} {
 
 	# Make a new node and add it to the tree
-	set childname node[incr nodeid]
+	set childname [incr nodeid]
 	dict set tree $childname {}
 
 	# The new node has no children