Changeset 4554 for branches/1.3/gui/scripts/flowvisviewer.tcl
- Timestamp:
- Jul 17, 2014 9:41:30 PM (10 years ago)
- Location:
- branches/1.3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
-
branches/1.3/gui/scripts/flowvisviewer.tcl
r4550 r4554 332 332 set _image(legend) [image create photo] 333 333 itk_component add legend { 334 canvas $itk_component(plotarea).legend \ 335 -height 50 -highlightthickness 0 -background black 334 canvas $itk_component(plotarea).legend -height 50 -highlightthickness 0 336 335 } { 337 336 usual … … 1024 1023 set h [winfo height $c] 1025 1024 set lx 10 1026 # FIXME: I don't know what I have to do this for the 2D flow1027 # example. Otherwise the canvas background is white.1028 # I'll get to this when we add background changes into1029 # nanvis.1030 $c configure -background black1031 1025 set ly [expr {$h - 1}] 1032 if {"" == [$c find withtag transfunc]} {1026 if {"" == [$c find withtag colorbar]} { 1033 1027 $c create image 10 10 -anchor nw \ 1034 -image $_image(legend) -tags transfunc1028 -image $_image(legend) -tags colorbar 1035 1029 $c create text $lx $ly -anchor sw \ 1036 1030 -fill $itk_option(-plotforeground) -tags "limits vmin" 1037 1031 $c create text [expr {$w-$lx}] $ly -anchor se \ 1038 1032 -fill $itk_option(-plotforeground) -tags "limits vmax" 1039 $c lower transfunc 1040 $c bind transfunc <ButtonRelease-1> \ 1041 [itcl::code $this AddIsoMarker %x %y] 1033 $c lower colorbar 1034 $c bind colorbar <ButtonRelease-1> [itcl::code $this AddIsoMarker %x %y] 1042 1035 } 1043 1036 # Display the markers used by the active transfer function.
Note: See TracChangeset
for help on using the changeset viewer.