Changeset 09b79f5 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Dec 30, 2011, 8:49:22 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

633537f

Parents:

21beb26

Message:

refs #919, improving in place editing

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3975 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/wtree/wtree.tcl (modified) (2 diffs)

tolbase/lib/wtree/wtree.tcl

@@ -889 +889 @@
     }
     
-    foreach { item itemNum column columnNum elem elemName } $treeInfo { }
+    foreach { item I column C elem E } $treeInfo { }
     
     #puts "OnButtonPress1: $treeInfo"
@@ -895 +895 @@
              $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