Changeset 5264
- Timestamp:
- Apr 17, 2015 8:52:32 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkvolumeviewer.tcl
r5237 r5264 2127 2127 } 2128 2128 "set" { 2129 set wh o[lindex $args 0]2130 set x $_view($wh o)2129 set what [lindex $args 0] 2130 set x $_view($what) 2131 2131 set code [catch { string is double $x } result] 2132 2132 if { $code != 0 || !$result } { 2133 2133 return 2134 2134 } 2135 switch -- $wh o{2135 switch -- $what { 2136 2136 "-ortho" { 2137 if {$_view( -ortho)} {2137 if {$_view($what)} { 2138 2138 SendCmd "camera mode ortho" 2139 2139 } else { … … 2150 2150 } 2151 2151 "-zoom" { 2152 SendCmd "camera zoom $_view( -zoom)"2152 SendCmd "camera zoom $_view($what)" 2153 2153 } 2154 2154 }
Note: See TracChangeset
for help on using the changeset viewer.