Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
3ffe0e67
Commit
3ffe0e67
authored
Feb 21, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
minor cleanup
parent
4c2bae7d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
11 deletions
+7
-11
Ide/IDE.icl
Ide/IDE.icl
+7
-11
No files found.
Ide/IDE.icl
View file @
3ffe0e67
...
...
@@ -31,8 +31,10 @@ from PmCleanSystem import QuitCleanCompiler
import
Platform
,
IdePlatform
import
PmDriver
import
StdSystem
import
StdSystem
,
StdClipboard
//import dodebug
//trace_n m f :== trace_n` m f
trace_n
_
f
:==
f
//--
...
...
@@ -44,7 +46,7 @@ ensureDirectory pd_string env
=
(
ok
,
env
)
#
(
err_code
,
env
)
=
createDirectory
path
env
=
(
err_code
==
NoDirError
||
err_code
==
AlreadyExists
,
env
)
//import dodebug
Start
::
!*
World
->
*
World
Start
world
#
(
stup
,
world
)
=
accFiles
GetFullApplicationPath
world
...
...
@@ -66,13 +68,8 @@ Start world
#!
(
prefs
,
world
)
=
openPrefs
prefspath
world
#
envspath
=
MakeFullPathname
EnvsDir
EnvsFileName
#!
(
iniTargets
,
world
)
=
openEnvironments
stup
envspath
world
// # envspath = EnvsDir
// # (iniTargets,world) = getEnvironments stup envspath world
// # world = trace_n` ("entries",listToString entries) world
// #! (iniTargets,world)
// = openEnvironments stup envspath world
#!
(
iniTargets
,
world
)
=
openEnvironments
stup
envspath
world
#
(
ffind
,
world
)
=
initFindBoxInfo
prefs
world
#
(
iniTwi
,
world
)
=
iniTypeWinInfo
mEditId
mEdUndoId
([])
prefs
.
typ_prefs
world
...
...
@@ -113,7 +110,6 @@ Start world
world
#
patt
=
[
ProcessClose
(
Quit
prefspath
)
,
ProcessOpenFiles
openfiles
// , ProcessActivate (trace_n` "ACTIVATE!")
// , ProcessClipboardChanged clip_changed
:
toolbar
]
++
PlatformProcessAttributes
...
...
@@ -932,7 +928,7 @@ where
=
ps
//--
import
StdClipboard
ed_Undo
ps
#
(_,
ps
)
=
sendToActiveWindow
msgUndo
ps
=
mb_update_undoinfo
ps
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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