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
# ps = setProject proj ps
# ps = setPath proj_path 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
where
......
......@@ -713,7 +713,7 @@ where
pm_upto :: !Bool !*(PSt *General) -> *PSt *General;
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
where
cont path linked ok ps
......@@ -723,7 +723,7 @@ where
pm_exec :: !*(PSt *General) -> *PSt *General;
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
where
cont execpath linked ok ps
......@@ -753,6 +753,13 @@ pm_run 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
......
......@@ -8,9 +8,9 @@ import UtilNewlinesFile, UtilIO
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 errwin import updateErrorWindow, ew_safe_close
from errwin import updateErrorWindow
from messwin import showInfo, :: InfoMessage(..)
from projwin import pm_update_project_window
......@@ -139,9 +139,6 @@ BringProjectUptoDate :: !Bool CleanupCont !*GeneralSt -> *GeneralSt
BringProjectUptoDate force continuation 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 = 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