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
28ee0ad2
Commit
28ee0ad2
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
72e53eef
Changes
6
Hide whitespace changes
Inline
Side-by-side
Showing
6 changed files
with
12 additions
and
16 deletions
+12
-16
Ide/conswin.icl
Ide/conswin.icl
+1
-6
Ide/edoptions.icl
Ide/edoptions.icl
+1
-1
Ide/errwin.icl
Ide/errwin.icl
+1
-1
Ide/typewin.icl
Ide/typewin.icl
+1
-6
Win/UtilIO.dcl
Win/UtilIO.dcl
+2
-1
Win/UtilIO.icl
Win/UtilIO.icl
+6
-1
No files found.
Ide/conswin.icl
View file @
28ee0ad2
...
...
@@ -8,15 +8,10 @@ import EdMouse, EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,::
List
(:!),
IsEmptyList
import
IDE
,
IdeState
,
IdePlatform
import
IDE
,
IdeState
,
UtilIO
//--
isWindow
::
!
Id
*(
PSt
.
l
)
->
(
Bool
,*(
PSt
.
l
))
isWindow
wId
ps
#
(
s
,
ps
)
=
accPIO
getWindowsStack
ps
=
(
isMember
wId
s
,
ps
)
isConsoleWindow
::
!
Id
!.
ConsWinInfo
->
Bool
isConsoleWindow
xId
{
ConsWinInfo
|
wId
}
=
xId
==
wId
...
...
Ide/edoptions.icl
View file @
28ee0ad2
...
...
@@ -4,7 +4,7 @@ import StdTuple, StdEnum, StdList, StdFunc, StdMisc
import
StdMenu
,
StdWindow
,
StdId
,
StdPSt
,
StdControl
import
StdClipboard
,
StdControlReceiver
import
EdKeyMapping
,
EdState
,
EdClient
,
EdKeyboard
import
IDE
,
IdeState
,
ExtNotice
,
IdePlatform
import
IDE
,
IdeState
,
ExtNotice
,
UtilIO
import
colorpickcontrol
import
ioutil
,
morecontrols
import
typewin
,
colourclip
...
...
Ide/errwin.icl
View file @
28ee0ad2
...
...
@@ -12,7 +12,7 @@ from IdeState import :: General, getErrInfo, setErrInfo, :: ErrorInfo, :: MenuId
from
IdeState
import
::
SearchMenuIds
,
::
PLMMessage
,
::
PLMReply
,
::
MIn
,
::
EditMenuLS
,
getInteract
,
writeLog
from
EdClient
import
lineSelection
import
EdClient
import
IdePlatform
import
UtilIO
/*
ADD:
...
...
Ide/typewin.icl
View file @
28ee0ad2
...
...
@@ -8,17 +8,12 @@ import EdMouse, EdKeyboard
from
StrictList
import
slFromList
from
UtilStrictLists
import
StrictListToList
,::
List
(:!),
IsEmptyList
import
IDE
,
IdeState
,
IdePlatform
import
IDE
,
IdeState
,
UtilIO
import
morecontrols
,
colorpickcontrol
,
ioutil
,
colourclip
import
StdClipboard
//--
isWindow
::
!
Id
*(
PSt
.
l
)
->
(
Bool
,*(
PSt
.
l
))
isWindow
wId
ps
#
(
s
,
ps
)
=
accPIO
getWindowsStack
ps
=
(
isMember
wId
s
,
ps
)
isTypeWindow
::
!
Id
!.
TypeWinInfo
->
Bool
isTypeWindow
xId
{
TypeWinInfo
|
wId
}
=
xId
==
wId
...
...
Win/UtilIO.dcl
View file @
28ee0ad2
definition
module
UtilIO
import
StdString
,
StdFile
import
StdPSt
,
StdMaybe
,
StdPictureDef
import
StdPSt
,
StdMaybe
,
StdPictureDef
,
StdId
import
UtilDate
LaunchApplication
::
!{#
Char
}
!{#
Char
}
!
Bool
!
Files
->
(
!
Bool
,
!
Files
)
...
...
@@ -32,3 +32,4 @@ 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
))
Win/UtilIO.icl
View file @
28ee0ad2
...
...
@@ -6,7 +6,7 @@ implementation module UtilIO
import
StdArray
,
StdBool
,
StdClass
,
StdFile
,
StdList
import
UtilDate
import
StdSystem
import
StdSystem
,
StdWindow
import
code
from
library
"util_io_kernel_lib"
import
code
from
library
"util_io_shell_lib"
...
...
@@ -521,3 +521,8 @@ where
gcol
=
(
col
bitand
0x0000FF00
)
>>
8
bcol
=
(
col
bitand
0x00FF0000
)
>>
16
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