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
|
definition module windowCrossCall_12
import StdString
from ostoolbox import :: OSToolbox
from ostypes import :: HWND
from rgnCCall_12 import :: HRGN
from pictCCall_12 import :: HDC
// 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
winObscureCursor :: !*OSToolbox -> *OSToolbox
winSetWindowTitle :: !HWND !String !*OSToolbox -> *OSToolbox
winGetWindowText :: !HWND !*OSToolbox -> (!String, !*OSToolbox)
winUpdateWindowRect :: !HWND !(!Int,!Int,!Int,!Int) !*OSToolbox -> *OSToolbox
winSetSelectStateWindow :: !HWND !(!Bool,!Bool) !Bool !Bool !*OSToolbox -> *OSToolbox
winBeginPaint :: !HWND !*OSToolbox -> (!HDC, !*OSToolbox)
winEndPaint :: !HWND !(!HDC, !*OSToolbox) -> *OSToolbox
winFakePaint :: !HWND !*OSToolbox -> *OSToolbox
winGetClientSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
winGetWindowSize :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
winSetClientSize :: !HWND !(!Int,!Int) !*OSToolbox -> *OSToolbox
winSetWidgetSize :: !HWND !(!Int,!Int) !Bool !*OSToolbox -> *OSToolbox
winGetWindowPos :: !HWND !*OSToolbox -> (!(!Int,!Int), !*OSToolbox)
winSetWindowPos :: !HWND !(!Int,!Int) !Bool !Bool !*OSToolbox -> *OSToolbox
winSetScrollRange :: !HWND !Int !Int !Int !Bool !*OSToolbox -> *OSToolbox
winSetScrollPos :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
winSetScrollThumbSize :: !HWND !Int !Int !Int !Int !Int !*OSToolbox -> *OSToolbox
winSetEditSelection :: !HWND !Int !Int !*OSToolbox -> *OSToolbox // Note: @2<=@3, @1 must point to an edit control.
winShowControl :: !HWND !Bool !*OSToolbox -> *OSToolbox // Hide (False) & show (True) controls.
winEnableControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
winEnablePopupItem :: !HWND !Int !Bool !*OSToolbox -> *OSToolbox // PA: this function is currently not used, but might be
winCheckControl :: !HWND !Bool !*OSToolbox -> *OSToolbox
winSelectPopupItem :: !HWND !Int !*OSToolbox -> *OSToolbox
|
