- Timestamp:
- Apr 16, 2014, 10:37:36 AM (11 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r4336 r4343 1980 1980 -textvariable [itcl::scope _settings(-$tag)] 1981 1981 bind $inner.${tag} <Return> \ 1982 [itcl::code $this camera set ${tag}]1982 [itcl::code $this camera set -${tag}] 1983 1983 bind $inner.${tag} <KP_Enter> \ 1984 [itcl::code $this camera set ${tag}]1984 [itcl::code $this camera set -${tag}] 1985 1985 blt::table $inner \ 1986 1986 $row,0 $inner.${tag}label -anchor e -pady 2 \ -
trunk/gui/scripts/vtkvolumeviewer.tcl
r4336 r4343 1 1 # -*- mode: tcl; indent-tabs-mode: nil -*- 2 3 # ---------------------------------------------------------------------- 4 # COMPONENT: VtkVolumeViewer - Vtk volume viewer 2 # ---------------------------------------------------------------------- 3 # COMPONENT: vtkvolumeviewer - Vtk volume viewer 5 4 # 6 5 # It connects to the Vtk server running on a rendering farm, … … 8 7 # ====================================================================== 9 8 # AUTHOR: Michael McLennan, Purdue University 10 # Copyright (c) 2004-201 2HUBzero Foundation, LLC9 # Copyright (c) 2004-2014 HUBzero Foundation, LLC 11 10 # 12 11 # See the file "license.terms" for information on usage and … … 1920 1919 "outer_edges" "outer" 1921 1920 $itk_component(axismode) value "static" 1922 bind $inner.mode <<Value>> [itcl::code $this AdjustSetting axisFlyMode]1921 bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axisflymode] 1923 1922 1924 1923 blt::table $inner \ … … 1955 1954 1956 1955 set row 1 1957 1958 set labels { -qx -qy -qz -qw -xpan -ypan -zoom } 1956 set labels { qx qy qz qw xpan ypan zoom } 1959 1957 foreach tag $labels { 1960 label $inner.${tag} label -text $tag -font "Arial 9"1958 label $inner.${tag}-label -text $tag -font "Arial 9" 1961 1959 entry $inner.${tag} -font "Arial 9" -bg white \ 1962 -textvariable [itcl::scope _view($tag)] 1963 bind $inner.${tag} <KeyPress-Return> \ 1964 [itcl::code $this camera set ${tag}] 1960 -textvariable [itcl::scope _view(-$tag)] 1961 bind $inner.${tag} <Return> \ 1962 [itcl::code $this camera set -${tag}] 1963 bind $inner.${tag} <KP_Enter> \ 1964 [itcl::code $this camera set -${tag}] 1965 1965 blt::table $inner \ 1966 $row,0 $inner.${tag} label -anchor e -pady 2 \1966 $row,0 $inner.${tag}-label -anchor e -pady 2 \ 1967 1967 $row,1 $inner.${tag} -anchor w -pady 2 1968 1968 blt::table configure $inner r$row -resize none … … 1972 1972 -text "Orthographic Projection" \ 1973 1973 -variable [itcl::scope _view(-ortho)] \ 1974 -command [itcl::code $this camera set ortho] \1974 -command [itcl::code $this camera set -ortho] \ 1975 1975 -font "Arial 9" 1976 1976 blt::table $inner \
Note: See TracChangeset
for help on using the changeset viewer.