Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
aab0e82e
Commit
aab0e82e
authored
Jan 20, 2009
by
John van Groningen
Browse files
move ew_safe_close and tw_safe_close calls in BringProjectUptoDate
to callers
parent
7fb7c206
Changes
3
Hide whitespace changes
Inline
Side-by-side
Ide/IDE.icl
View file @
aab0e82e
...
...
@@ -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
...
...
Ide/projwin.icl
View file @
aab0e82e
...
...
@@ -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
B
ring
P
roject
U
pto
D
ate
force
cont
o
disableProjectMenu
)
ps
#
ps
=
ed_ask_save_all
False
True
(
enableProjectMenu
o
b
ring
_p
roject
_u
pto
_d
ate
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
B
ring
P
roject
U
pto
D
ate
False
cont
o
disableProjectMenu
)
ps
#
ps
=
ed_ask_save_all
False
True
(
enableProjectMenu
o
b
ring
_p
roject
_u
pto
_d
ate
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
...
...
Pm/PmDriver.icl
View file @
aab0e82e
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment