Commit 590805fa authored by Diederik van Arkel's avatar Diederik van Arkel

disable project menu during bring up to date

parent c222a6ae
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment