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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
|
implementation module windowCrossCall_12
import StdMisc, StdTuple
import clCrossCall_12
from ostypes import :: HWND, OSNoWindowPtr
from clCCall_12 import winMakeCString, winGetCStringAndFree, winReleaseCString, :: CSTR
from pictCCall_12 import :: HDC
from rgnCCall_12 import :: HRGN
// Cursor shape constants:
CURSHIDDEN :== 6
CURSARROW :== 5
CURSFATCROSS :== 4
CURSCROSS :== 3
CURSIBEAM :== 2
CURSBUSY :== 1
// Constants for handling scrollbars.
SB_HORZ :== 0
SB_VERT :== 1
SB_CTL :== 2
SB_BOTH :== 3
SB_LINEUP :== 0
SB_LINELEFT :== 0
SB_LINEDOWN :== 1
SB_LINERIGHT :== 1
SB_PAGEUP :== 2
SB_PAGELEFT :== 2
SB_PAGEDOWN :== 3
SB_PAGERIGHT :== 3
SB_THUMBPOSITION :== 4
SB_THUMBTRACK :== 5
SB_TOP :== 6
SB_LEFT :== 6
SB_BOTTOM :== 7
SB_RIGHT :== 7
SB_ENDSCROLL :== 8
// PA: constants for handling window styles.
WS_OVERLAPPED :== 0x00000000
WS_POPUP :== 0x80000000
WS_CHILD :== 0x40000000
WS_MINIMIZE :== 0x20000000
WS_VISIBLE :== 0x10000000
WS_DISABLED :== 0x08000000
WS_CLIPSIBLINGS :== 0x04000000
WS_CLIPCHILDREN :== 0x02000000
WS_MAXIMIZE :== 0x01000000
WS_CAPTION :== 0x00C00000 /* WS_BORDER | WS_DLGFRAME */
WS_BORDER :== 0x00800000
WS_DLGFRAME :== 0x00400000
WS_VSCROLL :== 0x00200000
WS_HSCROLL :== 0x00100000
WS_SYSMENU :== 0x00080000
WS_THICKFRAME :== 0x00040000
WS_GROUP :== 0x00020000
WS_TABSTOP :== 0x00010000
WS_MINIMIZEBOX :== 0x00020000
WS_MAXIMIZEBOX :== 0x00010000
WS_TILED :== WS_OVERLAPPED
WS_ICONIC :== WS_MINIMIZE
WS_SIZEBOX :== WS_THICKFRAME
// PA: end of addition.
// PA: constants for stacking windows.
HWND_TOP :== 0
HWND_BOTTOM :== 1
HWND_TOPMOST :== -1
HWND_NOTOPMOST :== -2
// PA: end of addition.
// PA: flag values for passing information about edit controls from Clean to OS.
EDITISMULTILINE :== 1 /* PA: flag value: edit control is multi-line. */
EDITISKEYSENSITIVE :== 2 /* PA: flag value: edit control sends keyboard events to Clean. */
// PA: end of addition.
// PA: values for telling Windows if a (custom)button control is OK, CANCEL, or normal.
ISNORMALBUTTON :== 0 /* The button is a normal button. */
ISOKBUTTON :== 1 /* The button is the OK button. */
ISCANCELBUTTON :== 2 /* The button is the CANCEL button. */
// PA: end of addition
winSetWindowCursor :: !HWND !Int !*OSToolbox -> *OSToolbox
winSetWindowCursor hwnd cursorcode tb
= snd (issueCleanRequest2 (errorCallback2 "winSetWindowCursor") (Rq2Cci CcRqCHANGEWINDOWCURSOR hwnd cursorcode) tb)
winObscureCursor :: !*OSToolbox -> *OSToolbox
winObscureCursor tb
= snd (issueCleanRequest2 (errorCallback2 "winObscureCursor") (Rq0Cci CcRqOBSCURECURSOR) tb)
winSetWindowTitle :: !HWND !String !*OSToolbox -> *OSToolbox
winSetWindowTitle hwnd title tb
# (textptr,tb) = winMakeCString title tb
//| True = abort ("CSTRING : " +++ title +++ "; " +++ toString textptr +++ "\n")
# (_,tb) = issueCleanRequest2 (errorCallback2 "SetWindowTitle") (Rq2Cci CcRqSETWINDOWTITLE hwnd textptr) tb
= winReleaseCString textptr tb
winGetWindowText :: !HWND !*OSToolbox -> (!String, !*OSToolbox)
winGetWindowText hwnd tb
# (rcci,tb) = issueCleanRequest2 (errorCallback2 "winGetWindowText") (Rq1Cci CcRqGETWINDOWTEXT hwnd) tb
# (text,tb) = case rcci.ccMsg of
CcRETURN1 -> winGetCStringAndFree rcci.p1 tb
CcWASQUIT -> ("",tb)
other -> abort "[winGetWindowText] expected CcRETURN1 value."
= (text,tb)
/* PA: the following four functions are now implemented as C-calls.
winInvalidateWindow :: !HWND !*OSToolbox -> *OSToolbox
winInvalidateWindow hwnd tb
= snd (issueCleanRequest2 (errorCallback2 "winInvalidateWindow") (Rq1Cci CcRqINVALIDATEWINDOW hwnd) tb)
winInvalidateRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
winInvalidateRect hwnd (left,top, right,bottom) tb
= snd (issueCleanRequest2 (errorCallback2 "InvalidateRect") (Rq5Cci CcRqINVALIDATERECT hwnd left top right bottom) tb)
winValidateRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
winValidateRect hwnd (left,top, right,bottom) tb
= snd (issueCleanRequest2 (errorCallback2 "ValidateRect") (Rq5Cci CcRqVALIDATERECT hwnd left top right bottom) tb)
winValidateRgn :: !HWND !HRGN !*OSToolbox -> *OSToolbox
winValidateRgn hwnd rgn tb
= snd (issueCleanRequest2 (errorCallback2 "ValidateRgn") (Rq2Cci CcRqVALIDATERGN hwnd rgn) tb)
*/
winUpdateWindowRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
winUpdateWindowRect hwnd (left,top,right,bottom) tb
= snd (issueCleanRequest2 (errorCallback2 "winUpdateWindowRect") (Rq5Cci CcRqUPDATEWINDOWRECT hwnd left top right bottom) tb)
winSetSelectStateWindow :: !HWND !(!Bool,!Bool) !Bool !Bool !*OSToolbox -> *OSToolbox
winSetSelectStateWindow hwnd (hasHScroll,hasVScroll) toAble modalContext tb
# selectCci = Rq5Cci CcRqSETSELECTWINDOW hwnd (toInt hasHScroll) (toInt hasVScroll) (toInt toAble) (toInt modalContext)
= snd (issueCleanRequest2 (errorCallback2 "winSetSelectStateWindow") selectCci tb)
winBeginPaint :: !HWND !*OSToolbox -> (!HDC,!*OSToolbox)
winBeginPaint hwnd tb
# (rcci,tb) = issueCleanRequest2 (errorCallback2 "BeginPaint") (Rq1Cci CcRqBEGINPAINT hwnd) tb
hdc = case rcci.ccMsg of
CcRETURN1 -> rcci.p1
CcWASQUIT -> 0
other -> abort "[winBeginPaint] expected CcRETURN1 value."
= (hdc,tb)
winEndPaint :: !HWND !(!HDC, !*OSToolbox) -> *OSToolbox
winEndPaint hwnd (hdc,tb)
= snd (issueCleanRequest2 (errorCallback2 "EndPaint") (Rq2Cci CcRqENDPAINT hwnd hdc) tb)
winFakePaint :: !HWND !*OSToolbox -> *OSToolbox
winFakePaint hwnd tb
= snd (issueCleanRequest2 (errorCallback2 "FakePaint") (Rq1Cci CcRqFAKEPAINT hwnd) tb)
winGetClientSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
winGetClientSize OSNoWindowPtr tb
= ((0,0),tb)
winGetClientSize hwnd tb
# (rcci,tb) = issueCleanRequest2 (errorCallback2 "winGetClientSize") (Rq1Cci CcRqGETCLIENTSIZE hwnd) tb
size = case rcci.ccMsg of
CcRETURN2 -> (rcci.p1,rcci.p2)
CcWASQUIT -> (0,0)
other -> abort "[winGetClientSize] expected CcRETURN2 value."
= (size,tb)
winGetWindowSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
winGetWindowSize hwnd tb
# (rcci,tb) = issueCleanRequest2 (errorCallback2 "winGetWindowSize") (Rq1Cci CcRqGETWINDOWSIZE hwnd) tb
size = case rcci.ccMsg of
CcRETURN2 -> (rcci.p1,rcci.p2)
CcWASQUIT -> (0,0)
other -> abort "[winGetWindowSize] expected CcRETURN2 value."
= (size,tb)
winSetClientSize :: !HWND !(!Int,!Int) !*OSToolbox -> *OSToolbox
winSetClientSize hwnd (w,h) tb
= snd (issueCleanRequest2 (errorCallback2 "winSetClientSize") (Rq3Cci CcRqSETCLIENTSIZE hwnd w h) tb)
winSetWindowSize :: !HWND !(!Int,!Int) !Bool !*OSToolbox -> *OSToolbox
winSetWindowSize hwnd (w,h) update tb
= snd (issueCleanRequest2 (errorCallback2 "winSetWindowSize") (Rq4Cci CcRqSETWINDOWSIZE hwnd w h (toInt update)) tb)
winGetWindowPos :: !HWND !*OSToolbox -> (!(!Int,!Int),!*OSToolbox)
winGetWindowPos hwnd tb
# (rcci,tb) = issueCleanRequest2 (errorCallback2 "winGetWindowPos") (Rq1Cci CcRqGETWINDOWPOS hwnd) tb
pos = case rcci.ccMsg of
CcRETURN2 -> (rcci.p1,rcci.p2)
CcWASQUIT -> (0,0)
other -> abort "[winGetWindowPos] expected CcRETURN2 value."
= (pos,tb)
winSetWindowPos :: !HWND !(!Int,!Int) !Bool !Bool !*OSToolbox -> *OSToolbox
winSetWindowPos hwnd (x,y) update inclScrollbars tb
= snd (issueCleanRequest2 (errorCallback2 "winSetWindowPos") (Rq5Cci CcRqSETWINDOWPOS hwnd x y (toInt update) (toInt inclScrollbars)) tb)
winSetScrollRange :: !HWND !Int !Int !Int !Bool !*OSToolbox -> *OSToolbox
winSetScrollRange scrollHWND iBar min max redraw tb
= snd (issueCleanRequest2 (errorCallback2 "winSetScrollRange") (Rq5Cci CcRqSETSCROLLRANGE scrollHWND iBar min max (toInt redraw)) tb)
winSetScrollPos :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
winSetScrollPos scrollHWND iBar thumb maxx maxy extent tb
= snd (issueCleanRequest2 (errorCallback2 "winSetScrollPos") (Rq6Cci CcRqSETSCROLLPOS scrollHWND iBar thumb maxx maxy extent) tb)
winSetScrollThumbSize :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
winSetScrollThumbSize scrollHWND iBar size maxx maxy extent tb
= snd (issueCleanRequest2 (errorCallback2 "winSetScrollThumbSize") (Rq6Cci CcRqSETSCROLLSIZE scrollHWND iBar size maxx maxy extent) tb)
winSetEditSelection :: !HWND !Int !Int !*OSToolbox -> *OSToolbox
winSetEditSelection editHWND first last tb
= snd (issueCleanRequest2 (errorCallback2 "winSetEditSelection") (Rq3Cci CcRqSETEDITSELECTION editHWND first last) tb)
winShowControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
winShowControl hwnd bool tb
= snd (issueCleanRequest2 (errorCallback2 "winShowControl") (Rq2Cci CcRqSHOWCONTROL hwnd (toInt bool)) tb)
winEnableControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
winEnableControl hwnd bool tb
= snd (issueCleanRequest2 (errorCallback2 "winEnableControl") (Rq2Cci CcRqENABLECONTROL hwnd (toInt bool)) tb)
winEnablePopupItem :: !HWND !Int !Bool !*OSToolbox -> *OSToolbox
winEnablePopupItem hwnd pos bool tb
= snd (issueCleanRequest2 (errorCallback2 "winEnablePopupItem") (Rq3Cci CcRqENABLEPOPUPITEM hwnd pos (toInt bool)) tb)
winCheckControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
winCheckControl hwnd bool tb
= snd (issueCleanRequest2 (errorCallback2 "winCheckControl") (Rq2Cci CcRqSETITEMCHECK hwnd (toInt bool)) tb)
winSelectPopupItem :: !HWND !Int !*OSToolbox -> *OSToolbox
winSelectPopupItem hwnd pos tb
= snd (issueCleanRequest2 (errorCallback2 "winSelectPopupItem") (Rq2Cci CcRqSELECTPOPUPITEM hwnd pos) tb)
|
