Changeset 606ed76 in tol for tolbase/lib/wtree/wtree.tcl

Timestamp:

Nov 17, 2016, 12:40:36 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

ceea866

Parents:

6d788c2

Message:

Se eliminan espacios en blanco al final de línea.

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

File:

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

tolbase/lib/wtree/wtree.tcl

@@ -8 +8 @@
 package require snit
 
-# 
+#
 # TODO:
 #
@@ -58 +58 @@
  # pares indicando para cada tipo el valor de la propiedad
 }
-  
+
 snit::widget wtree {
   typevariable SystemButtonFace
@@ -79 +79 @@
   option -columnfilter \
       -default "" -configuremethod "_conf-columnfilter"
-  
+
   variable tree
   variable vscrollbar
@@ -109 +109 @@
   delegate option -bd to hull
   delegate option -relief to hull
-  
+
   typeconstructor {
-    
+
     set thisPlatform $::tcl_platform(platform)
     set w [ listbox .___lb___ ]
@@ -156 +156 @@
       }
     }
-    
+
     if { [ lsearch -exact [ image names ] folder-closed ] == -1 } {
       image create photo folder-closed -data {
@@ -191 +191 @@
       #lassign $id where item arg1 arg2
       foreach  {where item arg1 arg2} $id break
-      
+
       if {[llength [$w item descendants $item]] == 0} {
         $self notify generate <<ItemSelected>> [list T $w c $item]
@@ -197 +197 @@
         $w item toggle $item
       }
-      
+
     } else {
       TreeCtrl::DoubleButton1 $w $x $y
@@ -211 +211 @@
     }
   }
