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)

