Index: tolbase/lib/wtree/wtree.tcl
===================================================================
--- tolbase/lib/wtree/wtree.tcl	(revision 21beb268dac8b7537eb448bb1ea0a6d4f27d8094)
+++ tolbase/lib/wtree/wtree.tcl	(revision 09b79f51396d9c23c4e7e492f075340cc2d4e472)
@@ -889,5 +889,5 @@
     }
     
-    foreach { item itemNum column columnNum elem elemName } $treeInfo { }
+    foreach { item I column C elem E } $treeInfo { }
     
     #puts "OnButtonPress1: $treeInfo"
@@ -895,11 +895,26 @@
              $column == "column" && \
              $elem == "elem" && \
-             [ $tree selection includes $itemNum ] } {
+             [ $tree selection includes $I ] } {
 
       #puts "$itemNum = [$tree selection includes $itemNum ]"
 
-      set idx_info $column_info(MAPIDX,$columnNum)
-
-      if { $column_info($idx_info,-editable) && $elemName eq "eTXT"} {
+      set idx_info $column_info(MAPIDX,$C)
+
+      if { $column_info($idx_info,-editable) && $E eq "eTXT"} {
+        set exists [winfo exists $tree.entry]
+        ::TreeCtrl::EntryOpen $tree $I $C $E
+        if {!$exists} {
+          $tree.entry configure -borderwidth 1 -justify center  \
+              -background white -relief sunken
+          update idletask
+        }
+        $tree.entry selection clear
+        scan [$tree item bbox $I $C $E] "%d %d %d %d" x1 y1 x2 y2
+        set left $x1
+        set right $x2
+        place $tree.entry -y $y1 -x $left -width [expr {$right - $left + 4}]
+        $tree.entry icursor [$tree.entry index @[expr {$x - ($x1 + 1)}]]
+        return -code break
+
         ::TreeCtrl::ButtonPress1 $tree $x $y
         update