Changeset 5256 for branches/1.3/gui/scripts/vtkvolumeviewer.tcl
- Timestamp:
- Apr 17, 2015 7:52:50 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/vtkvolumeviewer.tcl
r5249 r5256 1903 1903 } 1904 1904 "set" { 1905 set wh o[lindex $args 0]1906 set x $_view($wh o)1905 set what [lindex $args 0] 1906 set x $_view($what) 1907 1907 set code [catch { string is double $x } result] 1908 1908 if { $code != 0 || !$result } { 1909 1909 return 1910 1910 } 1911 switch -- $wh o{1911 switch -- $what { 1912 1912 "-ortho" { 1913 if {$_view( -ortho)} {1913 if {$_view($what)} { 1914 1914 SendCmd "camera mode ortho" 1915 1915 } else { … … 1926 1926 } 1927 1927 "-zoom" { 1928 SendCmd "camera zoom $_view( -zoom)"1928 SendCmd "camera zoom $_view($what)" 1929 1929 } 1930 1930 }
Note: See TracChangeset
for help on using the changeset viewer.