[Amsn-commits] msn gui.tcl,1.1213,1.1214

[Le P. - P. <lep...@us...>]

Update of /cvsroot/amsn/msn
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23905

Modified Files:
	gui.tcl 
Log Message:
Fix a quote thing
An image isn't a variable : info exists image doesn't work...


Index: gui.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/gui.tcl,v
retrieving revision 1.1213
retrieving revision 1.1214
diff -C2 -d -r1.1213 -r1.1214
*** gui.tcl	30 Jan 2006 20:59:01 -0000	1.1213
--- gui.tcl	31 Jan 2006 18:53:40 -0000	1.1214
***************
*** 5013,5019 ****
  
  	if {$psmmedia == ""} {
! 		set balloon_message "[string map {"%" "%%"} "$my_name\n [::config::getKey login]\n [trans status] : $my_state_desc"]"
  	} else {
!                 set balloon_message "[string map {"%" "%%"} "$my_name\n $psmmedia\n [::config::getKey login]\n [trans status] : $my_state_desc"]"
  	}
  
--- 5013,5019 ----
  
  	if {$psmmedia == ""} {
! 		set balloon_message [string map {"%" "%%"} "$my_name\n [::config::getKey login]\n [trans status] : $my_state_desc"]
  	} else {
!                 set balloon_message [string map {"%" "%%"} "$my_name\n $psmmedia\n [::config::getKey login]\n [trans status] : $my_state_desc"]
  	}
  
***************
*** 5605,5609 ****
  	if {[::config::getKey show_contactdps_in_cl] == "1" && ${displaypicfilename} != "" && [file readable "[file join $::HOME displaypic cache ${displaypicfilename}].png"] && $animated == 0} {
  		#Credits to JeeBee for code below! :)
! 		if {![info exists small_dp_$user_login]} {
  			set buddyheight [image height [::skin::loadPixmap $image_type]]
         		 	image create photo small_dp_$user_login -format cximage
--- 5605,5609 ----
  	if {[::config::getKey show_contactdps_in_cl] == "1" && ${displaypicfilename} != "" && [file readable "[file join $::HOME displaypic cache ${displaypicfilename}].png"] && $animated == 0} {
  		#Credits to JeeBee for code below! :)
! 		if {[lsearch [image names] "small_dp_$user_login"] == -1} {
  			set buddyheight [image height [::skin::loadPixmap $image_type]]
         		 	image create photo small_dp_$user_login -format cximage