Changeset 5271
- Timestamp:
- Apr 17, 2015 10:58:03 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/nanovisviewer.tcl
r5269 r5271 126 126 127 127 private variable _arcball "" 128 129 128 private variable _dlist "" ;# list of data objects 130 129 private variable _obj2ovride ;# maps dataobj => style override 131 130 private variable _serverDatasets ;# contains all the dataobj-component 132 131 ;# to volumes in the server 133 private variable _serverTfs ;# contains all the transfer functions134 ;# in the server.135 132 private variable _recvdDatasets ;# list of data objs to send to server 136 133 private variable _dataset2style ;# maps dataobj-component to transfunc … … 150 147 private variable _first "" ;# This is the topmost volume. 151 148 152 common _downloadPopup;# download options from popup149 private common _downloadPopup ;# download options from popup 153 150 private common _hardcopy 154 151 private variable _width 0 … … 738 735 set lx 10 739 736 set ly [expr {$h - 1}] 740 if {"" == [$c find withtag transfunc]} {737 if {"" == [$c find withtag colorbar]} { 741 738 $c create image 10 10 -anchor nw \ 742 -image $_image(legend) -tags transfunc739 -image $_image(legend) -tags colorbar 743 740 $c create text $lx $ly -anchor sw \ 744 741 -fill $itk_option(-plotforeground) -tags "limits vmin" 745 742 $c create text [expr {$w-$lx}] $ly -anchor se \ 746 743 -fill $itk_option(-plotforeground) -tags "limits vmax" 747 $c lower transfunc 748 $c bind transfunc <ButtonRelease-1> \ 749 [itcl::code $this AddIsoMarker %x %y] 744 $c lower colorbar 745 $c bind colorbar <ButtonRelease-1> [itcl::code $this AddIsoMarker %x %y] 750 746 } 751 747 752 748 # Display the markers used by the current transfer function. 753 749 array set limits [limits $tf] 754 $c itemconfigure vmin -text [format % .2g $limits(min)]750 $c itemconfigure vmin -text [format %g $limits(min)] 755 751 $c coords vmin $lx $ly 756 752 757 $c itemconfigure vmax -text [format % .2g $limits(max)]753 $c itemconfigure vmax -text [format %g $limits(max)] 758 754 $c coords vmax [expr {$w-$lx}] $ly 759 755 … … 791 787 # representing the legend in the canvas. In addition, the 792 788 # active transfer function is displayed. 793 #794 789 # 795 790 itcl::body Rappture::NanovisViewer::ReceiveLegend { tf vmin vmax size } {
Note: See TracChangeset
for help on using the changeset viewer.