Changeset 2616


Ignore:
Timestamp:
Oct 13, 2011 7:27:05 AM (9 years ago)
Author:
gah
Message:
 
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/field.tcl

    r2606 r2616  
    3939    protected method _getValue {expr}
    4040
    41     private variable _xmlobj ""  ;# ref to XML obj with device data
    42 
    43     private variable _units ""   ;# system of units for this field
     41    private variable _xmlobj ""  ;      # ref to XML obj with device data
     42    private variable _path "";          # Path of this object in the XML
     43    private variable _units ""   ;      # system of units for this field
    4444    private variable _limits     ;# maps box name => {z0 z1} limits
    4545    private variable _zmax 0     ;# length of the device
     
    6969    }
    7070    set _xmlobj $xmlobj
     71    set _path $path
    7172    set _field [$xmlobj element -as object $path]
    7273    set _units [$_field get units]
     
    521522        }
    522523    }
    523 
    524     # to be compatible with curve objects
    525     set hints(xlabel) "Position"
    526 
     524    # Set tool and path hints
     525    set hints(tool) [$_xmlobj get tool.name]
     526    set hints(path) $_path
     527    if 0 {
     528        # to be compatible with curve objects
     529        set hints(xlabel) "Position"
     530    }
    527531    if {[info exists hints(group)] && [info exists hints(label)]} {
    528532        # pop-up help for each curve
  • trunk/gui/scripts/visviewer.tcl

    r2579 r2616  
    228228        fconfigure $_sid -translation binary -encoding binary
    229229       
    230         # Read back a reconnection order
     230        # Read back the server identification string.
    231231        if { [gets $_sid data] <= 0 } {
    232232            error "reading from server"
  • trunk/gui/scripts/vtkstreamlinesviewer.tcl

    r2613 r2616  
    13931393            }
    13941394            SendCmd "cutplane axis $axis $bool"
    1395             SendCmd "cutplane colormode $_colorMode"
    13961395        }
    13971396        "cutplane-xposition" - "cutplane-yposition" - "cutplane-zposition" {
     
    24632462    }
    24642463    SendCmd "cutplane add $tag"
    2465     SendCmd "cutplane colormode $_colorMode $tag"
    24662464    SendCmd "cutplane edges 0 $tag"
    24672465    SendCmd "cutplane wireframe 0 $tag"
  • trunk/gui/scripts/vtkviewer.tcl

    r2547 r2616  
    13891389            set reader [vtkDataSetReader $tag-xvtkDataSetReader]
    13901390            $reader SetFileName $tmpfile
    1391             $reader ReadFromInputStringOn
    13921391            $reader ReadAllNormalsOn
    13931392            $reader ReadAllScalarsOn
     
    14161415            rename $output ""
    14171416            rename $reader ""
    1418             rename $arr ""
    14191417            file delete $tmpfile
    14201418        }
  • trunk/lang/tcl/scripts/library.tcl

    r2197 r2616  
     1
    12# ----------------------------------------------------------------------
    23#  COMPONENT: library - provides access to the XML library
Note: See TracChangeset for help on using the changeset viewer.