Tk Library Source Code

Artifact 02dad5cc8cd03153a45df6069219b276c4d2a8bc:

Attachment "bwidget-1.7.0-tree.diff" to ticket [1046955fff] added by rogerjmeier 2004-10-14 17:59:19.

---

--- BWidget-1.7.0/tree.tcl.~1~	2003-10-20 23:23:53.000000000 +0200
+++ BWidget-1.7.0/tree.tcl	2004-10-14 12:38:06.235012920 +0200
@@ -327,6 +327,7 @@
     if { [info exists data($node)] } {
         return -code error "node \"$node\" already exists"
     }
+    set parent [_node_name $path $parent]
     if { ![info exists data($parent)] } {
         return -code error "node \"$parent\" does not exist"
     }