Changeset e4cddd7 in tol for tolbase/lib/toltk


Ignore:
Timestamp:
Mar 7, 2012, 9:17:23 AM (15 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
9c16fe1
Parents:
912aabe
Message:

fixes #1466, ::AutocorGraph::Create should receive the toltcl's object reference.

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/tolmethods.tcl

    r912aabe re4cddd7  
    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
Note: See TracChangeset for help on using the changeset viewer.