implementation module MacKeys

import quickdraw
import ioState, commonDef

ShiftKeyIsDown :: !(IOState *s) -> (!Bool, !IOState *s)
ShiftKeyIsDown ioState
	#	(toolbox, ioState)
			= 	IOStateGetToolbox ioState
	#	(k1, k2, k3, k4, toolbox)
			=	GetKeys toolbox

		(shiftKeyIsDown, _, _, _)
			=	 KeyMapToModifiers (k1, k2, k3, k4)
	#	ioState
			= 	IOStateSetToolbox toolbox ioState

	=	(shiftKeyIsDown, ioState)


ObscureCursor :: !(IOState *s) -> IOState *s
ObscureCursor ioState
	=	IOStateChangeToolbox QObscureCursor ioState