implementation module MacKeys

import StdClass,StdInt
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)
*/
	# shift = get_last_shortcut_shift_state 0;
		with
			get_last_shortcut_shift_state :: !Int -> Int;
			get_last_shortcut_shift_state _
				= code {
					ccall get_last_shortcut_shift_state "I:I"
				}
	| shift<>0
		= (True,ioState);
		= (False,ioState);

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