- Timestamp:
- Sep 2, 2008, 3:54:54 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/xylegend.tcl
r1136 r1137 584 584 } 585 585 set label [$itk_component(legend) entry cget $focus_ -label] 586 foreach { l r t b} [$itk_component(legend) bbox $focus_] break586 foreach { l r w h } [$itk_component(legend) bbox $focus_] break 587 587 set info(text) $label 588 588 set info(x) [expr $l + [winfo rootx $itk_component(legend)]] 589 589 set info(y) [expr $r + [winfo rooty $itk_component(legend)]] 590 set info(w) [expr $r - $l] 591 set info(h) [expr $b - $t] 592 puts stderr "focus bbox=$info(x) $info(y) $info(w) $info(h)" 590 set info(w) $w 591 set info(h) $h 593 592 return [array get info] 594 593 }
Note: See TracChangeset
for help on using the changeset viewer.