Changeset f738c05 in tol for tolbase

Timestamp:

Nov 24, 2016, 12:09:24 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

0f71b65

Parents:

cc64b09

Message:

Refs #1933
Se revisa el widget blistboxplus.
Se eliminan las barras propias (ya están las de wtree).
Se elimina código antiguo comentado.

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

File:

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

tolbase/lib/byswidget/blistboxplus/blistboxplus.tcl

@@ -52 +52 @@
 # listbox -> el treeview que hace de listbox propiamente
 # menu -> el menu contextual del listbox
-# xbar -> horizontal scrollbar
-# ybar -> vertical scrollbar
 # afterTime -> tiempo desde que se pulso la ultima tecla
 # listKey -> lista de teclas pulsadas
@@ -77 +75 @@
   option -iniconfig ""
   
-  #@O treeview options
-  option -exportselection false
+  #@O! (treeview options) Se introducen para evitar errores
+  option -exportselection false ;# unused
   option -linewidth 1 ;# unused
   option -selectbackground "unused"
@@ -84 +82 @@
   variable _listbox
   variable menu
-  variable xbar
-  variable ybar
   
   variable afterTime 0
@@ -106 +102 @@
 
     if {1} {
-      #@T install _listbox using ::blt::treeview $win.lb -hideroot yes \
-          -activeicons "" -icons {} -selectmode multiple \
-          -selectbackground grey -selectforeground white \
-          -highlightthickness 0 -borderwidth 1 -selectborderwidth 1 \
-          -nofocusselectbackground grey -font {Arial 9} -flat yes
       install _listbox using ::wtree $win.lb -table 0 -filter no \
         -background white -showroot 0 -selectmode extended -showheader 1 \
@@ -120 +111 @@
         -highlightbackground gray75 -highlightcolor black \
         -highlightthickness 0 -font {Arial 9}]
-      #@T set _listbox [::blt::treeview $win.lb -hideroot yes \
-                        -activeicons "" -icons {} -selectmode multiple \
-                        -selectbackground grey -selectforeground white \
-                        -highlightthickness 0 -borderwidth 1 \
-                        -selectborderwidth 1 \
-                        -nofocusselectbackground grey -font {Arial 9} -flat yes]
     }
 
@@ -131 +116 @@
 
     install menu using menu $win.m -tearoff 0
-    #@!scroll install xbar using scrollbar $win.sbh -orient horizontal \
-                                           -command "$win xview"
-    #@!scroll install ybar using scrollbar $win.sbv -orient vertical \
-                                           -command "$win yview"
 
     #bindtags is modified to make possible to associate binds to self
-    $_listbox configure -bindtags [list $self Blistboxplus]
-
-    #@T! $_listbox style  configure text     -bg white
-    #@T! to do
-
-    #@T! $_listbox column configure treeView -bg white
-    #@T! to do    
+    $_listbox configure -bindtags [list $self Blistboxplus] 
 
     $self configure -readonly [from args -readonly]
@@ -150 +125 @@
     # Apply all arguments given:
     $self configurelist $args
-
-    #@T! $_listbox configure -xscrollcommand "$xbar set"
-    #@T! $_listbox configure -yscrollcommand "$ybar set"
-    #@T! to do    
+   
     if { $options(-parent) eq "" } {
       $self configure -parent [winfo parent $win]
     }
     
-    # bind
-    #@!bind
-    #@T! $_listbox bind all <KeyPress> +[list $self _OnKeyPress %A]
-    #@T! to do    
+    # bind  
     bind $_listbox <KeyPress> +[list $self _OnKeyPress %A]
     
@@ -169 +138 @@
     #pack
     grid $_listbox -row 0 -column 0 -sticky news
-    #@!scroll grid $ybar -row 0 -column 1 -sticky ns
-    #@!scroll grid $xbar -row 1 -column 0 -sticky ew
     grid columnconfigure $self 0 -weight 1
     grid rowconfigure    $self 0 -weight 1
 
