[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/menu clearMenubar,1.2,1.3

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/menu
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12406

Modified Files:
	clearMenubar 
Log Message:
explicitly return value of kernel call, previosuly returned whatever was the return value of the last line, not good

Index: clearMenubar
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/menu/clearMenubar,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** clearMenubar	7 Aug 2005 21:47:39 -0000	1.2
--- clearMenubar	7 Aug 2005 23:11:48 -0000	1.3
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.menu.clearMenubar
  
! on clearMenubar () {
	ÇChanges
		Ç8/7/05; 2:02:52 PM by TAC
			Çadded system.menus.data.currentMenuType
	on kernelcall () {
		kernel (menu.clearmenubar)};
	
	kernelcall ();
	
	system.menus.data.currentSuite = "";
	system.menus.data.currentmenu = '????';
	system.menus.data.currentMenuType = nil}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.menu.clearMenubar
  
! on clearMenubar () {
	ÇChanges
		Ç8/7/05; 3:35:48 PM by TAC
			Çexplicitly return value of kernel call, previosuly returned whatever was the return value of the last line, not good
			Çadded system.menus.data.currentMenuType
	
	on kernelcall () {
		kernel (menu.clearmenubar)};
	
	local (fl = kernelcall ());
	
	system.menus.data.currentSuite = "";
	system.menus.data.currentmenu = '????';
	system.menus.data.currentMenuType = nil;
	
	return (fl)}
\ No newline at end of file