From 7553b7f9d4dddc2235c137d41de8ce22547bebe3 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 1 Jul 2015 17:36:37 +0200
Subject: Initial commit

---
 ostooltip.icl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 ostooltip.icl

(limited to 'ostooltip.icl')

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)
-- 
cgit v1.2.3