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
032ff969
Commit
032ff969
authored
May 13, 2005
by
John van Groningen
Browse files
rename function initPlatformCommandLine as initPlatformCommandLineArguments
parent
e451f510
Changes
3
Hide whitespace changes
Inline
Side-by-side
Ide/IDE.icl
View file @
032ff969
...
...
@@ -231,7 +231,7 @@ where
#
(
twi
,
ps
)
=
accPLoc
getTypeWinInfo
ps
#
twi
=
TW_SetUpd
([
menuIds
.
mn_cut
,
menuIds
.
mn_pst
,
menuIds
.
mn_clr
:
menuIds
.
mg_edt
])
twi
#
ps
=
appPLoc
(
setTypeWinInfo
twi
)
ps
#
(
files
,
ps
)
=
initPlatformCommandLine
ps
#
(
files
,
ps
)
=
initPlatformCommandLine
Arguments
ps
#
ps
=
openfiles
files
ps
#
ps
=
SetProcessIcon
CleanIcon
ps
=
installPlatformEventHandlers
ps
...
...
Win/Platform.dcl
View file @
032ff969
...
...
@@ -5,7 +5,7 @@ import StdIOCommon
PlatformDependant
win
mac
:==
win
initPlatformCommandLine
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLine
Arguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
...
...
Win/Platform.icl
View file @
032ff969
...
...
@@ -44,8 +44,8 @@ where
ccall
GetPrivateProfileStringA@24
"PsssIIs:I:I"
}
initPlatformCommandLine
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLine
ps
initPlatformCommandLine
Arguments
::
!*(
PSt
.
l
)
->
(![
String
],!*
PSt
.
l
)
initPlatformCommandLine
Arguments
ps
#
args
=
cl_args
#
args
=
[
arg
\\
arg
<-:
args
]
#
args
=
filter_opts
args
...
...
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