[frontierkernel-commits] odbs/frontierRoot/system/menus buildMenuBar,1.3,1.4,

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/menus
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16541

Modified Files:
	buildMenuBar 
Log Message:
use script to build help menu which are different between Mac and Windows

Index: buildMenuBar
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/buildMenuBar,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** buildMenuBar	5 Sep 2005 16:20:44 -0000	1.3
--- buildMenuBar	15 Feb 2006 05:16:31 -0000	1.4
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.menus.buildMenuBar
  
! ÇChanges
	Ç9/5/05; 8:46:08 AM by TAC
		Çcan now run a script to install a menu
	Ç12/4/04; 11:59:40 PM by TAC
		Çcommented out bookmarkmenu in case statement
		Çdisabled modal menu install, let agent handle it

on add (adrmenu) {
	try {
		menu.install (adrmenu)}};

menu.clearMenuBar ();

bundle { //install menus
	if defined (user.menus.menubar) {
		add (@user.menus.menubar)}
	else {
		add (@system.menus.menubar)};
	Çhtml.menu.install () // 11/27/04; 12:07:59 PM by TAC
	Çadd (@user.menus.bookmarkMenu) // 11/27/04; 12:08:05 PM by TAC
	add (@user.menus.customMenu);
	local (i);
	for i = 1 to sizeOf (user.menus) { //PBS 8/13/98: add additional user menus
		local (adrMenu = @user.menus [i]);
		if typeOf (adrMenu^) == addressType { //menus can be address
			if not defined (adrMenu^^) {
				continue};
			adrMenu = adrMenu^};
		if typeOf (adrMenu^) == menuBarType {
			case string.lower (nameOf (user.menus [i])) {
				Ç"bookmarkmenu"
				"custommenu";
				"menubar" {
					continue}};
			add (adrMenu)};
		if typeOf (adrMenu^) == scriptType { // 9/5/05; 8:46:08 AM by TAC
			adrMenu^ ()}};
	add (@system.menus.helpMenu)};

Çbundle //add the modal menu, based on the type of the frontmost window
	Çlocal (winType = window.getType (window.frontmost ()))
	Çtry
		Çmenu.install (@system.menus.modals.[winType])
	Çelse
		ÇwinType = 0
	Çsystem.menus.data.currentMenuType = winType //see system.menus.agent

menu.buildMenuBar () //force update
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.menus.buildMenuBar
  
! ÇChanges
	Ç2/14/06; 4:01:07 PM by TAC
		Çuse script to build help menu which are different between Mac and Windows
	Ç9/5/05; 8:46:08 AM by TAC
		Çcan now run a script to install a menu
	Ç12/4/04; 11:59:40 PM by TAC
		Çcommented out bookmarkmenu in case statement
		Çdisabled modal menu install, let agent handle it

on add (adrmenu) {
	try {
		menu.install (adrmenu)}};

menu.clearMenuBar ();

bundle { //install menus
	if defined (user.menus.menubar) {
		add (@user.menus.menubar)}
	else {
		add (@system.menus.menubar)};
	Çhtml.menu.install () // 11/27/04; 12:07:59 PM by TAC
	Çadd (@user.menus.bookmarkMenu) // 11/27/04; 12:08:05 PM by TAC
	add (@user.menus.customMenu);
	
	local (i);
	
	for i = 1 to sizeOf (user.menus) { //PBS 8/13/98: add additional user menus
		local (adrMenu = @user.menus [i]);
		
		if typeOf (adrMenu^) == addressType { //menus can be address
			if not defined (adrMenu^^) {
				continue};
			
			adrMenu = adrMenu^};
		
		if typeOf (adrMenu^) == menuBarType {
			case string.lower (nameOf (user.menus [i])) {
				Ç"bookmarkmenu"
				"custommenu";
				"menubar" {
					continue}};
			
			add (adrMenu)};
		
		if typeOf (adrMenu^) == scriptType { // 9/5/05; 8:46:08 AM by TAC
			adrMenu^ ()}};
	
	system.menus.buildHelpMenu ()};
	Çadd (@system.menus.helpMenu)

Çbundle //add the modal menu, based on the type of the frontmost window
	Çlocal (winType = window.getType (window.frontmost ()))
	Çtry
		Çmenu.install (@system.menus.modals.[winType])
	Çelse
		ÇwinType = 0
	Çsystem.menus.data.currentMenuType = winType //see system.menus.agent

menu.buildMenuBar () //force update
\ No newline at end of file