Changeset dd6e916 in tol for tolbase/lib/toltk


Ignore:
Timestamp:
Mar 29, 2011, 9:54:59 AM (16 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
b0b1ed5
Parents:
fe54d8d
Message:

refs #704, class info is shown inside a widget with syntax syntax highlight

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

Location:
tolbase/lib/toltk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/tolbase.tcl

    rfe54d8d rdd6e916  
    138138  set sw2 [ScrolledWindow $w_tabset.sw2 -auto both]
    139139  set sw3 [ScrolledWindow $w_tabset.sw3 -auto both]
     140  set widgets(tabset,info) $sw3
    140141   
    141142  $w_tabset insert end \
    … …  
    173174     
    174175  # INFO CONSOLE COMPONENT
    175   set widgets(info) $sw3.info
     176  set widgets(info,text) $sw3.info1
    176177  #(pgea) se elimina  -wrap word
    177   set w_info [text $widgets(info) -cursor ""\
     178  set w_info [text $widgets(info,text) -cursor ""\
    178179     -state disabled -font $data(font,info)]
    179180  $sw3 setwidget $w_info
    180181  ::BayesText::MenuCreate $w_info
    181    
     182  set widgets(info,hltext) $sw3.info2
     183  ::BayesText::CreateHLText $widgets(info,hltext) tol -font $data(font,eval) \
     184      -state disabled
     185  set widgets(info) $widgets(info,text)
     186
    182187  set def_font [$w_info cget -font]
    183188  if { [lsearch -exact [font names] fnBold] == -1 } {
    … …  
    438443  variable widgets
    439444 
    440   set w_info $widgets(info)
    441445  set w_tabset $widgets(tabset)
    442   $w_info configure -state normal
    443   $w_info delete 1.0 end
    444   switch [llength $args] {
    445     0 {
    446     }
     446  foreach type { text hltext } {
     447    $widgets(info,$type) configure -state normal
     448    $widgets(info,$type) delete 1.0 end
     449  }
     450  set ll [llength $args]
     451  switch $ll {
     452    0 -
    447453    1 {
    448       #$w_info configure -wrap word
    449       $w_info insert end [lindex $args 0]
    450       $w_tabset select 2
     454      $widgets(tabset,info) setwidget $widgets(info,text)
     455      if { $ll == 1 } {
     456        #$w_info configure -wrap word
     457        $widgets(tabset,info) setwidget $widgets(info,text)
     458        $widgets(info,text) insert end [lindex $args 0]
     459      }
     460      $widgets(tabset) select 2
     461      $widgets(info,text) configure -state disabled
    451462    }
    452463    default {
    453       #(pgea) se modifica el mecanismo de escritura de la información
    454       #(pgea) en tolbase incluyendo la información de instancia
     464      #(pgea) se modifica el mecanismo de escritura de la informacion
     465      #(pgea) en tolbase incluyendo la informacion de instancia
    455466      proc w_insert {w_info w_text w_token w_tag} {
    456467        set idx_start [$w_info index "end -1 chars"]
    … …  
    460471        $w_info tag add $w_tag $idx_start $idx_end
    461472      }
     473
    462474      #$w_info configure -wrap none
    463475      foreach {icon grammar name content path desc objRef} $args {}
     476      set w_info $widgets(info,text)
     477
     478      if { $grammar eq "Anything" } {
     479        if { [ regexp {/+\sClass\s} $content ] } {
     480          $widgets(tabset,info) setwidget $widgets(info,hltext)
     481          $widgets(info,hltext) insert end $content
     482          $widgets(tabset) select 2
     483          $widgets(info,hltext) configure -state disabled
     484          return
     485        }
     486      }
     487
     488      $widgets(tabset,info) setwidget $widgets(info,text)
    464489      #(pgea) Si es NameBlock busco su clase e información de instancia
    465490      if {$grammar eq "NameBlock" && [string length $objRef]} {
    … …  
    526551      $w_info tag configure tagLabelB -font fnBold -foreground navy
    527552      $w_tabset select 2
    528     }
    529   }
    530   $w_info configure -state disabled
     553      $w_info configure -state disabled
     554    }
     555  }
    531556}
    532557

  • tolbase/lib/toltk/tolinspe.tcl

    rfe54d8d rdd6e916  
    120120  variable node_prefix
    121121
     122  variable iterSet ""
    122123  variable knownReference ""
    123124
    … …  
    734735  #upvar \#0 ::TolTk::Images Images
    735736
     737  if { $knownReference eq "" } {
     738    set objRef $iterSet
     739    lappend objRef $item_id
     740  } else {
     741    puts "knownReference = $knownReference"
     742    set objRef $knownReference
     743  }
     744
    736745  if { $gra_parent eq "NameBlock" } {
    737746    array set info_member [ FilterNameBlockMember $name ]
    … …  
    791800      set icon_grammar [SubTypeImage [lindex $args 2]]
    792801    } else {
    793       if { $knownReference eq "" } {
    794         set objRef $iterSet
    795         lappend objRef $item_id
    796       } else {
    797         puts "knownReference = $knownReference"
    798         set objRef $knownReference
    799       }
    800802      #(pgea) se reemplaza el valor de la referencia en data
    801803      set data [lreplace $data 9 9 $objRef] 
    802       #(pgea) se utiliza la información de instancia
     804      #(pgea) se utiliza la informacon de instancia
    803805      set classOf [Tol_ClassOfFromReference $objRef]
    804806      set insCont [Tol_InstanceContentFromReference $objRef]
    … …  
    811813      set icon_grammar [ ::ImageManager::getIconForInstance $objAddress ]
    812814    }
     815  } elseif { $grammar eq "Anything" } {
     816    set item "item$item_id"
     817    set anyType [ tol::info anything $objRef ]
     818    set icon_grammar [ ::Bitmap::get $anyType ]
    813819  } else {
    814820    set item "item$item_id"
    815     set icon_grammar [::Bitmap::get $grammar]
     821    set icon_grammar [ ::Bitmap::get $grammar ]
    816822  }
    817823  set idnew [$tree insert 0 -label $item]
    … …  
    15051511
    15061512  ClearHiertables
    1507 #(pgea) se quita la línea que oculta la columna del índice y que
     1513#(pgea) se quita la linea que oculta la columna del indice y que
    15081514#(pgea) el procedimimento anterior ClearHiertables muestra
    15091515#  $ht_vars column  configure Index -hide yes
    … …  
    18281834      set itemid $aryData(Index)              ;# id of item
    18291835      set path   $aryData(Path)               ;# path of file of item
    1830       #(pgea) se añade la propiedad Reference
     1836      #(pgea) se anyade la propiedad Reference
    18311837      set objRef $aryData(Reference)          ;# info of item
    18321838      set full_data $item_data($itemid) ;# {value} {desc} {grammar}       
    … …  
    18601866
    18611867#/////////////////////////////////////////////////////////////////////////////
    1862 #(pgea) ¿se usa?
     1868#(pgea) se usa?
    18631869proc ::TolInspector::FillText { ht entry } {
    18641870#/////////////////////////////////////////////////////////////////////////////
    … …  
    19901996}
    19911997
    1992 #(pgea) nueva función para obtener la información de instancia
     1998#(pgea) nueva funcion para obtener la informacion de instancia
    19931999proc Tol_InstanceInfo { obj_addr } {
    19942000  tol::console eval [ string map [ list %A $obj_addr ] {
    … …  
    20052011}
    20062012
    2007 #(pgea) nueva función para obtener la información de instancia
     2013#(pgea) nueva funcion para obtener la informacion de instancia
    20082014proc Tol_InstanceInfoFromReference { objReference } {
    20092015  set addr [ ::tol::info address $objReference ]
    … …  
    20112017}
    20122018
    2013 #(pgea) nueva función para obtener el contenido de la instancia
     2019#(pgea) nueva funcion para obtener el contenido de la instancia
    20142020proc Tol_InstanceContent { obj_addr } {
    20152021  tol::console eval [ string map [ list %A $obj_addr ] {
    … …  
    20262032}
    20272033
    2028 #(pgea) nueva función para obtener el contenido de la instancia
     2034#(pgea) nueva funcion para obtener el contenido de la instancia
    20292035proc Tol_InstanceContentFromReference { objReference } {
    20302036  set addr [ ::tol::info address $objReference ]
Note: See TracChangeset for help on using the changeset viewer.