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
eaf628e7
Commit
eaf628e7
authored
Mar 14, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
move getDialogBackgroundColour and isWindow to UtilIO
parent
28ee0ad2
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
15 additions
and
8 deletions
+15
-8
Mac/IdePlatform.dcl
Mac/IdePlatform.dcl
+0
-1
Mac/IdePlatform.icl
Mac/IdePlatform.icl
+0
-4
Mac/UtilIO.dcl
Mac/UtilIO.dcl
+3
-1
Mac/UtilIO.icl
Mac/UtilIO.icl
+12
-2
No files found.
Mac/IdePlatform.dcl
View file @
eaf628e7
...
...
@@ -10,7 +10,6 @@ RunProgram :: !.String !*(PSt General) -> *PSt General
SetWindowIcon
::
!
Id
!
Int
!(
PSt
.
l
)
->
PSt
.
l
SetProcessIcon
::
!
Int
!(
PSt
.
l
)
->
PSt
.
l
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,
!
PSt
.
l
)
ProjectIcon
:==
32513
ImpmodIcon
:==
32516
...
...
Mac/IdePlatform.icl
View file @
eaf628e7
...
...
@@ -23,10 +23,6 @@ PlatformInteractiveInit :: !*(PSt General) -> *PSt General
PlatformInteractiveInit
ps
=
ps
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,!
PSt
.
l
)
GetDialogBackgroundColour
ps
=
(
White
/*LightGrey*/
,
ps
)
// Mac Appearance dependant!
PlatformProcessAttributes
::
[
ProcessAttribute
*(
PSt
General
)]
PlatformProcessAttributes
=
[]
...
...
Mac/UtilIO.dcl
View file @
eaf628e7
...
...
@@ -26,10 +26,12 @@ FReadOnly :: !{#Char} !*env -> (!Bool, !*env) | FileSystem env
GetLongPathName
::
!
String
->
String
;
GetShortPathName
::
!
String
->
(!
Bool
,!
String
);
import
StdPSt
,
StdMaybe
import
StdPSt
,
StdMaybe
,
StdPictureDef
,
StdId
selectInputFile`
::
!(
PSt
.
l
)
->
(!
Maybe
String
,!(
PSt
.
l
))
selectOutputFile`
::
!
String
!
String
!
String
!(
PSt
.
l
)
->
(!
Maybe
String
,!(
PSt
.
l
))
selectDirectory`
::
!(
PSt
.
l
)
->
(!
Maybe
String
,!(
PSt
.
l
))
ShellDefault
::
!{#
Char
}
!(
PSt
.
l
)
->
(!
Int
,!(
PSt
.
l
))
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,
!
PSt
.
l
)
isWindow
::
!
Id
*(
PSt
.
l
)
->
(
Bool
,*(
PSt
.
l
))
Mac/UtilIO.icl
View file @
eaf628e7
...
...
@@ -6,7 +6,7 @@ implementation module UtilIO
import
StdArray
,
StdBool
,
StdClass
,
StdFile
,
StdList
,
StdMisc
import
UtilDate
import
StdSystem
import
StdSystem
,
StdWindow
import
ostypes
,
OS_utilities
;
from
files
import
GetFInfo
,
GetCatInfo1
,
GetCatInfo2
/*,GetWDInfo*/
,
HGetVol
;
...
...
@@ -151,7 +151,7 @@ GetFName ioNamePtr t = code (ioNamePtr=R80O0D0SD1,t=U)(ioResult=D0,ioDate_and_Ti
instruction
0x8321004C
|
lwz
r25
,
76
(
sp
)
};
import
StdFileSelect
,
StdPSt
,
StdPStClass
import
StdFileSelect
,
StdPSt
,
StdPStClass
,
StdPictureDef
selectInputFile`
::
!(
PSt
.
l
)
->
(!
Maybe
String
,!(
PSt
.
l
))
selectInputFile`
ps
...
...
@@ -174,3 +174,13 @@ where
ShellDefault
::
!{#
Char
}
!(
PSt
.
l
)
->
(!
Int
,!(
PSt
.
l
))
ShellDefault
_
ps
=
abort
"no ShellDefault on a Mac silly:-)"
GetDialogBackgroundColour
::
!(
PSt
.
l
)
->
(!
Colour
,!
PSt
.
l
)
GetDialogBackgroundColour
ps
=
(
White
/*LightGrey*/
,
ps
)
// Mac Appearance dependant!
isWindow
::
!
Id
*(
PSt
.
l
)
->
(
Bool
,*(
PSt
.
l
))
isWindow
wId
ps
#
(
s
,
ps
)
=
accPIO
getWindowsStack
ps
=
(
isMember
wId
s
,
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