[Amsn-commits] msn chatwindow.tcl,1.153,1.154

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

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

Modified Files:
	chatwindow.tcl 
Log Message:
Commit Youness's proposed patch for the multi-line tabs problem

Index: chatwindow.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/chatwindow.tcl,v
retrieving revision 1.153
retrieving revision 1.154
diff -C2 -d -r1.153 -r1.154
*** chatwindow.tcl	29 Apr 2005 21:40:21 -0000	1.153
--- chatwindow.tcl	29 Apr 2005 22:33:07 -0000	1.154
***************
*** 2358,2362 ****
  
  		$tab create image 0 0 -anchor nw -image [::skin::loadPixmap tab] -tag tab_bg
! 		$tab create text [::skin::getKey tab_text_x] [::skin::getKey tab_text_y] -anchor nw -text "$win" -tag tab_text -font sboldf -width [::skin::getKey tab_text_width]
  		$tab create image [::skin::getKey tab_close_x] [::skin::getKey tab_close_y] -anchor nw -image [::skin::loadPixmap tab_close] -activeimage [::skin::loadPixmap tab_close_hover] -tag tab_close
  
--- 2358,2369 ----
  
  		$tab create image 0 0 -anchor nw -image [::skin::loadPixmap tab] -tag tab_bg
! 
! 		set nick [string trim $win] ;# to avoid havng a blank tab if the user has  a nick like "\n\n\n my nick"
! 		set idx [string first "\n" $nick]
! 		if { $idx != -1 } {
! 		        set nick [string range $nick 0 [expr {$idx -1}]]
! 		}
! 
! 		$tab create text [::skin::getKey tab_text_x] [::skin::getKey tab_text_y] -anchor nw -text "$nick" -tag tab_text -font sboldf -width [::skin::getKey tab_text_width]
  		$tab create image [::skin::getKey tab_close_x] [::skin::getKey tab_close_y] -anchor nw -image [::skin::loadPixmap tab_close] -activeimage [::skin::loadPixmap tab_close_hover] -tag tab_close