Changeset e259ad9 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Feb 29, 2012, 8:38:47 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

7d4ba03

Parents:

73cf07b

Message:

refs #1382, edition is triggered when clicked over the whole column no only when clicked over the text

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -915 +915 @@
     foreach { item I column C elem E } $treeInfo { }
     
-    #puts "OnButtonPress1: $treeInfo"
     if { $item == "item" && \
              $column == "column" && \
@@ -925 +924 @@
       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 +994 @@
                 -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 +1003 @@
     }
     $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"