-    #@!scroll ::autoscroll::autoscroll $ybar
-    #@!scroll ::autoscroll::autoscroll $xbar
     debug_msg "voy a pillarte: antes de _ReadIni"
     $self _ReadIni 
@@ -203 +168 @@
   onconfigure -cols { lst } {
     set options(-cols) $lst
-    #@T! foreach col [$self column names] {
-    #@T!   $_listbox column delete $col
-    #@T! }
+
     $_listbox column delete all
-    #@T! foreach col $options(-cols) {
-    #@T!   $_listbox column insert end $col -justify left
-    #@T!   $_listbox column configure $col -command "$self _SortByColumn [list $col]" -titleborderwidth 1
-    #@T! }
     
     set lstx [list [list image -label Icon -tags Icon] ]
@@ -218 +177 @@
       lappend lstx $colx
     }
-    #@! Tolcon_Trace "lstx $lstx"
     $_listbox configure -columns $lstx
     
     if { $options(-icon) == "" } {
-      #@T! $_listbox column configure "BLT TreeView $_listbox" -hide 1
       $_listbox column configure Icon -visible 0
     } else {
-      #@T! $_listbox column configure "BLT TreeView $_listbox" -hide 0
       $_listbox column configure Icon -visible 1
     }
     
-    #@T adds
     $_listbox column configure first -expand yes -weight 1
     $_listbox column configure all -itembackground ""    
@@ -238 +193 @@
     foreach col [$self column names] {
       if { "-1" eq [lsearch $options(-hiddencols) $col] } {
-        #@T! $_listbox column configure $col -hide 0
         $_listbox column configure $col -visible 1
       } else {
-        #@T! $_listbox column configure $col -hide 1
         $_listbox column configure $col -visible 0
       }
@@ -249 +202 @@
   onconfigure -showtitles { bool } {
     set options(-showtitles) $bool
-    #@O $_listbox configure -showtitles $bool
-    $_listbox configure -showheader $bool    
-    #@O! $_listbox show
+    $_listbox configure -showheader $bool
   }
 
@@ -257 +208 @@
     set options(-icon) $icon
     if { $icon != "" } {
-      #@T! $_listbox column configure "BLT TreeView $_listbox" -min 16 -max 16 \
-      #@T!   -hide 0 -titleborderwidth 1
-      #@T! $_listbox configure -icons [list [Bitmap::get $icon] [Bitmap::get $icon]]
       $_listbox column configure Icon -minwidth 16 -maxwidth 16 -visible 1 ;# -titleborderwidth 1
       
     } else {
-      #@T! $_listbox column configure "BLT TreeView $_listbox" -hide 1
       $_listbox column configure Icon -visible 0
     }
@@ -273 +220 @@
     set cols [$self column names]
     foreach col $cols {
-     #@O $self column configure $col -title [mc [lindex $titles $c] ]
      $_listbox column configure $col -text [mc [lindex $titles $c] ]
      incr c 1     
@@ -359 +305 @@
       }
     } elseif { [lindex $args 1] eq "auto" } { 
-      #@O! Nothing to do ??
+      #@O! Llamado desde barima. Hace falta hacer algo?
       return 
     } else {
@@ -668 +614 @@
   #
   #///////////////////////////////////////////////////////////////////////////
-
-    #@O!
     return [$_listbox SortbyColumn $_listbox $col]
-  
-    set numofel [$self size]
-    set lst [list]
-    set fulllst [$self get]
-
-    foreach i $fulllst {
-      lappend lst [$self get $i ]
-    }
-# lst:    contains a list of values
-    set coln 0
-    set cols [$self cget -cols]
-    set hidcols [$self cget -hiddencols]
-    for { set j 0 } { $j < [llength $cols] } { incr j } {
-      if {[lindex $cols $j] eq $col} {
-        set coln $j
-      }
-    }
-# coln:   contains the index of the column to be ordered
-    set lst [lsort -index $coln $lst]
-    $self clear
-    for { set i 0 } { $i < $numofel } { incr i } {
-      set el [lindex $lst $i ]
-      $self insert end $el
-    }
-
   }