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
a58ff24c
Commit
a58ff24c
authored
Mar 10, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
get/setModified dummy windows implementation
parent
120d6838
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
0 deletions
+11
-0
Win/Platform.dcl
Win/Platform.dcl
+4
-0
Win/Platform.icl
Win/Platform.icl
+7
-0
No files found.
Win/Platform.dcl
View file @
a58ff24c
definition
module
Platform
import
StdPSt
,
StdString
import
StdIOCommon
PlatformDependant
win
mac
:==
win
...
...
@@ -8,6 +9,9 @@ initPlatformCommandLine :: !*(PSt .l) -> (![String],!*PSt .l)
installPlatformEventHandlers
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
openPlatformWindowMenu
::
!*(
PSt
.
l
)
->
*(
PSt
.
l
)
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
ToolsDir
::
String
TempDir
::
String
EnvsDir
::
String
...
...
Win/Platform.icl
View file @
a58ff24c
...
...
@@ -7,6 +7,7 @@ import UtilIO
from
StdSystem
import
dirseparator
import
code
from
library
"platform_kernel_library"
import
clCCall_12
,
ostoolbox
import
StdIOCommon
import
logfile
,
set_return_code
PlatformDependant
win
mac
:==
win
...
...
@@ -89,6 +90,12 @@ openPlatformWindowMenu :: !*(PSt .l) -> *(PSt .l)
openPlatformWindowMenu
ps
=
ps
getWindowModified
::
!
Id
!(
IOSt
.
l
)
->
(!
Maybe
Bool
,!
IOSt
.
l
)
getWindowModified
_
io
=
(
Nothing
,
io
)
setWindowModified
::
!
Id
!
String
!
Bool
!(
IOSt
.
l
)
->
IOSt
.
l
setWindowModified
_
_
_
io
=
io
//====
inifilename
...
...
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