[Amsn-commits] msn gui.tcl,1.1229,1.1230 chatwindow.tcl,1.225,1.226

[Tom J. <bl...@us...>]

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

Modified Files:
	gui.tcl chatwindow.tcl 
Log Message:
Amsn now uses pixmap menus :) Report all bugs please!


Index: chatwindow.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/chatwindow.tcl,v
retrieving revision 1.225
retrieving revision 1.226
diff -C2 -d -r1.225 -r1.226
*** chatwindow.tcl	19 Feb 2006 10:47:09 -0000	1.225
--- chatwindow.tcl	26 Feb 2006 20:26:25 -0000	1.226
***************
*** 1146,1150 ****
  		set mainmenu $w.menu	
  
! 		menu $mainmenu -tearoff 0 -type menubar -borderwidth 0 -activeborderwidth -0
  
  		set msnmenu [CreateMsnMenu $w $mainmenu]
--- 1146,1154 ----
  		set mainmenu $w.menu	
  
! 		if { [package provide pixmapmenu] != "" } {
! 			pack [menubar $mainmenu] -fill x -side top
! 		} else {
! 			menu $mainmenu -tearoff 0 -type menubar -borderwidth 0 -activeborderwidth -0
! 		}
  
  		set msnmenu [CreateMsnMenu $w $mainmenu]

Index: gui.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/gui.tcl,v
retrieving revision 1.1229
retrieving revision 1.1230
diff -C2 -d -r1.1229 -r1.1230
*** gui.tcl	12 Feb 2006 22:15:36 -0000	1.1229
--- gui.tcl	26 Feb 2006 20:26:22 -0000	1.1230
***************
*** 22,25 ****
--- 22,26 ----
  } else {
  	package require pixmapscroll
+ 	package require pixmapmenu
  }
  
***************
*** 3235,3239 ****
  
  	#Main menu
! 	menu .main_menu -tearoff 0 -type menubar -borderwidth 0 -activeborderwidth -0
  
  	#Change the name of the main menu on Mac OS X(TK Aqua) for "File"
--- 3236,3244 ----
  
  	#Main menu
! 	if { [package provide pixmapmenu] != "" } {
! 		pack [menubar .main_menu] -fill x -side top
! 	} else {
! 		menu .main_menu -tearoff 0 -type menubar -borderwidth 0 -activeborderwidth -0
! 	}
  
  	#Change the name of the main menu on Mac OS X(TK Aqua) for "File"