1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
definition module clCCall_12
// Clean Object I/O library, version 1.2
from StdIOCommon import :: Modifiers
from ostoolbox import :: OSToolbox
:: CSTR :== Int
:: ACCLPTR :== Int
MaxRand :== 32767
WinHelpKey :== 5
WinEscapeKey :== 27
WinReturnKey :== 13
WinTabKey :== 9
WinDelKey :== 127
WinBackSpKey :== 8
WinEndKey :== 4
WinBeginKey :== 1
WinPgDownKey :== 12
WinPgUpKey :== 11
WinRightKey :== 29
WinLeftKey :== 28
WinDownKey :== 31
WinUpKey :== 30
WinF1Key :== 1001
WinF2Key :== 1002
WinF3Key :== 1003
WinF4Key :== 1004
WinF5Key :== 1005
WinF6Key :== 1006
WinF7Key :== 1007
WinF8Key :== 1008
WinF9Key :== 1009
WinF10Key :== 1010
WinF11Key :== 1011
WinF12Key :== 1012
CTRLBIT :== 4
ALTBIT :== 2
SHIFTBIT :== 1
KEYREPEAT :== 4
KEYUP :== 2
KEYDOWN :== 1
BUTTONUP :== 50
BUTTONSTILLDOWN :== 40
BUTTONTRIPLEDOWN :== 3
BUTTONDOUBLEDOWN :== 2
BUTTONDOWN :== 1
BUTTONSTILLUP :== 0 /* PA: new constant for passing mouse move events. */
// PA: moved from windowevent.icl because also used by menuCrossCall_12
toModifiers :: !Int -> Modifiers
winLaunchApp :: !{#Char} !Bool !*OSToolbox -> (!Bool,!*OSToolbox)
winLaunchApp2 :: !{#Char} !{#Char} !Bool !*OSToolbox -> (!Bool,!*OSToolbox)
winCallProcess :: !CSTR !CSTR !CSTR !CSTR !CSTR !CSTR !*OSToolbox -> (!Bool,!Int,!*OSToolbox)
winGetModulePath :: {#Char}
winFileModifiedDate :: !{#Char} -> (!Bool,!Int,!Int,!Int,!Int,!Int,!Int)
winFileExists :: !{#Char} -> Bool
winBeep :: !*OSToolbox -> *OSToolbox
rand :: Int
winReleaseCString :: !CSTR !*OSToolbox -> *OSToolbox
winGetCStringAndFree :: !CSTR !*OSToolbox -> (!{#Char},!*OSToolbox)
winGetCString :: !CSTR !*OSToolbox -> (!{#Char},!*OSToolbox)
winMakeCString :: !{#Char} !*OSToolbox -> (!CSTR,!*OSToolbox)
winGetAppPath :: CSTR
winSetDoubleDownDist :: !Int !*OSToolbox -> *OSToolbox
winGetHorzResolution :: Int
winGetVertResolution :: Int
winMaxFixedWindowSize :: (!Int,!Int)
winMaxScrollWindowSize :: (!Int,!Int)
// PA: interfaces added for determining screen width and height.
winScreenYSize :: !*OSToolbox -> (!Int,!*OSToolbox)
winScreenXSize :: !*OSToolbox -> (!Int,!*OSToolbox)
winMinimumWinSize :: (!Int,!Int)
// PA: function added to get system metrics for width and height of scrollbars.
winScrollbarSize :: !*OSToolbox -> (!Int,!Int,!*OSToolbox)
/* PA: two new routines (win(M/S)DIClientToOuterSizeDims added to convert between the
client and outer size of (M/S)DI windows. The Int argument contains the style flags
of the window.
*/
winMDIClientToOuterSizeDims :: !Int !*OSToolbox -> (!Int,!Int,!*OSToolbox)
winSDIClientToOuterSizeDims :: !Int !*OSToolbox -> (!Int,!Int,!*OSToolbox)
winPlaySound :: !{#Char} !*OSToolbox -> (!Bool,!*OSToolbox)
|
