Index: tolbase/lib/wtree/wtree.tcl
===================================================================
--- tolbase/lib/wtree/wtree.tcl	(revision 2c0158dfbb4e8055e4b7771447fbc69753cfd309)
+++ tolbase/lib/wtree/wtree.tcl	(revision e259ad9257c1ebc1b7bbf0484db69e4aba988ef6)
@@ -915,5 +915,4 @@
     foreach { item I column C elem E } $treeInfo { }
     
-    #puts "OnButtonPress1: $treeInfo"
     if { $item == "item" && \
              $column == "column" && \
@@ -925,18 +924,19 @@
       set idx_info $column_info(MAPIDX,$C)
 
-      if { $column_info($idx_info,-editable) && $E eq "eTXT"} {
+      if { $column_info($idx_info,-editable) && 
+           ( $E eq "eTXT" || $E eq "eRECT" ) } {
         set exists [winfo exists $tree.entry]
-        ::TreeCtrl::EntryOpen $tree $I $C $E
+        ::TreeCtrl::EntryOpen $tree $I $C eTXT
         if {!$exists} {
-          $tree.entry configure -borderwidth 1 -justify center  \
+          $tree.entry configure -borderwidth 1 -justify left  \
               -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
+        scan [ $tree item bbox $I $C eRECT ] "%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)}]]
+        place $tree.entry -y $y1 -x $left -width [expr {$right - $left + 1}]
+        $tree.entry icursor [$tree.entry index @[expr {$x - $x1}]]
         return -code break
 
@@ -994,5 +994,5 @@
                 -columns [ list \
                                { {image text} -tags ID   -label Identifier } \
-                               { text -tags DESC -label Description } ] ]
+                               { text -tags DESC -label Description -editable yes } ] ]
     
     $T notify bind $T <Expand-before> {
@@ -1003,5 +1003,5 @@
     }
     $T notify bind $T <ActiveItem> {
-      #puts "now active item is %c the previous was %p"
+      puts "now active item is %c the previous was %p"
     }
     grid $T -row 1 -column 0 -sticky "snew"