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
590805fa
Commit
590805fa
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
disable project menu during bring up to date
parent
c222a6ae
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/projwin.icl
View file @
590805fa
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
=
Make
Def
Pathname
root
#
imppath
=
Make
Imp
Pathname
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
...
...
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