Index: tolbase/lib/wtree/wtree.tcl
===================================================================
--- tolbase/lib/wtree/wtree.tcl	(revision e71f0a264f1ec56b92140bd125689e7237b2d902)
+++ tolbase/lib/wtree/wtree.tcl	(revision 9cd63c36f3e6abc1f327feed6996f6e38e2d3e30)
@@ -387,4 +387,12 @@
   }
   
+  method AcceptEdit { } {
+    ::TreeCtrl::EditClose $tree entry 1 0
+  }
+
+  method CancelEdit { } {
+    ::TreeCtrl::EditClose $tree entry 0 0
+  }
+
   method getItemText { item } {
     set itemText ""
@@ -1034,7 +1042,17 @@
                                { {image text} -tags ID   -label Identifier } \
                                { text -tags DESC -label Description -editable yes} ] ]
-    grid $T -row 1 -column 0 -sticky "snew"
+    grid $T -row 0 -column 0 -sticky "snew"
+    button $w.btn1 -text "OK" \
+        -command [ string map [ list "%T" $T ] {
+          %T AcceptEdit
+        } ]
+    button $w.btn2 -text "Cancel" \
+        -command [ string map [ list "%T" $T ] {
+          %T CancelEdit
+        } ]
+    grid $w.btn1 -row 1 -column 0 
+    grid $w.btn2 -row 1 -column 1 
     grid rowconfigure $w 1 -weight 1
-    grid columnconfigure $w 0 -weight 1
+    grid columnconfigure $w 0 -weight 1 
     
     for { set r 0 } { $r < 100 } { incr r } {