Changeset 4312

Show
Ignore:
Timestamp:
03/07/12 10:17:54 (7 years ago)
Author:
josp
Message:

refs #1466, backporting solution from trunk: ::AutocorGraph::Create should receive the toltcl's object reference.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • tolp/branches/release_3.1/tolbase/lib/toltk/tolmethods.tcl

    r1798 r4312  
    218218 
    219219  # name 
    220   if {[llength $source] > 1} { 
    221     set nameSerie [lindex [::tol::info variable $source] 1] 
    222   } else { 
    223     set nameSerie $source 
    224   }   
     220  set objRef [ list "Serie" $source ] 
     221  set nameSerie [lindex [::tol::info variable $objRef] 1] 
     222   
    225223  #title 
    226224  if { ![llength $title] } { 
    227     set title "[mc "Autocorrelation graph"]: $nameSerie" 
     225    set title "[mc {Autocorrelation graph}]: $nameSerie" 
    228226  } 
    229227  # create 
     
    237235  set tlf [$tl getframe] 
    238236  # configuration 
    239   ::AutocorGraph::Create $tlf.g $source 
     237  ::AutocorGraph::Create $tlf.g $objRef 
    240238  $tl bind <Control-F4> "$tl kill; break" 
    241239  pack $tlf.g -fill both -expand yes