implementation module ostypes



::	OSPictContext					// PA: moved from ospicture by DvA

	:== Int // HDC

::	HDC								// PA: moved from pictCCall_12

	:== Int

::	OSRect							// A OSRect is supposed to be an ordered rectangle with

	=	{	rleft	:: !Int			// rleft<=rright && rtop<=rbottom

		,	rtop	:: !Int

		,	rright	:: !Int

		,	rbottom	:: !Int

		}

::	OSWindowPtr

	:== Int // HWND

::	HWND

	:==	Int



OSNoWindowPtr	:== -1



::	DelayActivationInfo

	=	DelayActivatedWindow	OSWindowPtr				// the window has become active

	|	DelayDeactivatedWindow	OSWindowPtr				// the window has become inactive

	|	DelayActivatedControl	OSWindowPtr OSWindowPtr	// the control (@2) in window (@1) has become active

	|	DelayDeactivatedControl	OSWindowPtr OSWindowPtr	// the control (@2) in window (@1) has become inactive

