Ignore:
Timestamp:
Apr 17, 2015 9:55:44 PM (6 years ago)
Author:
ldelgass
Message:

Remove $this- prefix from view settings in nanovis viewer

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/1.3/gui/scripts/nanovisviewer.tcl

    r5267 r5268  
    210210
    211211    array set _settings [subst {
    212         $this-qw                $_view(-qw)
    213         $this-qx                $_view(-qx)
    214         $this-qy                $_view(-qy)
    215         $this-qz                $_view(-qz)
    216         $this-zoom              $_view(-zoom)
    217         $this-xpan              $_view(-xpan)
    218         $this-ypan              $_view(-ypan)
     212        -qw                     $_view(-qw)
     213        -qx                     $_view(-qx)
     214        -qy                     $_view(-qy)
     215        -qz                     $_view(-qz)
     216        -xpan                   $_view(-xpan)
     217        -ypan                   $_view(-ypan)
     218        -zoom                   $_view(-zoom)
    219219        $this-volume            1
    220220        $this-xcutplane         0
    … …  
    935935        # Reset the camera and other view parameters
    936936        #
    937         set _settings($this-qw)    $_view(-qw)
    938         set _settings($this-qx)    $_view(-qx)
    939         set _settings($this-qy)    $_view(-qy)
    940         set _settings($this-qz)    $_view(-qz)
    941         set _settings($this-xpan)  $_view(-xpan)
    942         set _settings($this-ypan)  $_view(-ypan)
    943         set _settings($this-zoom)  $_view(-zoom)
     937        set _settings(-qw)    $_view(-qw)
     938        set _settings(-qx)    $_view(-qx)
     939        set _settings(-qy)    $_view(-qy)
     940        set _settings(-qz)    $_view(-qz)
     941        set _settings(-xpan)  $_view(-xpan)
     942        set _settings(-ypan)  $_view(-ypan)
     943        set _settings(-zoom)  $_view(-zoom)
    944944
    945945        set q [ViewToQuaternion]
    … …  
    10291029        "in" {
    10301030            set _view(-zoom) [expr {$_view(-zoom)*1.25}]
    1031             set _settings($this-zoom) $_view(-zoom)
     1031            set _settings(-zoom) $_view(-zoom)
    10321032            SendCmd "camera zoom $_view(-zoom)"
    10331033        }
    10341034        "out" {
    10351035            set _view(-zoom) [expr {$_view(-zoom)*0.8}]
    1036             set _settings($this-zoom) $_view(-zoom)
     1036            set _settings(-zoom) $_view(-zoom)
    10371037            SendCmd "camera zoom $_view(-zoom)"
    10381038        }
    … …  
    10571057            SendCmd "camera orient $q"
    10581058            SendCmd "camera reset"
    1059             set _settings($this-qw)    $_view(-qw)
    1060             set _settings($this-qx)    $_view(-qx)
    1061             set _settings($this-qy)    $_view(-qy)
    1062             set _settings($this-qz)    $_view(-qz)
    1063             set _settings($this-xpan)  $_view(-xpan)
    1064             set _settings($this-ypan)  $_view(-ypan)
    1065             set _settings($this-zoom)  $_view(-zoom)
     1059            set _settings(-qw)    $_view(-qw)
     1060            set _settings(-qx)    $_view(-qx)
     1061            set _settings(-qy)    $_view(-qy)
     1062            set _settings(-qz)    $_view(-qz)
     1063            set _settings(-xpan)  $_view(-xpan)
     1064            set _settings(-ypan)  $_view(-ypan)
     1065            set _settings(-zoom)  $_view(-zoom)
    10661066        }
    10671067    }
    … …  
    11091109                set q [$_arcball rotate $x $y $_click(x) $_click(y)]
    11101110                QuaternionToView $q
    1111                 set _settings($this-qw) $_view(-qw)
    1112                 set _settings($this-qx) $_view(-qx)
    1113                 set _settings($this-qy) $_view(-qy)
    1114                 set _settings($this-qz) $_view(-qz)
     1111                set _settings(-qw) $_view(-qw)
     1112                set _settings(-qx) $_view(-qx)
     1113                set _settings(-qy) $_view(-qy)
     1114                set _settings(-qz) $_view(-qz)
    11151115                SendCmd "camera orient $q"
    11161116
    … …  
    11481148        set _view(-ypan) [expr $_view(-ypan) + $y]
    11491149        PanCamera
    1150         set _settings($this-xpan) $_view(-xpan)
    1151         set _settings($this-ypan) $_view(-ypan)
     1150        set _settings(-xpan) $_view(-xpan)
     1151        set _settings(-ypan) $_view(-ypan)
    11521152        return
    11531153    }
    … …  
    11651165        set _view(-ypan) [expr $_view(-ypan) - $dy]
    11661166        PanCamera
    1167         set _settings($this-xpan) $_view(-xpan)
    1168         set _settings($this-ypan) $_view(-ypan)
     1167        set _settings(-xpan) $_view(-xpan)
     1168        set _settings(-ypan) $_view(-ypan)
    11691169    }
    11701170    if { $option == "release" } {
    … …  
    18781878    $itk_component(zCutScale) set 50
    18791879    $itk_component(zCutScale) configure -state disabled
    1880     #$itk_component(zCutScale) configure -state disabled
    18811880    Rappture::Tooltip::for $itk_component(zCutScale) \
    18821881        "@[itcl::code $this SlicerTip z]"
    … …  
    19211920        label $inner.${tag}label -text $tag -font "Arial 9"
    19221921        entry $inner.${tag} -font "Arial 9"  -bg white \
    1923             -textvariable [itcl::scope _settings($this-$tag)]
     1922            -textvariable [itcl::scope _settings(-$tag)]
    19241923        bind $inner.${tag} <Return> \
    19251924            [itcl::code $this camera set -${tag}]
    … …  
    20102009        "set" {
    20112010            set what [lindex $args 0]
    2012             set x $_settings(${this}${what})
     2011            set x $_settings($what)
    20132012            set code [catch { string is double $x } result]
    20142013            if { $code != 0 || !$result } {
    2015                 set _settings(${this}${what}) $_view($what)
     2014                set _settings($what) $_view($what)
    20162015                return
    20172016            }
    20182017            switch -- $what {
    20192018                "-xpan" - "-ypan" {
    2020                     set _view($what) $_settings(${this}${what})
     2019                    set _view($what) $_settings($what)
    20212020                    PanCamera
    20222021                }
    20232022                "-qx" - "-qy" - "-qz" - "-qw" {
    2024                     set _view($what) $_settings(${this}${what})
     2023                    set _view($what) $_settings($what)
    20252024                    set q [ViewToQuaternion]
    20262025                    $_arcball quaternion $q
    … …  
    20282027                }
    20292028                "-zoom" {
    2030                     set _view($what) $_settings(${this}${what})
     2029                    set _view($what) $_settings($what)
    20312030                    SendCmd "camera zoom $_view($what)"
    20322031                }
    … …  
    21142113    set _view(-ypan) 0
    21152114    set _view(-zoom) 1.0
    2116     set _settings($this-xpan) $_view(-xpan)
    2117     set _settings($this-ypan) $_view(-ypan)
    2118     set _settings($this-zoom) $_view(-zoom)
    2119 }
    2120 
     2115    set _settings(-xpan) $_view(-xpan)
     2116    set _settings(-ypan) $_view(-ypan)
     2117    set _settings(-zoom) $_view(-zoom)
     2118}
Note: See TracChangeset for help on using the changeset viewer.