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
e559503b
Commit
e559503b
authored
Feb 25, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Mac updates
parent
f49ab2a5
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
15 additions
and
9 deletions
+15
-9
Mac/IdePlatform.dcl
Mac/IdePlatform.dcl
+3
-2
Mac/IdePlatform.icl
Mac/IdePlatform.icl
+7
-2
Mac/Platform.dcl
Mac/Platform.dcl
+1
-1
Mac/Platform.icl
Mac/Platform.icl
+2
-2
Mac/PmCleanSystem.icl
Mac/PmCleanSystem.icl
+2
-2
No files found.
Mac/IdePlatform.dcl
View file @
e559503b
definition
module
IdePlatform
import
StdPSt
,
StdString
import
StdPSt
,
StdString
,
StdFile
import
StdIOCommon
from
IdeState
import
::
General
...
...
@@ -20,7 +20,8 @@ AbcmodIcon :== 32514
toolIconFun
::
!
String
!(
Maybe
String
)
!(
IdFun
.
st
)
![(
ToolbarItem
.
st
)]
!*
env
->
(![(
ToolbarItem
.
st
)],!*
env
)
|
FileSystem
env
AboutBitmap
:==
""
getAboutBitmap
::
!*
env
->
(!
Maybe
Bitmap
,
!*
env
)
|
FileEnv
env
findBM
:==
"findBM.bmp"
newfBM
:==
"newfBM.bmp"
openBM
:==
"openBM.bmp"
...
...
Mac/IdePlatform.icl
View file @
e559503b
...
...
@@ -2,7 +2,7 @@ implementation module IdePlatform
import
StdPSt
import
StdArray
,
StdEnum
,
StdList
import
StdFunc
import
StdFunc
,
StdSystem
import
PmCleanSystem
import
errwin
from
IdeState
import
::
General
...
...
@@ -51,7 +51,12 @@ DefmodIcon :== 32515
CleanIcon
:==
32512
AbcmodIcon
:==
32514
AboutBitmap
:==
""
getAboutBitmap
::
!*
env
->
(!
Maybe
Bitmap
,
!*
env
)
|
FileEnv
env
getAboutBitmap
env
=
accFiles
(
openBitmap
AboutBitmap
)
env
AboutBitmap
:==
applicationpath
"bitmaps:aboutIDE.pict"
findBM
:==
"findBM.bmp"
newfBM
:==
"newfBM.bmp"
openBM
:==
"openBM.bmp"
...
...
Mac/Platform.dcl
View file @
e559503b
...
...
@@ -9,7 +9,7 @@ initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
T
oolt
empDir
::
String
TempDir
::
String
EnvsDir
::
String
PrefsDir
::
String
BitmapDir
::
String
...
...
Mac/Platform.icl
View file @
e559503b
...
...
@@ -45,8 +45,8 @@ install_apple_event_handlers
call
.
install_apple_event_handlers
}
T
oolt
empDir
::
String
T
oolt
empDir
=
applicationpath
"Temp"
TempDir
::
String
TempDir
=
applicationpath
"Temp"
EnvsDir
::
String
EnvsDir
=
applicationpath
"Config"
...
...
Mac/PmCleanSystem.icl
View file @
e559503b
...
...
@@ -497,8 +497,8 @@ Link linker` winfun path
,
dynamics_path
=
""
}
#
linkerpath
=
RemoveFilename
linker
#
linkoptspath
=
MakeFullPathname
T
oolt
empDir
"linkopts"
#
linkerrspath
=
MakeFullPathname
T
oolt
empDir
"linkerrs"
#
linkoptspath
=
MakeFullPathname
TempDir
"linkopts"
#
linkerrspath
=
MakeFullPathname
TempDir
"linkerrs"
#
(
err
,
ps
)
=
accFiles
(
WriteLinkOpts
linkoptspath
linkopts
)
ps
|
isJust
err
=
(
winfun
(
fromJust
err
)
ps
,
False
)
...
...
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