Changeset 5562 for trunk/gui/scripts
- Timestamp:
- May 19, 2015, 11:52:47 AM (9 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowvisviewer.tcl
r5541 r5562 1000 1000 -image $_image(legend) -tags colorbar 1001 1001 $c create text $lx $ly -anchor sw \ 1002 -fill $itk_option(-plotforeground) -tags "limits labelsvmin"1002 -fill $itk_option(-plotforeground) -tags "limits text vmin" 1003 1003 $c create text [expr {$w-$lx}] $ly -anchor se \ 1004 -fill $itk_option(-plotforeground) -tags "limits labels vmax" 1004 -fill $itk_option(-plotforeground) -tags "limits text vmax" 1005 $c create text [expr {$w/2}] $ly -anchor s \ 1006 -fill $itk_option(-plotforeground) -tags "title text" 1005 1007 $c lower colorbar 1006 1008 $c bind colorbar <ButtonRelease-1> [itcl::code $this AddIsoMarker %x %y] … … 1015 1017 $c itemconfigure vmax -text [format %g $max] 1016 1018 $c coords vmax [expr {$w-$lx}] $ly 1019 1020 set title [$_first hints label] 1021 set units [$_first hints units] 1022 if { $units != "" } { 1023 set title "$title ($units)" 1024 } 1025 $c itemconfigure title -text $title 1026 $c coords title [expr {$w/2}] $ly 1017 1027 1018 1028 if { [info exists _isomarkers($tf)] } { … … 1796 1806 SendCmd "grid axiscolor $rgb" 1797 1807 SendCmd "grid linecolor $rgb" 1798 $itk_component(legend) itemconfigure labels -fill $color 1799 $itk_component(legend) itemconfigure limits -fill $color 1808 $itk_component(legend) itemconfigure text -fill $color 1800 1809 } 1801 1810 } -
trunk/gui/scripts/isomarker.tcl
r5259 r5562 56 56 set _label [$c create text 0 $h \ 57 57 -anchor n -fill white -font "Helvetica 8" \ 58 -tags "labels $this $obj" -state hidden]58 -tags "labels text $this $obj" -state hidden] 59 59 $c bind $_tick <Enter> [itcl::code $this EnterTick] 60 60 $c bind $_tick <Leave> [itcl::code $this LeaveTick] -
trunk/gui/scripts/nanovisviewer.tcl
r5527 r5562 769 769 -fill $itk_option(-plotforeground) -tags "limits text vmax" 770 770 $c create text [expr {$w/2}] $ly -anchor s \ 771 -fill $itk_option(-plotforeground) -tags " limits text title"771 -fill $itk_option(-plotforeground) -tags "title text" 772 772 $c lower colorbar 773 773 $c bind colorbar <ButtonRelease-1> [itcl::code $this AddNewMarker %x %y] … … 1523 1523 SendCmd "grid axiscolor $rgb" 1524 1524 SendCmd "grid linecolor $rgb" 1525 $itk_component(legend) itemconfigure labels -fill $color 1526 $itk_component(legend) itemconfigure limits -fill $color 1525 $itk_component(legend) itemconfigure text -fill $color 1527 1526 } 1528 1527 } -
trunk/gui/scripts/transferfunctioneditor.tcl
r5141 r5562 127 127 set _labels($name) [$_canvas create text 0 $h \ 128 128 -anchor n -fill white -font "Helvetica 8" \ 129 -tags "labels $this $_name" -state $state]129 -tags "labels text $this $_name" -state $state] 130 130 set _id2name($_ticks($name)) $name 131 131 $_canvas bind $_ticks($name) <Enter> [itcl::code $this EnterTick $name]
Note: See TracChangeset
for help on using the changeset viewer.