blob: c362a23a1c693c98e90070b51770e91da89dc7c7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
implementation module ostooltip
import StdTuple
import clCrossCall_12
from clCCall_12 import winMakeCString, winReleaseCString, :: CSTR
from oswindow import :: OSWindowPtr
osIgnoreCallback :: !CrossCallInfo !*OSToolbox -> (!CrossCallInfo,!*OSToolbox)
osIgnoreCallback _ tb
= (return0Cci,tb)
osAddControlToolTip :: !OSWindowPtr !OSWindowPtr !String !*OSToolbox -> *OSToolbox
osAddControlToolTip parentPtr controlPtr tip tb
# (textptr,tb) = winMakeCString tip tb
# cci = Rq3Cci CcRqADDCONTROLTIP parentPtr controlPtr textptr
# tb = snd (issueCleanRequest2 osIgnoreCallback cci tb)
= winReleaseCString textptr tb
osRemoveControlToolTip :: !OSWindowPtr !OSWindowPtr !*OSToolbox -> *OSToolbox
osRemoveControlToolTip parentPtr controlPtr tb
= snd (issueCleanRequest2 osIgnoreCallback (Rq2Cci CcRqDELCONTROLTIP parentPtr controlPtr) tb)
|