-  
+
   method Button3 {w x y rootX rootY} {
 
@@ -225 +225 @@
     if {[lindex $id 0] == "item"} {
       foreach {where item arg1 arg2} $id break
-      
+
       if {[$w selection includes $item]==0} {
         $w selection clear
@@ -234 +234 @@
     tk_popup $cmenu $rootX $rootY
   }
-  
+
   method KeyPressEscape {} {
 
     $self notify generate <<Escape>>
   }
-  
+
   method SortbyColumn {t column} {
 
@@ -291 +291 @@
     grid columnconfigure $win.frameFilter.fentry 0 -weight 1
     grid remove $widgets(filter,bcancel)
-    
+
     bind $widgets(filter,entry) <Key-Return> [ mymethod _applyFilter ]
     grid $win.frameFilter.l -row 0 -column 1 -sticky "e"
@@ -307 +307 @@
     grid rowconfigure $win.frameTree 0 -weight 1
     grid columnconfigure $win.frameTree 0 -weight 1
-    
+
     install tree as treectrl $win.frameTree.t \
         -highlightthickness 0 -borderwidth 0 \
@@ -323 +323 @@
     $tree notify install <Edit-end>
     $tree notify install <Edit-accept>
-    
+
     $tree notify bind $tree <Edit-begin> \
         [ mymethod EditCallback begin %I %C %E %t ]
@@ -330 +330 @@
     $tree notify bind $tree <Edit-accept>  \
         [ mymethod EditCallback accept %I %C %E %t ]
-    
+
     bind $tree <ButtonPress-1> [ mymethod OnButtonPress1 %x %y ]
-    bind $tree <Control-ButtonPress-1> { } 
-    bind $tree <Shift-ButtonPress-1> { } 
+    bind $tree <Control-ButtonPress-1> { }
+    bind $tree <Shift-ButtonPress-1> { }
 
     set height [font metrics [$tree cget -font] -linespace]
@@ -348 +348 @@
                                       {selected focus}] ]
     set elements(check) [ $tree element create eCHK window ]
-    
+
     set elements(rect) [ $tree element create eRECT rect \
                              -showfocus yes -open ew \
@@ -377 +377 @@
 
     focus $tree
-    
+
     $self _configure_bindings
     $self _conf-columns -columns $options(-columns)
@@ -387 +387 @@
     #return $win
   }
-  
+
   method AcceptEdit { } {
     ::TreeCtrl::EditClose $tree entry 1 0
@@ -509 +509 @@
     $self _setNormalCursor
   }
- 
+
   method _filterNodesMatching { } {
     if { [ llength $listFilterOff ] } {
@@ -532 +532 @@
     foreach n $nodes {
       # filtro el nodo
-      
+
       #esto es para el filtrado automatico incremental
       if { $breakFilter } {
@@ -542 +542 @@
       $self _filterNodeSet [ $tree item children $n ] \
           $positiveWords $negativeRegExp
-      
+
       if { 0 } {
       if { [ $self _filterNode $n $positiveWords $negativeRegExp ] } {
@@ -569 +569 @@
     # hago match, luego hago algo mas sofisticado con regexp
     # set visible [ string match "*${text}*" $itemText ]
-    if { [ string length $negativeRegExp ] && 
+    if { [ string length $negativeRegExp ] &&
          ![ regexp -nocase $negativeRegExp $itemText ] } {
       # itemText contiene alguna de las palabra prohibidas
@@ -625 +625 @@
     }
   }
-  
+
   method _scheduleFilter { } {
     after cancel $idIdleFilter
@@ -632 +632 @@
 
   method _configure_bindings { } {
-    
+
     bind $tree <Double-ButtonPress-1> "[mymethod DoubleButton1 %W %x %y] ; break"
     bind $tree <Return> "[mymethod KeyPressReturn %W] ; break"
@@ -639 +639 @@
 
     bind $tree <Escape> "[mymethod KeyPressEscape] ; break"
-    
+
     $tree notify bind $tree <Header-invoke> [mymethod SortbyColumn %W %C]
 
     $tree notify bind $vscrollbar <Scroll-y> { %W set %l %u }
     bind $vscrollbar <ButtonPress-1> [list focus $tree]
-    
+
     $tree notify bind $hscrollbar <Scroll-x> { %W set %l %u }
     bind $hscrollbar <ButtonPress-1> [list focus $tree]
-    
+
     ::autoscroll::autoscroll $vscrollbar
     ::autoscroll::autoscroll $hscrollbar
@@ -664 +664 @@
   method _conf-buttonstyle { _ bs } {
     set valid_bstyles [ array names wtree::ButtonImageConf ]
-    if { [ lsearch $valid_bstyles $bs ] == -1 } { 
+    if { [ lsearch $valid_bstyles $bs ] == -1 } {
       error "invalid button style $bs should be one of $valid_bstyles"
     } else {
@@ -673 +673 @@
 
   method _conf-contextmenu { _ cmenu } {
-    set options(-contextmenu) $cmenu 
+    set options(-contextmenu) $cmenu
   }
 
   method _conf-filter { _ value } {
     if { [ string is boolean $value ] } {
-      if { ( $options(-filter)  && $value ) || 
+      if { ( $options(-filter)  && $value ) ||
            ( !$options(-filter) && !$value ) } {
         return
@@ -705 +705 @@
   #
   # columnsSpec es una lista de "columnas" y una columna puede ser
-  # 
+  #
   #  - un unico elemento con valor: image, text o check
   #
@@ -744 +744 @@
                       -image $opts(-image) \
                       -itembackground "\#e0e8f0 {}" \
-                      -tags $opts(-tags) ]                     
+                      -tags $opts(-tags) ]
       # "
       set column_info($idx,ID) $colID
@@ -902 +902 @@
     } else {
       return [ list $elements($etype) $def_prop($etype) "" ]
-    } 
+    }
   }
 
@@ -912 +912 @@
 
   method OnButtonPress1 { x y } {
-    
+
     set treeInfo [ $tree identify $x $y ]
     if { $treeInfo eq "" } {
@@ -918 +918 @@
       return
     }
-    
+
     if { [ llength $treeInfo ] != 6 } {
       return
     }
-    
+
     foreach { item I column C elem E } $treeInfo { }
-    
+
     if { $item == "item" && \
              $column == "column" && \
@@ -934 +934 @@
       set idx_info $column_info(MAPIDX,$C)
 
-      if { $column_info($idx_info,-editable) && 
+      if { $column_info($idx_info,-editable) &&
            ( $E eq "eTXT" || $E eq "eRECT" ) } {
         set exists [winfo exists $tree.entry]
@@ -958 +958 @@
     }
   }
-  
+
   proc test_GetTextContents { T item } {
     set textDump ""
@@ -1000 +1000 @@
       grid $w.fsearch -row 0 -column 0 -sticky "snew"
     }
-    
+
     set T [ wtree $w.t -table $istable -filter yes -buttonstyle mac \
                 -columns [ list \
                                { {image text} -tags ID   -label Identifier } \
                                { text -tags DESC -label Description -editable yes } ] ]
-    
+
     $T notify bind $T <Expand-before> {
       #puts "before openning %I"
@@ -1023 +1023 @@
       trace add    variable ::wtreeSearch write "::wtree::test_ListenSearch $T"
     }
-    
+
     set bugValue {
 Serie AlgGetData(
@@ -1053 +1053 @@
           %T CancelEdit
         } ]
-    grid $w.btn1 -row 1 -column 0 
-    grid $w.btn2 -row 1 -column 1 
+    grid $w.btn1 -row 1 -column 0
+    grid $w.btn2 -row 1 -column 1
     grid rowconfigure $w 1 -weight 1
-    grid columnconfigure $w 0 -weight 1 
-    
+    grid columnconfigure $w 0 -weight 1
+
     for { set r 0 } { $r < 100 } { incr r } {
       $T insert [list  [list folder-open "node $r"] [ list "Description for node $r" ] ]