Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-libraries
Commits
20366fcf
Commit
20366fcf
authored
Nov 26, 2001
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Modified for new 2.0 import syntax
parent
4621ec02
Changes
164
Hide whitespace changes
Inline
Side-by-side
Showing
75 changed files
with
157 additions
and
163 deletions
+157
-163
ObjectIO/GameLib/GameFunctions.dcl
ObjectIO/GameLib/GameFunctions.dcl
+1
-1
ObjectIO/GameLib/StdGSt.dcl
ObjectIO/GameLib/StdGSt.dcl
+1
-1
ObjectIO/GameLib/StdGame.dcl
ObjectIO/GameLib/StdGame.dcl
+3
-5
ObjectIO/GameLib/StdGame.icl
ObjectIO/GameLib/StdGame.icl
+0
-1
ObjectIO/GameLib/StdGameDef.dcl
ObjectIO/GameLib/StdGameDef.dcl
+5
-7
ObjectIO/GameLib/StdGameDef.icl
ObjectIO/GameLib/StdGameDef.icl
+5
-7
ObjectIO/GameLib/gameCrossCall_12.dcl
ObjectIO/GameLib/gameCrossCall_12.dcl
+2
-2
ObjectIO/GameLib/gameintrface_12.dcl
ObjectIO/GameLib/gameintrface_12.dcl
+2
-2
ObjectIO/GameLib/gameintrface_12.icl
ObjectIO/GameLib/gameintrface_12.icl
+3
-2
ObjectIO/GameLib/gst.dcl
ObjectIO/GameLib/gst.dcl
+3
-3
ObjectIO/GameLib/gst.icl
ObjectIO/GameLib/gst.icl
+3
-2
ObjectIO/GameLib/notes.dcl
ObjectIO/GameLib/notes.dcl
+1
-1
ObjectIO/GameLib/osgame.dcl
ObjectIO/GameLib/osgame.dcl
+1
-1
ObjectIO/ObjectIO Examples/gui utilities/Help.dcl
ObjectIO/ObjectIO Examples/gui utilities/Help.dcl
+1
-1
ObjectIO/ObjectIO Examples/gui utilities/Highscore.dcl
ObjectIO/ObjectIO Examples/gui utilities/Highscore.dcl
+2
-3
ObjectIO/ObjectIO Examples/scrabble/state.dcl
ObjectIO/ObjectIO Examples/scrabble/state.dcl
+1
-1
ObjectIO/ObjectIO Examples/simple database/database.icl
ObjectIO/ObjectIO Examples/simple database/database.icl
+3
-1
ObjectIO/ObjectIO Examples/turing/showtm.dcl
ObjectIO/ObjectIO Examples/turing/showtm.dcl
+1
-1
ObjectIO/ObjectIO Examples/turing/showtm.icl
ObjectIO/ObjectIO Examples/turing/showtm.icl
+1
-2
ObjectIO/ObjectIO Examples/turing/tmdialog.dcl
ObjectIO/ObjectIO Examples/turing/tmdialog.dcl
+3
-3
ObjectIO/ObjectIO Examples/turing/tmfile.dcl
ObjectIO/ObjectIO Examples/turing/tmfile.dcl
+2
-2
ObjectIO/ObjectIO Examples/turing/tmfile.icl
ObjectIO/ObjectIO Examples/turing/tmfile.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/clCCall_12.dcl
ObjectIO/ObjectIO/OS Windows/clCCall_12.dcl
+2
-2
ObjectIO/ObjectIO/OS Windows/clCCall_12.icl
ObjectIO/ObjectIO/OS Windows/clCCall_12.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/clipboardCrossCall_12.icl
ObjectIO/ObjectIO/OS Windows/clipboardCrossCall_12.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.dcl
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.dcl
+3
-3
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.icl
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.icl
+3
-3
ObjectIO/ObjectIO/OS Windows/menuevent.dcl
ObjectIO/ObjectIO/OS Windows/menuevent.dcl
+2
-2
ObjectIO/ObjectIO/OS Windows/menuevent.icl
ObjectIO/ObjectIO/OS Windows/menuevent.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.dcl
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.icl
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/osbeep.dcl
ObjectIO/ObjectIO/OS Windows/osbeep.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/osbeep.icl
ObjectIO/ObjectIO/OS Windows/osbeep.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/osclipboard.dcl
ObjectIO/ObjectIO/OS Windows/osclipboard.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.dcl
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.dcl
+2
-2
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.icl
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/osevent.dcl
ObjectIO/ObjectIO/OS Windows/osevent.dcl
+6
-6
ObjectIO/ObjectIO/OS Windows/osevent.icl
ObjectIO/ObjectIO/OS Windows/osevent.icl
+1
-2
ObjectIO/ObjectIO/OS Windows/osfileselect.dcl
ObjectIO/ObjectIO/OS Windows/osfileselect.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/osfileselect.icl
ObjectIO/ObjectIO/OS Windows/osfileselect.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/osfont.dcl
ObjectIO/ObjectIO/OS Windows/osfont.dcl
+3
-3
ObjectIO/ObjectIO/OS Windows/osfont.icl
ObjectIO/ObjectIO/OS Windows/osfont.icl
+3
-3
ObjectIO/ObjectIO/OS Windows/osmenu.dcl
ObjectIO/ObjectIO/OS Windows/osmenu.dcl
+3
-3
ObjectIO/ObjectIO/OS Windows/osmenu.icl
ObjectIO/ObjectIO/OS Windows/osmenu.icl
+3
-3
ObjectIO/ObjectIO/OS Windows/osmouse.dcl
ObjectIO/ObjectIO/OS Windows/osmouse.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/osmouse.icl
ObjectIO/ObjectIO/OS Windows/osmouse.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/ospicture.dcl
ObjectIO/ObjectIO/OS Windows/ospicture.dcl
+3
-3
ObjectIO/ObjectIO/OS Windows/ospicture.icl
ObjectIO/ObjectIO/OS Windows/ospicture.icl
+3
-2
ObjectIO/ObjectIO/OS Windows/osrgn.icl
ObjectIO/ObjectIO/OS Windows/osrgn.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/ossystem.icl
ObjectIO/ObjectIO/OS Windows/ossystem.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/ostoolbar.icl
ObjectIO/ObjectIO/OS Windows/ostoolbar.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/ostooltip.dcl
ObjectIO/ObjectIO/OS Windows/ostooltip.dcl
+2
-2
ObjectIO/ObjectIO/OS Windows/ostooltip.icl
ObjectIO/ObjectIO/OS Windows/ostooltip.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/oswindow.dcl
ObjectIO/ObjectIO/OS Windows/oswindow.dcl
+6
-6
ObjectIO/ObjectIO/OS Windows/oswindow.icl
ObjectIO/ObjectIO/OS Windows/oswindow.icl
+7
-4
ObjectIO/ObjectIO/OS Windows/pictCCall_12.dcl
ObjectIO/ObjectIO/OS Windows/pictCCall_12.dcl
+3
-3
ObjectIO/ObjectIO/OS Windows/pictCCall_12.icl
ObjectIO/ObjectIO/OS Windows/pictCCall_12.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/processevent.dcl
ObjectIO/ObjectIO/OS Windows/processevent.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/processevent.icl
ObjectIO/ObjectIO/OS Windows/processevent.icl
+3
-4
ObjectIO/ObjectIO/OS Windows/receiverevent.dcl
ObjectIO/ObjectIO/OS Windows/receiverevent.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/receiverevent.icl
ObjectIO/ObjectIO/OS Windows/receiverevent.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/rgnCCall_12.dcl
ObjectIO/ObjectIO/OS Windows/rgnCCall_12.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/rgnCCall_12.icl
ObjectIO/ObjectIO/OS Windows/rgnCCall_12.icl
+1
-1
ObjectIO/ObjectIO/OS Windows/timerevent.dcl
ObjectIO/ObjectIO/OS Windows/timerevent.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/timerevent.icl
ObjectIO/ObjectIO/OS Windows/timerevent.icl
+2
-2
ObjectIO/ObjectIO/OS Windows/windowCCall_12.dcl
ObjectIO/ObjectIO/OS Windows/windowCCall_12.dcl
+4
-4
ObjectIO/ObjectIO/OS Windows/windowCCall_12.icl
ObjectIO/ObjectIO/OS Windows/windowCCall_12.icl
+4
-4
ObjectIO/ObjectIO/OS Windows/windowCrossCall_12.dcl
ObjectIO/ObjectIO/OS Windows/windowCrossCall_12.dcl
+4
-4
ObjectIO/ObjectIO/OS Windows/windowCrossCall_12.icl
ObjectIO/ObjectIO/OS Windows/windowCrossCall_12.icl
+4
-4
ObjectIO/ObjectIO/OS Windows/windowevent.dcl
ObjectIO/ObjectIO/OS Windows/windowevent.dcl
+1
-1
ObjectIO/ObjectIO/OS Windows/windowevent.icl
ObjectIO/ObjectIO/OS Windows/windowevent.icl
+1
-1
ObjectIO/ObjectIO/StdBitmap.dcl
ObjectIO/ObjectIO/StdBitmap.dcl
+1
-4
ObjectIO/ObjectIO/StdClipboard.dcl
ObjectIO/ObjectIO/StdClipboard.dcl
+1
-1
ObjectIO/ObjectIO/StdClipboard.icl
ObjectIO/ObjectIO/StdClipboard.icl
+3
-2
ObjectIO/ObjectIO/StdControl.icl
ObjectIO/ObjectIO/StdControl.icl
+0
-1
No files found.
ObjectIO/GameLib/GameFunctions.dcl
View file @
20366fcf
...
...
@@ -8,7 +8,7 @@ definition module GameFunctions
// ********************************************************************************
import
gameintrface_12
,
osgame
from
StdIOBasic
import
Point2
from
StdIOBasic
import
::
Point2
// game result codes (GRESULT)
GR_OK
:==
0
...
...
ObjectIO/GameLib/StdGSt.dcl
View file @
20366fcf
...
...
@@ -8,4 +8,4 @@ definition module StdGSt
// Modified: 7 Sept 2001 for Clean 2.0 (Peter Achten)
// ********************************************************************************
from
gst
import
G
St
,
app
GSt
,
a
cc
GSt
,
IdFun
,
St
from
gst
import
::
St
,
::
IdFun
,
acc
GSt
,
a
pp
GSt
,
::
G
St
;
ObjectIO/GameLib/StdGame.dcl
View file @
20366fcf
...
...
@@ -10,12 +10,10 @@ definition module StdGame
import
StdInt
,
StdString
from
StdIOCommon
import
ErrorReport
,
NoError
,
ErrorViolateDI
,
ErrorIdsInUse
,
ErrorUnknownObject
,
OtherError
from
StdPSt
import
PSt
,
IOSt
from
StdIOCommon
import
::
ErrorReport
from
StdPSt
import
::
PSt
import
StdGameDef
from
osgame
import
GRESULT
from
osgame
import
::
GRESULT
/* predefined bounds */
...
...
ObjectIO/GameLib/StdGame.icl
View file @
20366fcf
...
...
@@ -11,7 +11,6 @@ from windowcreate import bufferDelayedEvents
from
windowvalidate
import
validateWindowId
from
ostypes
import
OSNoWindowPtr
/* predefined bounds */
BND_MAP_CODES
:==
1
<<
30
BND_STATIC_BOUNDS
:==
1
<<
31
...
...
ObjectIO/GameLib/StdGameDef.dcl
View file @
20366fcf
...
...
@@ -9,13 +9,11 @@ definition module StdGameDef
// ********************************************************************************
import
StdString
from
StdFunc
import
St
from
StdOverloaded
import
zero
from
StdIOBasic
import
Point2
,
Size
,
IdFun
from
StdMaybe
import
Maybe
,
Just
,
Nothing
from
StdPictureDef
import
Colour
,
RGB
,
RGBColour
,
Black
,
White
,
DarkGrey
,
Grey
,
LightGrey
,
Red
,
Green
,
Blue
,
Cyan
,
Magenta
,
Yellow
from
StdFunc
import
::
St
from
StdOverloaded
import
class
zero
from
StdIOBasic
import
::
IdFun
,
::
Size
(..),
::
Point2
(..)
from
StdMaybe
import
::
Maybe
(..)
from
StdPictureDef
import
::
Colour
(..),
::
RGBColour
(..)
import
StdGSt
...
...
ObjectIO/GameLib/StdGameDef.icl
View file @
20366fcf
implementation
module
StdGameDef
import
StdString
from
StdFunc
import
St
from
StdOverloaded
import
zero
from
StdIOBasic
import
Point2
,
Size
,
IdFun
from
StdMaybe
import
Maybe
,
Just
,
Nothing
from
StdPictureDef
import
Colour
,
RGB
,
RGBColour
,
Black
,
White
,
DarkGrey
,
Grey
,
LightGrey
,
Red
,
Green
,
Blue
,
Cyan
,
Magenta
,
Yellow
from
StdFunc
import
::
St
from
StdOverloaded
import
class
zero
from
StdIOBasic
import
::
Point2
,
::
Size
,
::
IdFun
from
StdMaybe
import
::
Maybe
from
StdPictureDef
import
::
Colour
import
StdGSt
::
GameAttribute
gs
...
...
ObjectIO/GameLib/gameCrossCall_12.dcl
View file @
20366fcf
...
...
@@ -8,8 +8,8 @@ definition module gameCrossCall_12
// ********************************************************************************
import
clCrossCall_12
,
gameintrface_12
from
ostypes
import
OSWindowPtr
from
oswindow
import
DelayActivationInfo
from
ostypes
import
::
OSWindowPtr
from
oswindow
import
::
DelayActivationInfo
// Initialisation of game. This function must be called before any game cross call can be done!
WinInitialiseGame
::
!*
OSToolbox
->
*
OSToolbox
...
...
ObjectIO/GameLib/gameintrface_12.dcl
View file @
20366fcf
...
...
@@ -7,8 +7,8 @@ definition module gameintrface_12
// Modified: 7 Sept 2001 for Clean 2.0 (Peter Achten)
// ********************************************************************************
from
ostoolbox
import
OSToolbox
from
pictCCall_12
import
RGBcolor
from
ostoolbox
import
::
OSToolbox
from
pictCCall_12
import
::
RGBcolor
::
BID
:==
Int
// Bitmap ID
...
...
ObjectIO/GameLib/gameintrface_12.icl
View file @
20366fcf
implementation
module
gameintrface_12
from
ostoolbox
import
OSToolbox
from
pictCCall_12
import
RGBcolor
from
ostoolbox
import
::
OSToolbox
from
pictCCall_12
import
::
RGBcolor
::
BID
:==
Int
// Bitmap ID
...
...
ObjectIO/GameLib/gst.dcl
View file @
20366fcf
...
...
@@ -7,9 +7,9 @@ definition module gst
// Modified: 7 Sept 2001 for Clean 2.0 (Peter Achten)
// ********************************************************************************
import
ostoolbox
from
StdFunc
import
St
from
StdIOBasic
import
IdFun
import
ostoolbox
from
StdFunc
import
::
St
from
StdIOBasic
import
::
IdFun
::
*
GSt
gs
...
...
ObjectIO/GameLib/gst.icl
View file @
20366fcf
implementation
module
gst
import
ostoolbox
from
StdFunc
import
St
from
StdIOBasic
import
IdFun
from
StdFunc
import
::
St
from
StdIOBasic
import
::
IdFun
::
*
GSt
gs
=
{
gs
::
gs
...
...
ObjectIO/GameLib/notes.dcl
View file @
20366fcf
...
...
@@ -7,7 +7,7 @@ definition module notes
// Modified: 7 Sept 2001 for Clean 2.0 (Peter Achten)
// ********************************************************************************
from
StdGame
import
Frequency
from
StdGame
import
::
Frequency
MIDDLE_C
:==
38
...
...
ObjectIO/GameLib/osgame.dcl
View file @
20366fcf
...
...
@@ -7,7 +7,7 @@ definition module osgame
// Modified: 7 Sept 2001 for Clean 2.0 (Peter Achten)
// ********************************************************************************
from
StdIOBasic
import
Point2
from
StdIOBasic
import
::
Point2
import
gamehandle
,
gameintrface_12
,
ostypes
::
OSGameData
gs
...
...
ObjectIO/ObjectIO Examples/gui utilities/Help.dcl
View file @
20366fcf
...
...
@@ -9,7 +9,7 @@ definition module Help
// **************************************************************************************************
import
StdString
from
StdPSt
import
PSt
,
IO
St
from
StdPSt
import
::
P
St
showAbout
::
String
String
(
PSt
*
l
)
->
PSt
*
l
/* showAbout opens a window:
...
...
ObjectIO/ObjectIO Examples/gui utilities/Highscore.dcl
View file @
20366fcf
...
...
@@ -9,9 +9,8 @@ definition module Highscore
// **************************************************************************************************
import
StdString
from
StdFile
import
FileSystem
,
Files
from
StdPSt
import
PSt
,
IOSt
from
StdId
import
Id
from
StdFile
import
class
FileSystem
from
StdPSt
import
::
PSt
::
HiScores
:==
[
HiScore
]
...
...
ObjectIO/ObjectIO Examples/scrabble/state.dcl
View file @
20366fcf
definition
module
state
from
StdPSt
import
PSt
,
IO
St
from
StdPSt
import
::
P
St
import
board
...
...
ObjectIO/ObjectIO Examples/simple database/database.icl
View file @
20366fcf
...
...
@@ -690,7 +690,9 @@ warn info canceltext oktext fun pState
=
openNotice
(
Notice
info
(
NoticeButton
oktext
(
noLS
(
fun
o
cancel
)))
[
NoticeButton
canceltext
id
])
pState
cancel
pState
#
(
Just
id
,
pState
)
=
accPIO
getActiveWindow
pState
#
(
maybeId
,
pState
)
=
accPIO
getActiveWindow
pState
|
isNothing
maybeId
=
pState
#
id
=
fromJust
maybeId
=
closeWindow
id
pState
insertindex
::
!(
a
->
a
->
Bool
)
!
a
!
u
:[
a
]
->
(!
Int
,!
v
:[
a
]),
[
u
<=
v
]
...
...
ObjectIO/ObjectIO Examples/turing/showtm.dcl
View file @
20366fcf
definition
module
showtm
from
StdPicture
import
Picture
,
Point2
from
StdPicture
import
::
Point2
,
::
Picture
import
tm
MaxX
:==
29900
...
...
ObjectIO/ObjectIO Examples/turing/showtm.icl
View file @
20366fcf
implementation
module
showtm
import
StdArray
,
StdBool
,
StdClass
,
StdInt
from
StdString
import
length
,
%
from
StdChar
import
toString
from
StdString
import
instance
%
{#}
import
StdPicture
import
tm
...
...
ObjectIO/ObjectIO Examples/turing/tmdialog.dcl
View file @
20366fcf
definition
module
tmdialog
from
StdId
import
Ids
,
Id
,
R2Id
,
R
Id
from
StdPSt
import
PSt
,
IO
St
from
StdIOCommon
import
IdFun
from
StdId
import
::
Id
,
class
Id
s
from
StdPSt
import
::
P
St
from
StdIOCommon
import
::
IdFun
import
tm
HelpFile
...
...
ObjectIO/ObjectIO Examples/turing/tmfile.dcl
View file @
20366fcf
definition
module
tmfile
import
StdString
from
StdFile
import
FileSystem
,
Files
from
tm
import
Turing
,
Transition
,
Tape
,
State
,
Head
from
StdFile
import
class
FileSystem
from
tm
import
::
Turing
WriteTuringToFile
::
Turing
!
String
!*
env
->
(!
Bool
,!*
env
)
|
FileSystem
env
ReadTuring
::
!
String
!*
env
->
(!(!
Int
,!
Turing
),!*
env
)
|
FileSystem
env
...
...
ObjectIO/ObjectIO Examples/turing/tmfile.icl
View file @
20366fcf
...
...
@@ -3,7 +3,7 @@ implementation module tmfile
import
StdArray
,
StdBool
,
StdChar
,
StdClass
,
StdFile
,
StdInt
,
StdList
,
StdString
from
StdSystem
import
dirseparator
from
tm
import
Turing
,
State
,
Tape
,
Transition
,
Head
from
tm
import
::
Turing
{..},
::
State
,
::
Tape
{..},
::
Transition
{..},
::
Head
DummyTuring
:==
{
transitions
=[],
tape
=
DummyTape
,
state
=
""
}
...
...
ObjectIO/ObjectIO/OS Windows/clCCall_12.dcl
View file @
20366fcf
...
...
@@ -2,8 +2,8 @@ definition module clCCall_12
// Clean Object I/O library, version 1.2
from
StdIOCommon
import
Modifiers
from
ostoolbox
import
OSToolbox
from
StdIOCommon
import
::
Modifiers
from
ostoolbox
import
::
OSToolbox
::
CSTR
:==
Int
...
...
ObjectIO/ObjectIO/OS Windows/clCCall_12.icl
View file @
20366fcf
implementation
module
clCCall_12
import
StdClass
,
StdInt
from
StdIOCommon
import
Modifiers
from
ostoolbox
import
OSToolbox
from
StdIOCommon
import
::
Modifiers
{..}
from
ostoolbox
import
::
OSToolbox
import
code
from
"cCCallSystem_121.obj"
,
"cCCallWindows_121.obj"
,
"cCrossCallWindows_121.obj"
,
...
...
ObjectIO/ObjectIO/OS Windows/clipboardCrossCall_12.icl
View file @
20366fcf
...
...
@@ -3,7 +3,7 @@ implementation module clipboardCrossCall_12
import
StdBool
,
StdClass
,
StdInt
,
StdMisc
import
clCrossCall_12
from
clCCall_12
import
winMakeCString
,
winGetCStringAndFree
,
winReleaseCString
,
CSTR
from
clCCall_12
import
winMakeCString
,
winGetCStringAndFree
,
winReleaseCString
,
::
CSTR
import
code
from
"cCrossCallClipboard_121.obj"
...
...
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.dcl
View file @
20366fcf
...
...
@@ -2,9 +2,9 @@ definition module menuCrossCall_12
import
StdString
from
StdIOCommon
import
Modifiers
from
ostoolbox
import
OSToolbox
from
ostypes
import
HWND
from
StdIOCommon
import
::
Modifiers
from
ostoolbox
import
::
OSToolbox
from
ostypes
import
::
HWND
::
HITEM
:==
Int
...
...
ObjectIO/ObjectIO/OS Windows/menuCrossCall_12.icl
View file @
20366fcf
...
...
@@ -2,10 +2,10 @@ implementation module menuCrossCall_12
import
StdInt
,
StdMisc
,
StdTuple
from
StdIOCommon
import
Modifiers
from
StdIOCommon
import
::
Modifiers
import
clCrossCall_12
from
clCCall_12
import
winMakeCString
,
winReleaseCString
,
CSTR
,
toModifiers
from
ostypes
import
HWND
from
clCCall_12
import
winMakeCString
,
winReleaseCString
,
::
CSTR
,
toModifiers
from
ostypes
import
::
HWND
::
HITEM
:==
Int
...
...
ObjectIO/ObjectIO/OS Windows/menuevent.dcl
View file @
20366fcf
...
...
@@ -9,8 +9,8 @@ definition module menuevent
import
deviceevents
,
devicesystemstate
,
menuhandle
from
iostate
import
PSt
,
IO
St
from
osmenu
import
OSTrackPopUpMenu
,
OSTrackPopUpMenuResult
,
PopUpTrackedByIndex
,
PopUpTrackedByItemId
from
iostate
import
::
P
St
from
osmenu
import
::
OSTrackPopUpMenu
menuEvent
::
!
SchedulerEvent
!(
PSt
.
l
)
->
(!
Bool
,!
Maybe
DeviceEvent
,!
SchedulerEvent
,!
PSt
.
l
)
...
...
ObjectIO/ObjectIO/OS Windows/menuevent.icl
View file @
20366fcf
...
...
@@ -3,8 +3,8 @@ implementation module menuevent
import
StdBool
,
StdList
,
StdMisc
import
clCrossCall_12
from
clCCall_12
import
winMakeCString
,
CSTR
,
toModifiers
from
osmenu
import
osMenuItemCheck
,
OSTrackPopUpMenu
,
OSTrackPopUpMenuResult
,
PopUpTrackedByIndex
,
PopUpTrackedByItemId
from
clCCall_12
import
winMakeCString
,
::
CSTR
,
toModifiers
from
osmenu
import
osMenuItemCheck
,
::
OSTrackPopUpMenu
{..},
::
OSTrackPopUpMenuResult
(..)
import
commondef
,
deviceevents
,
iostate
from
menuaccess
import
menuStateHandleGetHandle
,
menuStateHandleGetMenuId
from
processstack
import
topShowProcessShowState
...
...
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.dcl
View file @
20366fcf
...
...
@@ -6,7 +6,7 @@ definition module menuwindowmenu
// The definition and implementation of the WindowMenu.
from
iostate
import
PSt
,
IOSt
from
iostate
import
::
PSt
,
::
IOSt
import
windowhandle
...
...
ObjectIO/ObjectIO/OS Windows/menuwindowmenu.icl
View file @
20366fcf
...
...
@@ -3,7 +3,7 @@ implementation module menuwindowmenu
// The definition and implementation of the WindowMenu.
// PA: implementation not required on Windows platform.
from
iostate
import
PSt
,
IO
St
from
iostate
import
::
IOSt
,
::
P
St
import
windowhandle
...
...
ObjectIO/ObjectIO/OS Windows/osbeep.dcl
View file @
20366fcf
...
...
@@ -2,6 +2,6 @@ definition module osbeep
// Clean Object I/O library, version 1.2
from
ostoolbox
import
OSToolbox
from
ostoolbox
import
::
OSToolbox
osBeep
::
!*
OSToolbox
->
*
OSToolbox
ObjectIO/ObjectIO/OS Windows/osbeep.icl
View file @
20366fcf
implementation
module
osbeep
from
clCCall_12
import
winBeep
from
ostoolbox
import
OSToolbox
from
ostoolbox
import
::
OSToolbox
osBeep
::
!*
OSToolbox
->
*
OSToolbox
osBeep
toolbox
...
...
ObjectIO/ObjectIO/OS Windows/osclipboard.dcl
View file @
20366fcf
...
...
@@ -5,7 +5,7 @@ definition module osclipboard
// Clipboard operations.
import
ostoolbox
from
clipboardCrossCall_12
import
CF_TEXT
from
clipboardCrossCall_12
import
CF_TEXT
::
OSClipboardItemType
...
...
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.dcl
View file @
20366fcf
...
...
@@ -3,8 +3,8 @@ definition module osdocumentinterface
// Clean object I/O library, version 1.2
import
StdIOCommon
from
menuCrossCall_12
import
HMENU
import
ostoolbar
,
ostoolbox
,
ostypes
from
menuCrossCall_12
import
::
HMENU
import
ostoolbar
,
ostoolbox
,
ostypes
::
OSDInfo
=
OSMDInfo
!
OSMDInfo
...
...
ObjectIO/ObjectIO/OS Windows/osdocumentinterface.icl
View file @
20366fcf
...
...
@@ -4,7 +4,7 @@ implementation module osdocumentinterface
import
StdMaybe
,
StdOverloaded
,
StdString
,
StdTuple
import
clCrossCall_12
,
ostoolbar
,
ossystem
,
ostypes
,
windowCrossCall_12
from
commondef
import
fatalError
from
StdIOCommon
import
DocumentInterface
,
MDI
,
SDI
,
NDI
from
StdIOCommon
import
::
DocumentInterface
(..)
import
code
from
"cCrossCallxDI_121.obj"
...
...
ObjectIO/ObjectIO/OS Windows/osevent.dcl
View file @
20366fcf
...
...
@@ -2,12 +2,12 @@ definition module osevent
// Clean Object I/O library, version 1.2
from
StdInt
import
^,-
from
clCrossCall_12
import
CrossCallInfo
from
ostoolbox
import
OSToolbox
from
ostime
import
OSTime
from
ostypes
import
OSWindowPtr
from
StdMaybe
import
Maybe
,
Just
,
Nothing
from
StdInt
import
class
^(..),
instance
^
Int
,
class
-(..),
instance
-
Int
from
clCrossCall_12
import
::
CrossCallInfo
from
ostoolbox
import
::
OSToolbox
from
ostime
import
::
OSTime
from
ostypes
import
::
OSWindowPtr
from
StdMaybe
import
::
Maybe
::
*
OSEvents
...
...
ObjectIO/ObjectIO/OS Windows/osevent.icl
View file @
20366fcf
...
...
@@ -3,8 +3,7 @@ implementation module osevent
import
StdBool
,
StdList
,
StdMisc
,
StdTuple
import
clCrossCall_12
,
ostime
,
ostoolbox
,
ostypes
from
commondef
import
hdtl
,
fatalError
from
StdMaybe
import
Maybe
,
Just
,
Nothing
//import StdDebug, tracetypes
from
StdMaybe
import
::
Maybe
(..)
oseventFatalError
::
String
String
->
.
x
...
...
ObjectIO/ObjectIO/OS Windows/osfileselect.dcl
View file @
20366fcf
...
...
@@ -3,7 +3,7 @@ definition module osfileselect
// Clean Object I/O library, version 1.2
import
StdString
from
ostoolbox
import
OSToolbox
from
ostoolbox
import
::
OSToolbox
import
osevent
osInitialiseFileSelectors
::
!*
OSToolbox
->
*
OSToolbox
...
...
ObjectIO/ObjectIO/OS Windows/osfileselect.icl
View file @
20366fcf
...
...
@@ -3,7 +3,7 @@ implementation module osfileselect
import
StdBool
,
StdInt
import
clCrossCall_12
,
osevent
from
clCCall_12
import
winMakeCString
,
winGetCStringAndFree
,
winReleaseCString
,
CSTR
from
clCCall_12
import
winMakeCString
,
winGetCStringAndFree
,
winReleaseCString
,
::
CSTR
from
commondef
import
fatalError
import
code
from
"cCrossCallFileSelectors_121.obj"
...
...
ObjectIO/ObjectIO/OS Windows/osfont.dcl
View file @
20366fcf
...
...
@@ -4,9 +4,9 @@ definition module osfont
// Clean Object I/O library, version 1.2
from
StdOverloaded
import
==
from
ostoolbox
import
OSToolbox
from
ostypes
import
OSPictContext
from
StdOverloaded
import
class
==
from
ostoolbox
import
::
OSToolbox
from
ostypes
import
::
OSPictContext
::
Font
...
...
ObjectIO/ObjectIO/OS Windows/osfont.icl
View file @
20366fcf
...
...
@@ -3,10 +3,10 @@ implementation module osfont
import
StdBool
,
StdClass
,
StdEnum
,
StdReal
import
clCrossCall_12
,
pictCCall_12
from
clCCall_12
import
winMakeCString
,
winGetCString
,
CSTR
,
winGetVertResolution
from
StdPictureDef
import
FontName
,
FontSize
,
FontStyle
,
BoldStyle
,
ItalicsStyle
,
UnderlinedStyle
from
clCCall_12
import
winMakeCString
,
winGetCString
,
::
CSTR
,
winGetVertResolution
from
StdPictureDef
import
::
FontName
,
::
FontSize
,
::
FontStyle
,
BoldStyle
,
ItalicsStyle
,
UnderlinedStyle
from
commondef
import
fatalError
,
isBetween
,
minmax
,
stateMap
from
ostypes
import
OSPictContext
,
HDC
from
ostypes
import
::
OSPictContext
,
::
HDC
::
Font
...
...
ObjectIO/ObjectIO/OS Windows/osmenu.dcl
View file @
20366fcf
...
...
@@ -4,9 +4,9 @@ definition module osmenu
// Clean Object I/O library, version 1.2
from
StdMaybe
import
Maybe
,
Just
,
Nothing
from
StdIOCommon
import
Modifiers
from
menuCrossCall_12
import
HMENU
,
HITEM
from
StdMaybe
import
::
Maybe
from
StdIOCommon
import
::
Modifiers
from
menuCrossCall_12
import
::
HMENU
,
::
HITEM
import
osdocumentinterface
,
ostoolbox
,
ostypes
...
...
ObjectIO/ObjectIO/OS Windows/osmenu.icl
View file @
20366fcf
...
...
@@ -3,10 +3,10 @@ implementation module osmenu
import
StdBool
,
StdChar
,
StdClass
,
StdInt
,
StdString
import
StdMaybe
from
StdIOCommon
import
Modifiers
from
StdIOCommon
import
::
Modifiers
import
menuCCall_12
,
menuCrossCall_12
from
osdocumentinterface
import
OSMenuBar
from
ostypes
import
OSWindowPtr
,
OSNoWindowPtr
from
osdocumentinterface
import
::
OSMenuBar
{..}
from
ostypes
import
::
OSWindowPtr
,
OSNoWindowPtr
// Types for menus and menu elements:
...
...
ObjectIO/ObjectIO/OS Windows/osmouse.dcl
View file @
20366fcf
...
...
@@ -2,7 +2,7 @@ definition module osmouse
// Clean Object I/O library, version 1.2
from
ostoolbox
import
OSToolbox
from
ostoolbox
import
::
OSToolbox
// RWS ??? returned resolution
osGetDoubleClickTime
::
!*
OSToolbox
->
(!
Int
,
!*
OSToolbox
)
ObjectIO/ObjectIO/OS Windows/osmouse.icl
View file @
20366fcf
implementation
module
osmouse
from
ostoolbox
import
OSToolbox
from
ostoolbox
import
::
OSToolbox
// RWS ??? returned resolution
osGetDoubleClickTime
::
!*
OSToolbox
->
(!
Int
,
!*
OSToolbox
)
...
...
ObjectIO/ObjectIO/OS Windows/ospicture.dcl
View file @
20366fcf
...
...
@@ -7,9 +7,9 @@ definition module ospicture
*/
import
osrgn
,
ostypes
from
StdFunc
import
St
from
osfont
import
Font
from
ostoolbox
import
OSToolbox
from
StdFunc
import
::
St
from
osfont
import
::
Font
from
ostoolbox
import
::
OSToolbox
import
StdPictureDef