Commit aab0e82e authored by John van Groningen's avatar John van Groningen

move ew_safe_close and tw_safe_close calls in BringProjectUptoDate

to callers
parent 7fb7c206
...@@ -1162,6 +1162,8 @@ pinit force_update proj proj_path ps ...@@ -1162,6 +1162,8 @@ pinit force_update proj proj_path ps
# ps = setProject proj ps # ps = setProject proj ps
# ps = setPath proj_path ps # ps = setPath proj_path ps
# ps = selectProjectTarget getTargets ps # ps = selectProjectTarget getTargets ps
# ps = ew_safe_close ps // close error window
# ps = tw_safe_close ps // close types window
# ps = BringProjectUptoDate force_update cleanup ps # ps = BringProjectUptoDate force_update cleanup ps
= ps = ps
where where
......
...@@ -713,7 +713,7 @@ where ...@@ -713,7 +713,7 @@ where
pm_upto :: !Bool !*(PSt *General) -> *PSt *General; pm_upto :: !Bool !*(PSt *General) -> *PSt *General;
pm_upto force ps pm_upto force ps
# ps = ed_ask_save_all False True (enableProjectMenu o BringProjectUptoDate force cont o disableProjectMenu) ps # ps = ed_ask_save_all False True (enableProjectMenu o bring_project_upto_date force cont o disableProjectMenu) ps
= mb_update_undoinfo ps = mb_update_undoinfo ps
where where
cont path linked ok ps cont path linked ok ps
...@@ -723,7 +723,7 @@ where ...@@ -723,7 +723,7 @@ where
pm_exec :: !*(PSt *General) -> *PSt *General; pm_exec :: !*(PSt *General) -> *PSt *General;
pm_exec ps pm_exec ps
# ps = ed_ask_save_all False True (enableProjectMenu o BringProjectUptoDate False cont o disableProjectMenu) ps # ps = ed_ask_save_all False True (enableProjectMenu o bring_project_upto_date False cont o disableProjectMenu) ps
= mb_update_undoinfo ps = mb_update_undoinfo ps
where where
cont execpath linked ok ps cont execpath linked ok ps
...@@ -753,6 +753,13 @@ pm_run ps ...@@ -753,6 +753,13 @@ pm_run ps
= RunProgram execpath ps = RunProgram execpath ps
= RunProgram execpath ps = RunProgram execpath ps
bring_project_upto_date :: !Bool CleanupCont !*(PSt *General) -> *PSt *General
bring_project_upto_date force continuation ps
# ps = ew_safe_close ps // close error window
# ps = tw_safe_close ps // close types window
= BringProjectUptoDate force continuation ps
//-- //--
disableProjectMenu ps disableProjectMenu ps
......
...@@ -8,9 +8,9 @@ import UtilNewlinesFile, UtilIO ...@@ -8,9 +8,9 @@ import UtilNewlinesFile, UtilIO
import IdeState import IdeState
from typewin import updateTypeWindow, tw_safe_close, class Typer, :: TypeWinInfo from typewin import updateTypeWindow, class Typer, :: TypeWinInfo
from typeatt import typeWinKeyboard, typeWinMouse from typeatt import typeWinKeyboard, typeWinMouse
from errwin import updateErrorWindow, ew_safe_close from errwin import updateErrorWindow
from messwin import showInfo, :: InfoMessage(..) from messwin import showInfo, :: InfoMessage(..)
from projwin import pm_update_project_window from projwin import pm_update_project_window
...@@ -139,9 +139,6 @@ BringProjectUptoDate :: !Bool CleanupCont !*GeneralSt -> *GeneralSt ...@@ -139,9 +139,6 @@ BringProjectUptoDate :: !Bool CleanupCont !*GeneralSt -> *GeneralSt
BringProjectUptoDate force continuation ps BringProjectUptoDate force continuation ps
# (project,ps) = getProject ps # (project,ps) = getProject ps
# ps = ew_safe_close ps // close error window
# ps = tw_safe_close ps // close types window
# ps = PrecompileFase project ps # ps = PrecompileFase project ps
# ps = showInfo (Level1 "Bring up to date...") ps # ps = showInfo (Level1 "Bring up to date...") 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