Changeset 1391 for trunk/gui/scripts/nanovisviewer.tcl
- Timestamp:
- Apr 12, 2009, 11:35:49 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/nanovisviewer.tcl
r1390 r1391 201 201 itk_component add reset { 202 202 button $f.reset -borderwidth 1 -padx 1 -pady 1 \ 203 -highlightthickness 0 \ 203 204 -image [Rappture::icon reset-view] \ 204 205 -command [itcl::code $this Zoom reset] 206 } { 207 usual 208 ignore -highlightthickness 205 209 } 206 210 pack $itk_component(reset) -side top -padx 2 -pady 2 … … 209 213 itk_component add zoomin { 210 214 button $f.zin -borderwidth 1 -padx 1 -pady 1 \ 215 -highlightthickness 0 \ 211 216 -image [Rappture::icon zoom-in] \ 212 217 -command [itcl::code $this Zoom in] 218 } { 219 usual 220 ignore -highlightthickness 213 221 } 214 222 pack $itk_component(zoomin) -side top -padx 2 -pady 2 … … 217 225 itk_component add zoomout { 218 226 button $f.zout -borderwidth 1 -padx 1 -pady 1 \ 227 -highlightthickness 0 \ 219 228 -image [Rappture::icon zoom-out] \ 220 229 -command [itcl::code $this Zoom out] 230 } { 231 usual 232 ignore -highlightthickness 221 233 } 222 234 pack $itk_component(zoomout) -side top -padx 2 -pady 2 … … 227 239 # 228 240 itk_component add volume { 229 label $f.volume -borderwidth 1 -relief sunken -padx 1 -pady 1 \ 230 -text "Volume" \ 231 -image [Rappture::icon playback-record] 241 label $f.volume -borderwidth 1 -relief sunken \ 242 -image [Rappture::icon volume-on] 232 243 } 233 244 bind $itk_component(volume) <ButtonPress> \ … … 235 246 Rappture::Tooltip::for $itk_component(volume) \ 236 247 "Toggle the volume cloud on/off" 237 pack $itk_component(volume) - padx 2 -pady 2248 pack $itk_component(volume) -ipadx 1 -ipady 1 -padx 2 -pady 2 238 249 239 250 BuildViewTab … … 1668 1679 set inner [$itk_component(main) insert end \ 1669 1680 -title "Volume Settings" \ 1670 -icon [Rappture::icon playback-record]]1681 -icon [Rappture::icon volume-on]] 1671 1682 $inner configure -borderwidth 4 1672 1683 1673 1684 set fg [option get $itk_component(hull) font Font] 1674 1685 #set bfg [option get $itk_component(hull) boldFont Font] 1686 1687 checkbutton $inner.vol -text "Show volume" -font $fg \ 1688 -variable [itcl::scope settings_($this-volume)] \ 1689 -command [itcl::code $this FixSettings volume] 1690 label $inner.shading -text "Shading:" -font $fg 1675 1691 1676 1692 label $inner.dim -text "Dim" -font $fg … … 1703 1719 1704 1720 blt::table $inner \ 1705 0,0 $inner.dim -anchor e -pady 2 \ 1706 0,1 $inner.light -columnspan 2 -pady 2 -fill x \ 1707 0,3 $inner.bright -anchor w -pady 2 \ 1708 1,0 $inner.fog -anchor e -pady 2 \ 1709 1,1 $inner.transp -columnspan 2 -pady 2 -fill x \ 1710 1,3 $inner.plastic -anchor w -pady 2 \ 1711 2,0 $inner.clear -anchor e -pady 2 \ 1712 2,1 $inner.opacity -columnspan 2 -pady 2 -fill x\ 1713 2,3 $inner.opaque -anchor w -pady 2 \ 1714 3,0 $inner.thin -anchor e -pady 2 \ 1715 3,1 $inner.thickness -columnspan 2 -pady 2 -fill x\ 1716 3,3 $inner.thick -anchor w -pady 2 1721 0,0 $inner.vol -columnspan 4 -anchor w -pady 2 \ 1722 1,0 $inner.shading -columnspan 4 -anchor w -pady {10 2} \ 1723 2,0 $inner.dim -anchor e -pady 2 \ 1724 2,1 $inner.light -columnspan 2 -pady 2 -fill x \ 1725 2,3 $inner.bright -anchor w -pady 2 \ 1726 3,0 $inner.fog -anchor e -pady 2 \ 1727 3,1 $inner.transp -columnspan 2 -pady 2 -fill x \ 1728 3,3 $inner.plastic -anchor w -pady 2 \ 1729 4,0 $inner.clear -anchor e -pady 2 \ 1730 4,1 $inner.opacity -columnspan 2 -pady 2 -fill x\ 1731 4,3 $inner.opaque -anchor w -pady 2 \ 1732 5,0 $inner.thin -anchor e -pady 2 \ 1733 5,1 $inner.thickness -columnspan 2 -pady 2 -fill x\ 1734 5,3 $inner.thick -anchor w -pady 2 1717 1735 1718 1736 blt::table configure $inner c0 c1 c3 r* -resize none 1719 blt::table configure $inner r 4-resize expand1737 blt::table configure $inner r6 -resize expand 1720 1738 } 1721 1739 … … 1935 1953 if {$op} { 1936 1954 SendCmd "volume data state on [CurrentVolumeIds]" 1937 $itk_component(volume) configure -relief sunken 1955 $itk_component(volume) configure -relief sunken \ 1956 -image [Rappture::icon volume-on] 1938 1957 set settings_($this-volume) 1 1939 1958 } else { 1940 1959 SendCmd "volume data state off [CurrentVolumeIds]" 1941 $itk_component(volume) configure -relief raised 1960 $itk_component(volume) configure -relief raised \ 1961 -image [Rappture::icon volume-off] 1942 1962 set settings_($this-volume) 0 1943 1963 }
Note: See TracChangeset
for help on using the changeset viewer.