Ignore:
Timestamp:
Nov 17, 2016, 12:45:40 PM (10 years ago)
Author:
Pedro Gea <pgea@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
88e6fd7
Parents:
606ed76
Message:

Refs #1933
Se prescinden de algunos métodos auxiliares creados en tolinspe para usar wtree/treectrl.
Quedan algunos por revisar.

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/tolinspe__wtree1.tcl

    r606ed76 rceea866  
    44#/////////////////////////////////////////////////////////////////////////////
    55  return [list \
    6     [list {image text} -label Name] \
    7     [list text -label Index] \
    8     [list text -label Grammar] \
    9     [list text -label Reference]
     6    [list {image text} -label Name -tags Name] \
     7    [list text -label Index -tags Index] \
     8    [list text -label Grammar -tags Grammar] \
     9    [list text -label Reference -tags Reference]
    1010  ]
    1111}
    … …  
    2222}
    2323
    24 proc ::TolInspector::LiName         { } { return 0 }
    25 proc ::TolInspector::LiIndex        { } { return 1 }
    26 proc ::TolInspector::LiGrammar      { } { return 2 }
    27 proc ::TolInspector::LiReference    { } { return 3 }
    28 
    2924#/////////////////////////////////////////////////////////////////////////////
    3025proc ::TolInspector::RNodeDef { } {
    3126#/////////////////////////////////////////////////////////////////////////////
    3227  return [list \
    33     [list text -label Index] \
    34     [list text -label Grammar] \
    35     [list {image text} -label Name] \
    36     [list text -label Content] \
    37     [list text -label Description] \
    38     [list text -label Path] \
    39     [list text -label Reference] \
     28    [list text -label Index -tags Index] \
     29    [list text -label Grammar -tags Grammar] \
     30    [list {image text} -label Name -tags Name] \
     31    [list text -label Content -tags Content] \
     32    [list text -label Description -tags Description] \
     33    [list text -label Path -tags Path] \
     34    [list text -label Reference -tags Reference] \
    4035  ]
    4136}
    42 
    43 #/////////////////////////////////////////////////////////////////////////////
    44 proc ::TolInspector::RNode {index grammar icon name content description path reference} {
    45 #/////////////////////////////////////////////////////////////////////////////
    46   return [list \
    47     [list $index] \
    48     [list $grammar] \
    49     [list $icon $name] \
    50     [list $content] \
    51     [list $description] \
    52     [list $path] \
    53     [list $reference] \
    54   ]
    55 }
    56 
    57 proc ::TolInspector::RiIndex        { } { return 0 }
    58 proc ::TolInspector::RiGrammar      { } { return 1 }
    59 proc ::TolInspector::RiName         { } { return 2 }
    60 proc ::TolInspector::RiContent      { } { return 3 }
    61 proc ::TolInspector::RiDescription  { } { return 4 }
    62 proc ::TolInspector::RiPath         { } { return 5 }
    63 proc ::TolInspector::RiReference    { } { return 6 }
    6437
    6538#/////////////////////////////////////////////////////////////////////////////
    … …  
    191164  #? }
    192165 
    193   #@ ::TolInspector::RNode index grammar
    194   #@   icon name content description path reference
    195   #@! set wt_row [::TolInspector::RNode $arguments(index) $grammar \
    196     $icon_grammar $name $data3 $brief_desc $path $tolref] 
    197   #@! set idx [$wt insert $wt_row -at child -relative root]
    198   #@! Las líneas anteriores parecen lentas y se sustituyen por las siguientes:
     166  #@ No se usa el método insert de wtree porque es más lento
    199167  set idx [$wt item create -button 1 -open 0]
    200   $wt item element configure $idx \
    201     [RiIndex] eTXT -text $arguments(index) , \
    202     [RiGrammar] eTXT -text $grammar , \
    203     [RiName] eIMG -image $icon_grammar + eTXT -text $name , \
    204     [RiContent] eTXT -text $data3 , \
    205     [RiDescription] eTXT -text $brief_desc , \
    206     [RiPath] eTXT -text $path , \
    207     [RiReference] eTXT -text $tolref
     168  $wt item image $idx Name $icon_grammar
     169  $wt item text $idx Index $arguments(index) Grammar $grammar \
     170    Name $name Content $data3 Description $brief_desc Path $path Reference $tolref
     171 
    208172  $wt item lastchild root $idx 
    209173 
     174  #@WTREE a mejorar allí
    210175  $wt item element configure $idx \
    211     [RiIndex] eTXT -fill $fcolor , \
    212     [RiName] eTXT -fill $fcolor , \
    213     [RiContent] eTXT -fill $fcolor , \
    214     [RiDescription] eTXT -fill $fcolor , \
    215     [RiPath] eTXT -fill $fcolor
     176    Index eTXT -fill $fcolor , \
     177    Name eTXT -fill $fcolor , \
     178    Content eTXT -fill $fcolor , \
     179    Description eTXT -fill $fcolor , \
     180    Path eTXT -fill $fcolor   
    216181
    217182  incr arguments(index)
    … …  
    264229  #@  + parent_node es usado por InsertSubset para saber dónde insertar
    265230  set arguments(parent_node) $node
    266   set tolReference [$wt_tree item text $node [LiReference]]
     231  set tolReference [$wt_tree item text $node Reference]
    267232 
    268233  if { [llength $tolReference] == 1 } {
    … …  
    281246    #@  + parent_grammar es usado por InsertSubset para abrir o no un nodo
    282247    #@  + parent_tolref es usado por InsertSubset para determinar tolref
    283     set arguments(parent_grammar) [$wt_tree item text $node [LiGrammar]]
     248    set arguments(parent_grammar) [$wt_tree item text $node Grammar]
    284249    set arguments(parent_tolref) $tolReference
    285250    ::tol::forallchild $tolReference ::TolInspector::InsertSubset
    … …  
    453418    #puts [list InsertSubset, indices {lindex $args 5} = $indices]
    454419   
    455 #noaun set obj_ref [lappend [$wt_tree item text $parent_node [LiReference] $indices] ]
     420#noaun set obj_ref [lappend [$wt_tree item text $parent_node Reference $indices] ]
    456421#noaun Tolcon_Trace "Inserto un nodo nuevo. $obj_ref"
    457422    set index [lindex $indices end]
    458     set tolRefe [eval list [$wt_tree item text $parent_node [LiReference]] $index]
     423    set tolRefe [eval list [$wt_tree item text $parent_node Reference] $index]
    459424    set wt_row [::TolInspector::LNode $index $grammar $icon $label $tolRefe]
    460425
    … …  
    466431
    467432    set idnew [ $wt_tree insert $wt_row -at end -relative $parent_node -button $has_button]
    468     $wt_tree item element configure $idnew [LiName] eTXT -fill $fcolor
     433    $wt_tree item element configure $idnew Name eTXT -fill $fcolor
    469434  }
    470435  } msg
    … …  
    491456  }
    492457 
    493   set tolReference [$wt_tree item text $node [LiReference]]
     458  set tolReference [$wt_tree item text $node Reference]
    494459 
    495460  Busy
    … …  
    517482    #@ Argumentos pasados por atributo
    518483    #@  + parent_grammar es usado por InsertItem para saber si es NameBlock
    519     set arguments(parent_grammar) [$wt_tree item text $node [LiGrammar]]
     484    set arguments(parent_grammar) [$wt_tree item text $node Grammar]
    520485    SelectSet $tolReference
    521486  }
    … …  
    660625  set selAnchor [$wt_tree selection get 0]
    661626 
    662   set grammar [$wt_tree item text $selAnchor [LiName] ]
     627  set grammar [$wt_tree item text $selAnchor Name ]
    663628  if { [string compare $grammar "Anything"] } {
    664629    #@ Por aquí si no es Anything
    … …  
    758723  if { ![string length $node] } { return }
    759724  set treeParent [$wt_tree selection get 0]
    760   set treeParent_tolRef [$wt_tree item text $treeParent [LiReference]]
     725  set treeParent_tolRef [$wt_tree item text $treeParent Reference]
    761726  set treeNode -1
    762727  if { [llength $treeParent_tolRef] > 1 } {
    763     set grammar [$wt_vars item text $node [RiGrammar]]
     728    set grammar [$wt_vars item text $node Grammar]
    764729    if {$grammar eq "Set" || $grammar eq "NameBlock"} {
    765730      $wt_tree item expand $treeParent
    766731      #@ Se localiza el nodo seleccionado en el árbol (wt_tree)
    767       set index [$wt_vars item text $node [RiIndex]]     
     732      set index [$wt_vars item text $node Index]     
    768733      foreach node_i [$wt_tree item children $treeParent] {
    769         set index_i [$wt_tree item text $node_i [LiIndex]]
     734        set index_i [$wt_tree item text $node_i Index]
    770735        if { [string equal $index $index_i] } {
    771736          set treeNode $node_i
    … …  
    814779    if { [string length $entry] } {
    815780      # almost one entry of wt_* selected
    816       set name   [$wt item text $entry [RiName]] ;# name of item     
    817       set itemid [$wt item text $entry [RiIndex]] ;# id of item       
    818       set path   [$wt item text $entry [RiPath]] ;# path of file of item
    819       set objRef [$wt item text $entry [RiReference]] ;# info of item
    820       set value [$wt item text $entry [RiContent]]
     781      set name   [$wt item text $entry Name] ;# name of item     
     782      set itemid [$wt item text $entry Index] ;# id of item       
     783      set path   [$wt item text $entry Path] ;# path of file of item
     784      set objRef [$wt item text $entry Reference] ;# info of item
     785      set value  [$wt item text $entry Content]
    821786      if { [string equal \"\n\" $value] } {
    822787        # hasn't value       
    … …  
    825790        set value [string trim $value]
    826791      }
    827       set desc [$wt item text $entry [RiDescription]]
    828       set grammar [$wt item text $entry [RiGrammar]]
    829       set icon [$wt item image $entry [RiName]]
     792      set desc [$wt item text $entry Description]
     793      set grammar [$wt item text $entry Grammar]
     794      set icon [$wt item image $entry Name]
    830795      #(pgea) lista de argumentos que recibe ::TolConsole::OnInfo
    831796      set args [list $icon $grammar $name $value $path $desc $objRef]
Note: See TracChangeset for help on using the changeset viewer.