[Amsn-commits] SF.net SVN: amsn:[11084] trunk/amsn/guicontactlist.tcl

[<squ...@us...>]

Revision: 11084
          http://amsn.svn.sourceforge.net/amsn/?rev=11084&view=rev
Author:   square87
Date:     2009-03-10 11:17:42 +0000 (Tue, 10 Mar 2009)

Log Message:
-----------
Better support for SkinColor plugin

Modified Paths:
--------------
    trunk/amsn/guicontactlist.tcl

Modified: trunk/amsn/guicontactlist.tcl
===================================================================
--- trunk/amsn/guicontactlist.tcl	2009-03-10 11:14:43 UTC (rev 11083)
+++ trunk/amsn/guicontactlist.tcl	2009-03-10 11:17:42 UTC (rev 11084)
@@ -767,12 +767,8 @@
 							$canvas create image $boXpad $bodYbegin -image boxbody_$groupDrawn \
 								-anchor nw -tags [list box box_body $gid]
 						}
-							
-						set y2 "body"
-						
 					} else {
 						set bodYend $bodYbegin
-						set y2 ""
 					}
 
 					$canvas create image $boXpad $bodYend -image boxdownbar -anchor nw \
@@ -780,7 +776,7 @@
 
 					set curPos [list [lindex $curPos 0] [expr {[lindex $curPos 1]+ $ypad}] ]
 					
-					if {$y2 ne "" && [::skin::getKey "groupcolorborder"] ne ""} {
+					if {[::skin::getKey "groupcolorborder"] ne ""} {
 						$canvas create rect \
 							$boXpad $bodYbegin $width [expr {$bodYbegin + $height}] \
 							-outline [::skin::getKey "groupcolorborder"] -width 3 \
@@ -862,6 +858,13 @@
 			} else {
 				set bodYend $bodYbegin
 			}
+			
+			if {[::skin::getKey "groupcolorborder"] ne ""} {
+				$canvas create rect \
+					$boXpad $bodYbegin $width [expr {$bodYbegin + $height}] \
+					-outline [::skin::getKey "groupcolorborder"] -width 3 \
+					-tags [list box box_body $gid border]
+			}
 	
 			# Create endbar of the box
 			$canvas create image $boXpad $bodYend -image boxdownbar -anchor nw \
@@ -2020,9 +2023,8 @@
 	
 	proc user_background {canvas tag maxwidth} {
 		set bbox [$canvas bbox $tag]
-		set coords [$canvas coords $tag]
 		$canvas create rect \
-			[expr { [lindex $bbox 0] + [lindex $coords 0] - [::skin::getKey contactlist_xpad] - (2* [::skin::getKey buddy_xpad])}] \
+			[::skin::getKey contactlist_xpad] \
 			[lindex $bbox 1] \
 			[expr { $maxwidth + [::skin::getKey contactlist_xpad] + [::skin::getKey buddy_xpad] + 4}] \
 			[lindex $bbox 3] \


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.