Changeset 642ac37 in tol for tolbase/lib

Timestamp:

Nov 6, 2008, 5:26:48 PM (18 years ago)

Author:

Christian Paz <cpaz@…>

Branches:

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

Children:

3e755e5

Parents:

0295b9a

Message:

added the option togglehier to avoid toggle hierarchically the marked checkboxes.

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

File:

• tolbase/lib/byswidget/btreeview/btreeview.tcl (modified) (6 diffs)

tolbase/lib/byswidget/btreeview/btreeview.tcl

@@ -35 +35 @@
   # bonselcmd    -> comando a ejecutar cuando se selecciona un nodo
   # bhelptext    -> columna que se muestra como helptext
+  # btogglehier  -> cambiar jerárquicamente si un item está o no seleccionado
 #/////////////////////////////////////////////////////////////////////////////
   variable items_selected
@@ -45 +46 @@
   option -bhelptext 
   option -bmenu
+  option -btogglehier true
   #///////////////////////////////////////////////////////////////////////////
   constructor {args} {
@@ -66 +68 @@
     $self configure -hideroot yes -linewidth 0 -activeicons "" \
       -selectbackground gray90 -selectforeground black \
-      -highlightthickness 1 -borderwidth 0 -selectborderwidth 0 \
+      -highlightthickness 1 -borderwidth 1 -selectborderwidth 1 \
       -font $toltk_options(fonts,Label) -icons {}
 
@@ -295 +297 @@
     array set aryData [$self entry cget $index -data]
     set state $aryData(state)
+        
+        set ctogglehier [$self cget -btogglehier]
 
     if { [string equal $state NSE] } return
@@ -301 +305 @@
     if { [string equal $state ON] } {
       $self _SetNodeState $index OFF
-      $self ToggleUp $parent_idx OFF ON
-      $self entry configure $index -data [list childsON 0 childsMED 0]
-      foreach it [$self entry children $index] {
-        $self ToggleDown $it OFF
-      }
+          if $ctogglehier {
+        $self ToggleUp $parent_idx OFF ON
+        $self entry configure $index -data [list childsON 0 childsMED 0]
+        foreach it [$self entry children $index] {
+          $self ToggleDown $it OFF
+        }
+          }
     } else {
       $self _SetNodeState $index ON
-      $self ToggleUp $parent_idx ON $state
-      $self entry configure $index\
-           -data [list childsON [$self entry size $index] childsMED 0]
-      foreach it [$self entry children $index] {
-        $self ToggleDown $it ON
-      }
+          if $ctogglehier {
+        $self ToggleUp $parent_idx ON $state
+        $self entry configure $index\
+             -data [list childsON [$self entry size $index] childsMED 0]
+        foreach it [$self entry children $index] {
+          $self ToggleDown $it ON
+        }
+          }
     }
   }
@@ -500 +508 @@
     .top.tf1.f.btv bColumnInsert end Type
     #RellenaBTreeView root [file join [info dir script] testdir]
-    RellenaBTreeView root "./byswidget/btreeview/testdir"
+    #RellenaBTreeView root "./byswidget/btreeview/testdir" [jym: se cambia para que no falle]
+    RellenaBTreeView root "c:/UnxUtils"
     grid .top.tf1.f.btv -row 0 -column 0 -sticky new
     grid columnconfigure .top.tf1.f 0 -weight 1