- Timestamp:
- Mar 21, 2013, 7:29:50 AM (12 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/vtkheightmapviewer.tcl
r3546 r3547 2334 2334 # If there's a legend title, create a text item for the title. 2335 2335 $c create text $x $y \ 2336 -anchor ne \ 2337 -fill $itk_option(-plotforeground) -tags "title legend" \ 2338 -font $font 2339 incr y $lineht 2336 -anchor ne \ 2337 -fill $itk_option(-plotforeground) -tags "title legend" \ 2338 -font $font 2340 2339 $c create text $x $y \ 2341 2340 -anchor ne \ -
trunk/gui/scripts/vtkisosurfaceviewer.tcl
r3544 r3547 2382 2382 set y 2 2383 2383 # If there's a legend title, create a text item for the title. 2384 if { $title != "" } { 2385 $c create text $x $y \ 2384 $c create text $x $y \ 2386 2385 -anchor ne \ 2387 2386 -fill $itk_option(-plotforeground) -tags "title legend" \ 2388 2387 -font $font 2389 2388 incr y $lineht 2390 }2391 2389 $c create text $x $y \ 2392 2390 -anchor ne \ … … 2451 2449 set y 2 2452 2450 # If there's a legend title, move the title to the correct position 2451 puts stderr "DrawLegend title=$title x=$x y=$y $itk_option(-plotforeground)" 2453 2452 if { $title != "" } { 2453 $c itemconfigure title -text $title 2454 2454 $c coords title $x $y 2455 2455 incr y $lineht 2456 $c raise title 2456 2457 } 2457 2458 $c coords zmax $x $y … … 2481 2482 post { 2482 2483 foreach { x1 y1 x2 y2 } [$c bbox title] break 2483 set x1 [expr [winfo width $itk_component(view)] - [winfo reqwidth $itk_component(fieldmenu)]] 2484 set cw [winfo width $itk_component(view)] 2485 set mw [winfo reqwidth $itk_component(fieldmenu)] 2486 set x1 [expr $cw - $mw] 2484 2487 set x [expr $x1 + [winfo rootx $itk_component(view)]] 2485 2488 set y [expr $y2 + [winfo rooty $itk_component(view)]]
Note: See TracChangeset
for help on using the changeset viewer.