- Timestamp:
- Jul 10, 2006, 1:44:26 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/imageresult.tcl
r464 r479 337 337 $_image(final) configure -width $w -height $h 338 338 set bg [$itk_component(image) cget -background] 339 set rgb [winfo rgb . $bg] 340 set bg [format "#%03x%03x%03x" [lindex $rgb 0] [lindex $rgb 1] [lindex $rgb 2]] 339 341 $_image(final) put $bg -to 0 0 $w $h 340 342
Note: See TracChangeset
for help on using the changeset viewer.