Changeset 3887 for branches/1.3


Ignore:
Timestamp:
Aug 23, 2013 2:21:40 PM (8 years ago)
Author:
gah
Message:

xyresult.tcl:

(Fix) Obey linewidth from "add" method arguments

field3dresult.tcl:

(Bandaid) Check itk_component in "delete" method. This is
part of a bigger problem in sequences where the "delete"
method is getting called in _fixValue before the itk_component
exists. This is possibly because of an error in the constructor
of the field3dresult object.

field.tcl:

(Fix) Set the correct type for DX and OpenDX formats when
VTKVOLUME environment variable is set.

Location:
branches/1.3/gui/scripts
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/field.tcl

    r3877 r3887  
    763763            global env
    764764            if { [info exists env(VTKVOLUME)] } {
    765                 set type "vtkvolume"
    766             } else {
    767                 set type "opendx"
    768             }
     765                set viewer "vtkvolume"
     766                if { $viewer != "" } {
     767                    set _viewer $viewer
     768                }
     769            }
     770            set type "opendx"
    769771        } elseif {[$_field element $cname.dx] != ""} {
    770772            global env
    771773            if { [info exists env(VTKVOLUME)] } {
    772                 set type "vtkvolume"
    773             } else {
    774                 set type "dx"
    775             }
     774                set viewer "vtkvolume"
     775                if { $viewer != "" } {
     776                    set _viewer $viewer
     777                }
     778            }
     779            set type "dx"
    776780        } elseif {[$_field element $cname.ucd] != ""} {
    777781            set type "ucd"
  • branches/1.3/gui/scripts/field3dresult.tcl

    r3747 r3887  
    7171        }
    7272    }
    73     if {"" != $servers && $flags(-mode) != "vtk"} {
     73    if { "" != $servers && $flags(-mode) != "vtk"} {
    7474        switch -- $flags(-mode) {
    7575            "auto" - "nanovis" {
     
    168168# ----------------------------------------------------------------------
    169169itcl::body Rappture::Field3DResult::delete {args} {
    170     eval $itk_component(renderer) delete $args
     170    if { [info exists itk_component(renderer)] } {
     171        eval $itk_component(renderer) delete $args
     172    }
    171173}
    172174
  • branches/1.3/gui/scripts/xyresult.tcl

    r3804 r3887  
    245245        set color $attrs(-color)
    246246    }
     247    if { ![info exists attrs(-width)] } {
     248        set linewidth 1
     249    } else {
     250        set linewidth $attrs(-width)
     251    }
    247252    if { $color == "auto" || $color == "autoreset" } {
    248253        if { $color == "autoreset" } {
     
    275280        set tag $dataobj-$cname
    276281        set elem $_comp2elem($tag)
    277         if { $type == "bar" } {
    278             $g bar configure $elem -foreground $color -background $color \
    279                 -hide no
    280         } else {
    281             $g line configure $elem -color $color -hide no
     282        switch -- $type {
     283            "bar" {
     284                $g bar configure $elem -foreground $color -background $color \
     285                    -hide no
     286            }
     287            "scatter" {
     288                $g line configure $elem -color $color -hide no
     289            }
     290            default {
     291                $g line configure $elem -color $color -hide no \
     292                    -linewidth $linewidth
     293            }
    282294        }
    283295        if { [lsearch $_viewable $elem] < 0 } {
     
    16551667            }
    16561668        } else {
     1669            if 0 {
    16571670            set elem $_comp2elem($tag)
    16581671            switch -- $type {
     1672                "scatter" {
     1673                    $g line configure $elem \
     1674                        -symbol $sym \
     1675                        -pixels $pixels \
     1676                        -linewidth 0
     1677                }
    16591678                "line" {
    16601679                    $g line configure $elem \
     
    16701689                }
    16711690            }
    1672         }
    1673     }
    1674 }
     1691            }
     1692        }
     1693    }
     1694}
Note: See TracChangeset for help on using the changeset viewer.