[frontierkernel-commits] odbs/frontierRoot/system/menus buildSuitesSubmenu,1.1.1.1,1.2

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

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

Modified Files:
	buildSuitesSubmenu 
Log Message:
Main menu is now Operations

Index: buildSuitesSubmenu
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/buildSuitesSubmenu,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** buildSuitesSubmenu	26 Mar 2005 19:41:50 -0000	1.1.1.1
--- buildSuitesSubmenu	14 Jun 2005 02:48:18 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.menus.buildSuitesSubmenu
  
! on buildSuitesSubMenu () {
	ÇBuild the Suites submenu in the Main menu.
		ÇChanges:
			Ç9/23/99; 2:58:52 PM by PBS
				ÇYou can put the address of a suite in the suites table, and it will be added to the menu.
			Ç9/24/99; 10:50:48 AM by PBS
				ÇIf the suite is in a gdb, and the gdb is open, and the suite contains a suiteName item, use that when building the Suites submenu. Otherwise, if the gdb is not open, use the name of the object in the Suites table.
	
	local (localMenu = system.menus.virginSuitesMenu);
	local (oldTarget = target.get ());
	target.set (@localMenu);
	
	local (adrSuitesTable = @root.suites);
	local (i, ct = sizeOf (adrSuitesTable^), adrSuite, adrMenu, name, logic);
	for i = 1 to ct {
		adrSuite = @adrSuitesTable^ [i];
		
		local (suiteType = typeOf (adrSuite^));
		case suiteType { //handle tables and addresses
			tableType {
				adrMenu = @adrsuite^.menu;
				if not defined (adrMenu^) {
					continue};
				if typeOf (adrMenu^) != menubarType {
					continue};
				try {
					name = adrSuite^.suiteName}
				else {
					name = nameOf (adrSuite^)}};
			addressType {
				name = nameOf (adrSuite^);
				if defined (adrSuite^^.suiteName) { //PBS 9/24/99: if the gdb is open, and the suite contains a suiteName, use it
					name = adrSuite^^.suiteName}}}
		else { //if it's not a table or address, continue
			continue};
		
		logic = "system.menus.swapInSuite (@" + adrSuite + ")";
		menu.addMenuCommand (@localMenu, "Suites", name, logic)};
	
	if system.environment.isMac {
		menu.addSubMenu (@system.menus.menubar, "Main", @localMenu)};
	if system.environment.isWindows {
		menu.addSubMenu (@system.menus.menubar, "&Main", @localMenu)};
	
	try {target.set (oldTarget)}}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.menus.buildSuitesSubmenu
  
! on buildSuitesSubMenu () {
	ÇBuild the Suites submenu in the Main menu.
		ÇChanges
			Ç12/4/04; 12:30:36 PM by TAC
				ÇMain menu is now Operations
			Ç9/23/99; 2:58:52 PM by PBS
				ÇYou can put the address of a suite in the suites table, and it will be added to the menu.
			Ç9/24/99; 10:50:48 AM by PBS
				ÇIf the suite is in a gdb, and the gdb is open, and the suite contains a suiteName item, use that when building the Suites submenu. Otherwise, if the gdb is not open, use the name of the object in the Suites table.
	
	local (localMenu = system.menus.virginSuitesMenu);
	local (oldTarget = target.get ());
	target.set (@localMenu);
	
	local (adrSuitesTable = @root.suites);
	local (i, ct = sizeOf (adrSuitesTable^), adrSuite, adrMenu, name, logic);
	for i = 1 to ct {
		adrSuite = @adrSuitesTable^ [i];
		
		local (suiteType = typeOf (adrSuite^));
		case suiteType { //handle tables and addresses
			tableType {
				adrMenu = @adrsuite^.menu;
				if not defined (adrMenu^) {
					continue};
				if typeOf (adrMenu^) != menubarType {
					continue};
				try {
					name = adrSuite^.suiteName}
				else {
					name = nameOf (adrSuite^)}};
			addressType {
				name = nameOf (adrSuite^);
				if defined (adrSuite^^.suiteName) { //PBS 9/24/99: if the gdb is open, and the suite contains a suiteName, use it
					name = adrSuite^^.suiteName}}}
		else { //if it's not a table or address, continue
			continue};
		
		logic = "system.menus.swapInSuite (@" + adrSuite + ")";
		menu.addMenuCommand (@localMenu, "Suites", name, logic)};
	
	if system.environment.isMac {
		menu.addSubMenu (@system.menus.menubar, "Operations", @localMenu)}; // 6/12/05; 11:59:39 PM by TAC
	if system.environment.isWindows {
		menu.addSubMenu (@system.menus.menubar, "&Operations", @localMenu)}; // 6/12/05; 11:59:48 PM by TAC
	
	try {target.set (oldTarget)}}
\ No newline at end of file