disable project menu during bring up to date

Ide/projwin.icl

 implementation module projwin
 
 import StdArray, StdFunc, StdMisc, StdOrdList, StdTuple
-import StdClipboard,StdControlReceiver,StdFileSelect,StdMenuElement,StdPStClass,StdSystem
+import StdClipboard,StdControlReceiver,StdFileSelect,StdMenu,StdMenuElement,StdPStClass,StdSystem
 import ExtListBox, ExtNotice
 import EdClient
 import PmProject, PmFiles, UtilStrictLists, PmPath
@@ -510,7 +510,7 @@ where
 			# (exists,ps)	= accFiles (FExists defpath) ps
 			| exists
 				= OpenModule defpath emptySelection ps
-			# imppath		= MakeDefPathname root
+			# imppath		= MakeImpPathname root
 			= OpenModule imppath emptySelection ps
 		less a b c d
 			| before b d = True		// use < -ordening of searchpaths...
@@ -629,7 +629,7 @@ where
 
 pm_upto :: !Bool !*(PSt *General) -> *PSt *General;
 pm_upto force ps
-	# ps = ed_ask_save_all False True (BringProjectUptoDate force cont) ps
+	# ps = ed_ask_save_all False True (enableProjectMenu o BringProjectUptoDate force cont o disableProjectMenu) ps
 	= mb_update_undoinfo ps
 where
 	cont path linked ok ps
@@ -639,7 +639,7 @@ where
 
 pm_exec :: !*(PSt *General) -> *PSt *General;
 pm_exec ps
-	# ps = ed_ask_save_all False True (BringProjectUptoDate False cont) ps
+	# ps = ed_ask_save_all False True (enableProjectMenu o BringProjectUptoDate False cont o disableProjectMenu) ps
 	= mb_update_undoinfo ps
 where
 	cont execpath linked ok ps
@@ -671,6 +671,16 @@ pm_run ps
 
 //--
 
+disableProjectMenu ps
+	# (mIds,ps)	= getMenuIds ps
+	# ps		= appPIO (disableMenus [mIds.pm_menuid]) ps
+	= ps
+enableProjectMenu ps
+	# (mIds,ps)	= getMenuIds ps
+	# ps		= appPIO (enableMenus [mIds.pm_menuid]) ps
+	= ps
+//--
+
 pm_build :: !.a -> .a;
 pm_build ps			// rebuild project from scratch
 	= ps