Changeset 1512 for trunk


Ignore:
Timestamp:
Jun 12, 2009 5:12:32 PM (15 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/unirect2d.tcl

    r1463 r1512  
    2727    public method values {}
    2828    public method hints {{keyword ""}}
    29     public method components {} {
    30         return $_components;
    31     }
    3229    private method GetString { obj path varName }
    3330    private method GetValue { obj path varName }
    … …  
    4138    private variable _yMin 0
    4239    private variable _yNum 0
    43     private variable _components 1
    4440    private variable _values "";        # BLT vector containing the z-values
    4541    private variable _hints
    … …  
    5652
    5753    set m [$xmlobj element -as object $path]
    58     GetSize $m "components" _components
    5954    GetValue $m "xaxis.min" _xMin
    6055    GetValue $m "xaxis.max" _xMax
    … …  
    8883        }
    8984    }
    90     foreach {key} { components axisorder } {
     85    foreach {key} { axisorder } {
    9186        set str [$field get $cname.$key]
    9287        if {"" != $str} {
    … …  
    124119    lappend data "ymin" $_yMin "ymax" $_yMax "ynum" $_yNum
    125120    lappend data "xmin" $_xMin "ymin" $_yMin "xmax" $_xMax "ymax" $_yMax
    126     lappend data "components" $_components
    127121    foreach key { axisorder xunits yunits units } {
    128122        set hint [hints $key]
Note: See TracChangeset for help on using the changeset viewer.