blob: 4fdfb2b5f3c398ddd2aa5294e5f2d5be516113be (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
implementation module ostypes
:: OSPictContext // PA: moved from ospicture by DvA
:== Int // HDC
:: HDC // PA: moved from pictCCall_12
:== Int
:: OSRect // A OSRect is supposed to be an ordered rectangle with
= { rleft :: !Int // rleft<=rright && rtop<=rbottom
, rtop :: !Int
, rright :: !Int
, rbottom :: !Int
}
:: OSWindowPtr
:== Int // HWND
:: HWND
:== Int
OSNoWindowPtr :== -1
:: DelayActivationInfo
= DelayActivatedWindow OSWindowPtr // the window has become active
| DelayDeactivatedWindow OSWindowPtr // the window has become inactive
| DelayActivatedControl OSWindowPtr OSWindowPtr // the control (@2) in window (@1) has become active
| DelayDeactivatedControl OSWindowPtr OSWindowPtr // the control (@2) in window (@1) has become inactive
|
