- Timestamp:
- Sep 12, 2006, 10:24:27 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/balloon.tcl
r428 r522 316 316 set light [Rappture::color::brightness $bg 0.4] 317 317 set dark [Rappture::color::brightness $bg -0.4] 318 set rgb [winfo rgb . $bg] 319 set bg [format "#%03x%03x%03x" [lindex $rgb 0] [lindex $rgb 1] [lindex $rgb 2]] 318 320 319 321 $_fills($dir) put $bg -to 0 0 $sw $sh
Note: See TracChangeset
for help on using the changeset viewer.