Changeset 9cd63c3 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Mar 11, 2012, 9:49:36 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

113bff8

Parents:

e71f0a2

Message:

refs #1443, metodo para forzar que se acepten/rechacen los cambios que se estan editando

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -387 +387 @@
   }
   
+  method AcceptEdit { } {
+    ::TreeCtrl::EditClose $tree entry 1 0
+  }
+
+  method CancelEdit { } {
+    ::TreeCtrl::EditClose $tree entry 0 0
+  }
+
   method getItemText { item } {
     set itemText ""
@@ -1034 +1042 @@
                                { {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 } {