From: <squ...@us...> - 2008-10-28 10:21:38
|
Revision: 10655 http://amsn.svn.sourceforge.net/amsn/?rev=10655&view=rev Author: square87 Date: 2008-10-28 10:18:57 +0000 (Tue, 28 Oct 2008) Log Message: ----------- Added the text background in chatwindows Modified Paths: -------------- trunk/amsn/gui.tcl Modified: trunk/amsn/gui.tcl =================================================================== --- trunk/amsn/gui.tcl 2008-10-28 10:17:57 UTC (rev 10654) +++ trunk/amsn/gui.tcl 2008-10-28 10:18:57 UTC (rev 10655) @@ -3702,6 +3702,7 @@ set fontname [lindex $fontformat 0] set fontstyle [lindex $fontformat 1] set fontcolor [lindex $fontformat 2] + set fontbg "" $textw configure -font bplainf -foreground black @@ -3763,6 +3764,14 @@ } continue } + "bg" { + if {[lindex $unit 1] ne "reset"} { + set fontbg [lindex $unit 1] + } else { + set fontbg "" + } + continue + } default { continue } } @@ -3795,7 +3804,7 @@ set tagid [::md5::md5 "$font$fontcolor"] if { ([string length $fontname] < 3 ) - || ([catch {$textw tag configure $tagid -foreground #$fontcolor -font $font} res])} { + || ([catch {$textw tag configure $tagid -foreground #$fontcolor -background $fontbg -font $font} res])} { status_log "Font $font or color $fontcolor wrong. Using default\n" red $textw tag configure $tagid -foreground black -font bplainf } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |