Changeset ffeacdc in tol for tolbase/lib/byswidget/bmultiselect/bmultiselect.tcl

Timestamp:

Nov 18, 2016, 11:18:15 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

6dc91d2

Parents:

b23291d

Message:

Refs #1933
Mejora en bmultiselect.
Se quitan algunas trazas

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

File:

• tolbase/lib/byswidget/bmultiselect/bmultiselect.tcl (modified) (2 diffs)

tolbase/lib/byswidget/bmultiselect/bmultiselect.tcl

@@ -472 +472 @@
       set last [lindex $indexes end]      
       if { $plus } {
-        set start [$right first]
-        if { $first != $start } {
-          $right move [lindex [$right range [$right first] $first] end-1] \
-                 after $last
-          $right selection clearall
-          $right selection set $first $last
-        }        
+        # hacia arriba
+        if {$first eq [$right item firstchild root]} return
+        foreach index $indexes {
+          $right move $index before {}
+        }
+        #@+ set start [$right first]
+        #@+ if { $first != $start } {
+        #@+   $right move [lindex [$right range [$right first] $first] end-1] after $last
+        #@+   $right selection clearall
+        #@+   $right selection set $first $last
+        #@+ }        
       } else {
         if { $first != 0 } {
@@ -499 +503 @@
     if {$indexes != ""} {
       set first [lindex $indexes 0]
-      set last [lindex $indexes end]      
+      set last [lindex $indexes end]
       if { $plus } {
-        set end [$right last]
-        if { $last != $end } {
-          $right move [lindex [$right find $last] 1] before $first
-          $right selection clearall
-          $right selection set $first $last
-        }    
+        # hacia abajo
+        if {$last eq [$right item lastchild root]} return
+        foreach index [lreverse $indexes] {
+          $right move $index after {}
+        }
+        #@+ set end [$right last]
+        #@+ if { $last != $end } {
+        #@+   $right move [lindex [$right find $last] 1] before $first
+        #@+   $right selection clearall
+        #@+   $right selection set $first $last
+        #@+ }
       } else {
         set end [$right index end]