diff options
Diffstat (limited to 'ostooltip.icl')
| -rw-r--r-- | ostooltip.icl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/ostooltip.icl b/ostooltip.icl new file mode 100644 index 0000000..c362a23 --- /dev/null +++ b/ostooltip.icl @@ -0,0 +1,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)
|