[Amsn-commits] msn chatwindow.tcl,1.156,1.157

[Karel D. <sc...@us...>]

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

Modified Files:
	chatwindow.tcl 
Log Message:
Now the block-button tooltip also changes if you blobk/unblock a contact

Index: chatwindow.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/chatwindow.tcl,v
retrieving revision 1.156
retrieving revision 1.157
diff -C2 -d -r1.156 -r1.157
*** chatwindow.tcl	30 Apr 2005 03:30:28 -0000	1.156
--- chatwindow.tcl	30 Apr 2005 07:27:58 -0000	1.157
***************
*** 11,15 ****
  	# Namespace variables, relative to chat windows' data. In the code are accessible
  	# through '::namespace::variable' syntax (to avoid local instances of the variable
! 	# and have the scope more clear).
  
  	# As ::ChatWindow::winid is the index used in the
--- 11,15 ----
  	# Namespace variables, relative to chat windows' data. In the code are accessible
  	# through '::namespace::variable' syntax (to avoid local instances of the variable
! 	# and have the scope more clear).af
  
  	# As ::ChatWindow::winid is the index used in the
***************
*** 1865,1869 ****
  			-background [::skin::getKey buttonbarbg] -highlightthickness 0 -borderwidth 0\
  			-highlightbackground [::skin::getKey buttonbarbg] -activebackground [::skin::getKey buttonbarbg]
! 		after 500 ::ChatWindow::SetBlockBalloon $w $block
  		
  		#Send file button
--- 1865,1869 ----
  			-background [::skin::getKey buttonbarbg] -highlightthickness 0 -borderwidth 0\
  			-highlightbackground [::skin::getKey buttonbarbg] -activebackground [::skin::getKey buttonbarbg]
! 		after 1 ::ChatWindow::SetBlockBalloon $w $block
  		
  		#Send file button
***************
*** 1903,1907 ****
  		bind  $fontsel  <Enter> "$fontsel configure -image [::skin::loadPixmap butfont_hover]"
  		bind  $fontsel  <Leave> "$fontsel configure -image [::skin::loadPixmap butfont]"
! 		bind $block <Enter> "$block configure -image [::skin::loadPixmap butblock_hover]"
  		bind $block <Leave> "$block configure -image [::skin::loadPixmap butblock]"
  		
--- 1903,1907 ----
  		bind  $fontsel  <Enter> "$fontsel configure -image [::skin::loadPixmap butfont_hover]"
  		bind  $fontsel  <Leave> "$fontsel configure -image [::skin::loadPixmap butfont]"
! 		bind $block <Enter> "$block configure -image [::skin::loadPixmap butblock_hover]; ::ChatWindow::SetBlockBalloon $w $block"
  		bind $block <Leave> "$block configure -image [::skin::loadPixmap butblock]"