definition module ostypes

//	Clean Object I/O library, version 1.2

//	Standard types for the OS

::	OSPictContext
	:==	Int							// GrafPort -->> DvA: evt hiet actieve pen settings aan toe voegen???
::	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

OSNoWindowPtr :== 0

::	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