Changeset cc64b09 in tol for tolbase/lib/byswidget/blistboxplus/blistboxplus.tcl

Timestamp:

Nov 24, 2016, 11:58:38 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

f738c05

Parents:

6dc91d2

Message:

Refs #1933
Se revisan los binds respecto a wtree y su treectrl.
Se quitan los métodos específicos para la creación de columnas e inserción de nodos que quedaban en tolinspe.
Se añade un update del nodo de paquetes para que se actualice ante un "require".
Se revisan los métodos de botón derecho para que aparezcan sólo sobre los objetos seleccionados.
Se añade un método a wtree para gestionar el color de todas las columnas de un nodo.
Se añaden las columnas al root de wtree.

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

File:

• tolbase/lib/byswidget/blistboxplus/blistboxplus.tcl (modified) (10 diffs)

tolbase/lib/byswidget/blistboxplus/blistboxplus.tcl

@@ -159 +159 @@
     
     # bind
+    #@!bind
     #@T! $_listbox bind all <KeyPress> +[list $self _OnKeyPress %A]
     #@T! to do    
+    bind $_listbox <KeyPress> +[list $self _OnKeyPress %A]
     
     $self configure -nomenu [from args -nomenu]
@@ -429 +431 @@
     bind $_listbox <Shift-End>          "$self addAllNext"
     bind $_listbox <Button-1>           +[list focus -force %W]    
-  }
-
-  #@//////////////////////////////////////////////////////////////////////////
-  method bind { args } {
-  #
-  # PURPOSE: modifies a particular case of bind
-  #
-  #///////////////////////////////////////////////////////////////////////////
-    if { [lindex $args 1] eq "<Selection>" } {
-      #@T no se usa
-      return [eval $_listbox notify bind $args]
-    } else {
-      return [bind $_listbox.frameTree.t [lindex $args 1] [lindex $args 2]]
-    }
   }
    
@@ -887 +875 @@
         return $result
       } else {
-        #@T! return [eval $_listbox curselection]
         return [$self curselection]
       }
@@ -916 +903 @@
         foreach dats $args {
           set datos [list [lindex $cols 0] $dats]
-          #@T! $_listbox insert $pos $currentId -data $datos
+          #@ Crea y completa los datos de un nodo
           set node [$_listbox item create -parent root -button 0 -open 0]
           eval $_listbox item text $node $datos
@@ -934 +921 @@
             incr i
           } 
-          #@T! $_listbox insert $pos $currentId -data $datos
-          set node [$_listbox item create -parent root -button 0 -open 0] ;# -parent $pos
+          #@ Crea y completa los datos de un nodo
+          set node [$_listbox item create -parent root -button 0 -open 0]
           eval $_listbox item text $node $datos
           if { $options(-icon) != "" } {
@@ -970 +957 @@
   #///////////////////////////////////////////////////////////////////////////
     if { "-1" eq [lsearch $args 0] } {
-      #@T! eval $_listbox delete $args
       eval $_listbox item delete $args
     } else {
@@ -997 +983 @@
   #///////////////////////////////////////////////////////////////////////////
     if { $ids eq "" } { 
-      #@T! return [lrange [$self find] 1 end]
       set items [$_listbox item children root]
-      Tolcon_Trace "items $items"
-      return $items  ;#??
+      return $items
     }
   
@@ -1010 +994 @@
 
     foreach id $ids {
-    
-      set elem {}
-    
-      #@T! set data [$_listbox entry cget $id -data]    
-      #@T! foreach col $cols {
-      #@T!   set inx [lsearch $data $col]
-      #@T!   if { "-1" ne $inx } {
-      #@T!     incr inx
-      #@T!     lappend elem [lindex $data $inx]
-      #@T!   }
-      #@T! }
-      
+      set elem {}   
       foreach col $cols {
         lappend elem [$_listbox item text $id $col]
       }
-      
       lappend result $elem
     }
@@ -1032 +1004 @@
       return [lindex $result 0] 
     }
-    Tolcon_Trace "get result: $result"    
+   
     return $result
   }
@@ -1057 +1029 @@
       incr i
     }
-    #@T! return [$_listbox entry configure $id -data $datos]
     return [eval $_listbox item text $id $datos]
   }