Changeset 23399d1 in tol for tolbase/lib/wtree

Timestamp:

Nov 17, 2016, 12:57:30 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

b23291d

Parents:

f861956

Message:

Refs #1933
Se suben cambios en blistboxplus para usar wtree en lugar de treeview.
Se adapta wtree para responder a algunos métodos de blistboxplus que se delegaban en treeview.
Pendiente aún de revisión.

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -718 +718 @@
   #    orden en que se describen los elementos de la columna.
   #
+
   method _conf-columns { _ columnsSpec } {
     if { $columnsSpec eq "" } {
@@ -826 +827 @@
   }
 
+  method find { {first first} {last last} } {
+    if { [string match "-*" $first] } {
+      error "no flags allowed!"
+    } else {
+      return [$tree item range $first $last]
+    }
+  }
+  
+  method selection { args } {
+    if { [lindex $args 0] eq "set" } {
+      Tolcon_Trace "selection $args"
+      switch [llength $args] {
+        1 { $tree selection clear all }
+        2 { $tree selection modify [lindex $args 1] all }
+        3 { $tree selection modify [$tree item range [lindex $args 1] [lindex $args 2]] all }
+        default {
+          error "invalid number of arguments"        
+        }        
+      }
+    } elseif { [lindex $args 0] eq "clearall" } {
+      $tree selection clear all
+    }  {
+      eval $tree selection $args
+    }  
+  }
+  
+  method index { args } {
+    error "invalid method index"
+  }
+  
+  method move { item how dest } {
+    Tolcon_Trace "item: $item how: $how dest: $dest"
+    if { $item eq $dest } { return }
+    switch $how {
+      into {
+        $tree item lastchild $dest $item
+      }
+      after {
+        if { $dest eq "" } {
+          $tree item prevsibling $item [$tree item nextsibling $item]
+        } else {
+          $tree item nextsibling $dest $item
+          #$tree item prevsibling $item $dest
+        }
+      }
+      before {
+        if { $dest eq "" } {
+          $tree item nextsibling $item [$tree item prevsibling $item]
+        } else {
+          $tree item prevsibling $dest $item
+          #$tree item nextsibling $item $dest
+        }
+      }
+      default {
+        error "invalid argument 'how', should be: into (child), before or after"
+      }
+    } 
+  }  
+  
   method insert { data args } {
     array set insopt {