EventTypeComplex := 6.

"types for touch events"

Technically the event comes up as an array of integers, this was changed to allow the 4th indexed item to be a Smalltalk Object

typedef struct sqComplexEvent
{
int type; /* type of event; EventTypeComplex */
unsigned int timeStamp; /* time stamp */
/* the interpretation of the following fields depend on the type of the event */
int action; /* one of ComplexEventXXX (see below) */
usqInt objectPointer; /* used to point to object */
int unused1; /* */
int unused2; /* */
int unused3; /* */
int windowIndex; /* host window structure */
} sqComplexEvent;

The 4th item contains the following Smalltalk Objects

interpreterProxy->storePointerofObjectwithValue(0, storageArea, squeakMSTime);
interpreterProxy->storePointerofObjectwithValue(1, storageArea, timeStamp);
interpreterProxy->storePointerofObjectwithValue(2, storageArea, phase);
interpreterProxy->storePointerofObjectwithValue(3, storageArea, tapCount);
interpreterProxy->storePointerofObjectwithValue(4, storageArea, window);
interpreterProxy->storePointerofObjectwithValue(5, storageArea, view);
interpreterProxy->storePointerofObjectwithValue(6, storageArea, locationInViewX);
interpreterProxy->storePointerofObjectwithValue(7, storageArea, locationInViewY);
interpreterProxy->storePointerofObjectwithValue(8, storageArea, previousLocationInViewX);
interpreterProxy->storePointerofObjectwithValue(9, storageArea, previousLocationInViewY);


typedef enum {
UITouchPhaseBegan, = 0 // whenever a finger touches the surface.
UITouchPhaseMoved, 1 // whenever a finger moves on the surface.
UITouchPhaseStationary, 2 // whenever a finger is touching the surface but hasn't moved since the previous event.
UITouchPhaseEnded, 3 // whenever a finger leaves the surface.
UITouchPhaseCancelled, 4 // whenever a touch doesn't end but we need to stop tracking (e.g. putting device to face)
}

and
EventTouchDown := 1.
EventTouchUp := 2.
EventTouchMoved := 3.
EventTouchStationary := 4.
EventTouchCancelled := 5.