Changeset 6dc91d2 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Nov 23, 2016, 12:06:20 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

cc64b09

Parents:

ffeacdc

Message:

Refs #1933
Se incorporan las barras a la ventana de salida del inspector (tolbase.tcl).
Se corrige un bug con el botón derecho sobre el árbol del inspector (tolinspewtree2.tcl).
Se revisan los binds del editor de PRJs (tolprj.tcl) y se hace uso de la nueva opción de wtree: -selectcommand.
Se añade el método focus y dos opciones de configuración (selectcommand y bindtags) al wtree (wtree.tcl).

Se revisa listboxplus:

+ Se añaden algunas opciones auxiliares (para evitar errores)
+ Se suspenden las barras para que no salgan duplicadas (wtree ya las tiene)
+ Se redirigen los mecanismos de ordenación a los de wtree (véase _SortByColumn, por ejemplo).

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -80 +80 @@
       -default "" -configuremethod "_conf-columnfilter"
 
+  option -bindtags \
+      -default "" -configuremethod "_conf-bindtags"      
+
+  option -selectcommand \
+      -default "" -configuremethod "_conf-selectcommand"           
+      
   variable tree
   variable vscrollbar
@@ -265 +271 @@
         
         $t item sort root $order -column $column -dictionary
+  }
+  
+  method focus { itemid } {
+    if { $itemid eq "" } {
+      $self item id active 
+    } else {
+      $self activate $itemid
+    }
   }
 
@@ -314 +328 @@
         -showrootbutton no -showbuttons yes -showlines yes \
         -scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
+   
+    bindtags $tree [linsert [bindtags $tree] 0 $win Wtree]
 
     $tree notify install <<ItemSelected>>
@@ -702 +718 @@
     }
   }
+  
+  method _conf-bindtags { _ addtags } {
+    set options(-bindtags) $addtags
+    bindtags $self [concat $addtags [bindtags $self]]
+        bindtags $tree [concat $addtags [bindtags $tree]]
+  }
+  
+  method _conf-selectcommand { _ cmd } {
+    set options(-selectcommand) $cmd
+    if { $cmd eq "" } return
+    $self notify bind $self <Selection> $cmd
+  }  
 
   #
@@ -742 +770 @@
       array set opts [ lrange $col_spec 1 end ]
       set colID [ $tree column create \
-                      -text [ msgcat::mc $opts(-label) ] \
+                      -text $opts(-label) \
                       -image $opts(-image) \
                       -itembackground "\#e0e8f0 {}" \