[Amsn-commits] msn skins.tcl,1.75,1.76 gui.tcl,1.891,1.892

[Jerome Gagnon-V. <ger...@us...>]

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

Modified Files:
	skins.tcl gui.tcl 
Log Message:
Was on Skin Wish lit - Key in skin system to underline contact in the contact list . <underline_contact>


Index: skins.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/skins.tcl,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -d -r1.75 -r1.76
*** skins.tcl	28 Dec 2004 02:43:32 -0000	1.75
--- skins.tcl	28 Dec 2004 18:24:57 -0000	1.76
***************
*** 625,629 ****
  			chat_buttons_padx chat_buttons_pady chat_status_padx chat_status_pady chat_input_padx chat_input_pady \
  			chat_dp_padx chat_dp_pady chat_leftframe_padx chat_leftframe_pady chat_sendbutton_padx \
! 			chat_sendbutton_pady statusbarbg statusbartext \
  			] {
  		if { [info exists sdata(${cstack}:$key)] } { ::skin::setColor $key [string trim $sdata(${cstack}:$key)] }
--- 625,629 ----
  			chat_buttons_padx chat_buttons_pady chat_status_padx chat_status_pady chat_input_padx chat_input_pady \
  			chat_dp_padx chat_dp_pady chat_leftframe_padx chat_leftframe_pady chat_sendbutton_padx \
! 			chat_sendbutton_pady statusbarbg statusbartext underline_contact\
  			] {
  		if { [info exists sdata(${cstack}:$key)] } { ::skin::setColor $key [string trim $sdata(${cstack}:$key)] }

Index: gui.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/gui.tcl,v
retrieving revision 1.891
retrieving revision 1.892
diff -C2 -d -r1.891 -r1.892
*** gui.tcl	27 Dec 2004 16:03:28 -0000	1.891
--- gui.tcl	28 Dec 2004 18:24:58 -0000	1.892
***************
*** 22,25 ****
--- 22,26 ----
  	::skin::setDefaultColor statusbartext #000000
  
+ 	::skin::setDefaultColor underline_contact 1 ;#Use 1 to underline, 0 to not underline
  	
  	::skin::setDefaultColor chat_top_padx 0
***************
*** 4992,4996 ****
  
  	$pgBuddy.text tag bind $user_unique_name <Enter> \
! 		"$pgBuddy.text tag conf $user_unique_name -under true; $pgBuddy.text conf -cursor hand2"
  
  	$pgBuddy.text tag bind $user_unique_name <Leave> \
--- 4993,4997 ----
  
  	$pgBuddy.text tag bind $user_unique_name <Enter> \
! 		"$pgBuddy.text tag conf $user_unique_name -under [::skin::getColor underline_contact]; $pgBuddy.text conf -cursor hand2"
  
  	$pgBuddy.text tag bind $user_unique_name <Leave> \
***************
*** 4998,5002 ****
  
  	bind $pgBuddy.text.$imgname <Enter> \
! 		"$pgBuddy.text tag conf $user_unique_name -under true; $pgBuddy.text conf -cursor hand2"
  	bind $pgBuddy.text.$imgname <Leave> \
  		"$pgBuddy.text tag conf $user_unique_name -under false;	$pgBuddy.text conf -cursor left_ptr"
--- 4999,5003 ----
  
  	bind $pgBuddy.text.$imgname <Enter> \
! 		"$pgBuddy.text tag conf $user_unique_name -under [::skin::getColor underline_contact]; $pgBuddy.text conf -cursor hand2"
  	bind $pgBuddy.text.$imgname <Leave> \
  		"$pgBuddy.text tag conf $user_unique_name -under false;	$pgBuddy.text conf -cursor left_ptr"