diff options
| author | Camil Staps | 2015-07-01 17:36:37 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-01 17:36:37 +0200 |
| commit | 7553b7f9d4dddc2235c137d41de8ce22547bebe3 (patch) | |
| tree | 34f8fb4b36640317d728a60586424f67f9befbe7 /ostooltip.icl | |
| parent | gitignore (diff) | |
Initial commit
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)
|