Function MsgEvent

outdated/sys/mac/macwin.c:2482–2548

#if 0 // TARGET_API_MAC_CARBON
static pascal OSStatus
MsgEvent(EventHandlerCallRef nexthandler, EventRef event, void *userdata)
{
	NhWindow *wind = (NhWindow *) userdata;


	switch (GetEventClass(event)) {
	case kEventClassControl: {
		ControlRef control;
		ControlID id;

		switch (GetEventKind(event)) {
		case kEventControlHit:
			GetEventParameter(event, kEventParamDirectObject,
				typeControlRef, NULL, sizeof(ControlRef), NULL, &control);
			GetControlID(control, &id);
			/* TODO... */
			return (noErr);
		}
		break;
	}

	case kEventClassKeyboard: {
		char ch;
		UInt32 modifiers;


		GetEventParameter(event, kEventParamKeyMacCharCodes, typeChar, NULL,
			sizeof(char), NULL, &ch);
		GetEventParameter(event, kEventParamKeyModifiers, typeUInt32, NULL,
			sizeof(UInt32), NULL, &modifiers);
		if (modifiers & cmdKey)
			return (eventNotHandledErr);
		AddToKeyQueue(topl_resp_key(ch), TRUE);
		return (noErr);
	}

	case kEventClassWindow:
		switch (GetEventKind(event)) {
		case kEventWindowDrawContent: 
			CallNextEventHandler(nexthandler, event);
			MsgUpdate(wind);
			return (noErr);

		case kEventWindowHandleContentClick: {
			CGrafPtr saveport;
			GDHandle savedev;
			Point pt;

			GetEventParameter(event, kEventParamMouseLocation, typeQDPoint,
				NULL, sizeof(Point), NULL, &pt);
			GetGWorld(&saveport, &savedev);
			SetPortWindowPort(wind->its_window);
			GlobalToLocal(&pt);
			SetGWorld(saveport, savedev);
			MsgClick(wind, pt);
			return (noErr);
		}