
DIRECTORY 
Convert, Rope, Xl, XlDB, XlPerDepth, XTk, XTkOps, XTkGestureInput;

XTkGestureInputImpl: CEDAR MONITOR 
IMPORTS Convert, Xl, XlDB, XlPerDepth, XTk, XTkOps 
EXPORTS XTkGestureInput ~ 
BEGIN OPEN XTkGestureInput; 
GestureData: TYPE = REF GestureRec;
GestureRec: TYPE = RECORD [ --hangs on widget
self: XTk.Widget м NIL,
stroke: LIST OF Xl.Point м NIL,
gc: Xl.GContext м NIL,
delayFlush: BOOL м TRUE,
paint: BOOL м FALSE,
registrations: LIST OF RegistrationRec м NIL
];

ReportData: TYPE = RECORD [ --to transmit report data to tq
gd: GestureData,
stroke: LIST OF Xl.Point,
rrl: LIST OF RegistrationRec
];

RegistrationRec: TYPE = RECORD [ --list registrations
proc: GestureReportProc, d1, d2: REF м NIL, tq: Xl.TQ м NIL
];

GestureReportProc: PUBLIC TYPE = PROC [w: XTk.Widget, stroke: LIST OF Xl.Point, e: Xl.Event, d1, d2: REF];

filter: Xl.EventFilter ~ Xl.CreateEventFilter[motionNotify, buttonPress, buttonRelease];

Append: PROC [gd: GestureData, e: Xl.Event, pos: Xl.Point] = {
IF gd.stroke=NIL 
THEN gd.stroke м LIST[pos]
ELSE IF gd.stroke.first#pos THEN {
IF gd.gc#NIL AND gd.paint THEN {
Xl.DrawLine[e.connection, gd.self.window, pos, gd.stroke.first, gd.gc]; 
Xl.Flush[e.connection, gd.delayFlush];
};
gd.stroke м CONS[pos, gd.stroke];
}; 
};

EventProc: Xl.EventProcType = {
ENABLE {
Xl.XError => GOTO oops;
};
gd: GestureData ~ NARROW[clientData];
SELECT event.type FROM
Xl.EventCode.motionNotify => {
e: Xl.MotionNotifyEvent ~ NARROW[event];
Append[gd, e, e.pos];
};
Xl.EventCode.buttonPress => {
e: Xl.ButtonPressEvent ~ NARROW[event];
gd.stroke м NIL;
Append[gd, e, e.pos];
};
Xl.EventCode.buttonRelease => {
e: Xl.ButtonReleaseEvent ~ NARROW[event];
stroke: LIST OF Xl.Point;
Append[gd, e, e.pos];
stroke м gd.stroke; gd.stroke м NIL;
Report[gd, stroke, e];
};
ENDCASE => {};
EXITS oops => {};
};

Report: PROC [gd: GestureData, stroke: LIST OF Xl.Point, event: Xl.Event] = {
FOR rrl: LIST OF RegistrationRec м gd.registrations, rrl.rest WHILE rrl#NIL DO
rd: REF ReportData м NEW[ReportData м [gd: gd, stroke: stroke, rrl: rrl]];
tq: Xl.TQ м rrl.first.tq;
IF tq=NIL THEN tq м gd.self.rootTQ;
Xl.Enqueue[tq: tq, proc: QueuedReport, data: rd, event: event]
ENDLOOP
};

QueuedReport: Xl.EventProcType = {
rd: REF ReportData ~ NARROW[clientData];
rd.rrl.first.proc[w: rd.gd.self, stroke: rd.stroke, e: event, d1: rd.rrl.first.d1, d2: rd.rrl.first.d2];
};

propertyKey: REF INT ~ NEW[INT];

GetGestureTrait: ENTRY PROC [w: XTk.Widget] RETURNS [GestureData] = {
IF w=NIL THEN RETURN [NIL];
WITH XTk.GetWidgetProp[w, propertyKey] SELECT FROM
gd: GestureData => RETURN [gd];
ENDCASE => {
gd: GestureData м NEW[GestureRec м [self: w]];
XTk.PutWidgetProp[w, propertyKey, gd];
XTkOps.CallAndRegisterOnPostRealize[w, PostRealize, gd];
XTk.RegisterNotifier[w, XTk.preStopFastAccessKey, StopAccess, gd];
RETURN [gd];
};
};

StopAccess: XTk.WidgetNotifyProc = {
gd: GestureData ~ NARROW[registerData];
gd.gc м NIL
};

PostRealize: XTk.WidgetNotifyProc = {
gd: GestureData ~ NARROW[registerData];
gestureMatch: Xl.Match м NEW[Xl.MatchRep м [
proc: EventProc, handles: filter, tq: TrustedSharedTQ[widget.screenDepth], data: gd
]];
IF gd.gc=NIL THEN gd.gc м TrustedSharedGC[widget.screenDepth];
Xl.AddDispatch[widget.connection, widget.window, gestureMatch, [buttonMotion: TRUE, buttonRelease: TRUE, buttonPress: TRUE]];  
};

SetReport: PUBLIC PROC [w: XTk.Widget, report: GestureReportProc, d1, d2: REF м NIL, tq: Xl.TQ м NIL] = {
gd: GestureData м GetGestureTrait[w];
EntryAddReport: ENTRY PROC [gd: GestureData, rr: RegistrationRec] = {
gd.registrations м CONS[rr, gd.registrations];
};
EntryAddReport[gd, [report, d1, d2, tq]];
};

SetPainting: PUBLIC PROC [w: XTk.Widget, addFlush: BOOL, gc: Xl.GContext м NIL] = {
gd: GestureData м GetGestureTrait[w];
gd.paint м TRUE;
IF addFlush THEN gd.delayFlush м FALSE;
IF gc#NIL THEN gd.gc м gc;
};

TrustedSharedTQ: PROC [screenDepth: Xl.ScreenDepth] RETURNS [Xl.TQ] = {
pdd: REF PerDepthRec ~ GetDepthData[screenDepth];
RETURN [pdd.sharedTQ]
};

TrustedSharedGC: PUBLIC PROC [screenDepth: Xl.ScreenDepth] RETURNS [Xl.GContext] = {
pdd: REF PerDepthRec ~ GetDepthData[screenDepth];
RETURN [pdd.gc]
};

GetDepthData: PROC [screenDepth: Xl.ScreenDepth] RETURNS [REF PerDepthRec] = INLINE {
RETURN [NARROW[XlPerDepth.InlineGetData[perDKey, screenDepth]]]
};

PerDepthRec: TYPE = RECORD [
sharedTQ: Xl.TQ м NIL,
gc: Xl.GContext
];

perDKey: XlPerDepth.Handle м XlPerDepth.InstallHandle[InstallDepth];
InstallDepth: XlPerDepth.InitProc = {
dd: REF PerDepthRec м NEW[PerDepthRec];
IF sd#NIL AND Xl.Alive[sd.screen.connection] THEN {
width: INT м 0;
screen: Xl.Screen м sd.screen;
c: Xl.Connection м screen.connection;
gc: Xl.GContext м dd.gc м Xl.MakeGContext[c, screen.root.drawable];
Xl.SetGCFunction[gc: gc, function: copy];
Xl.SetGCForeground[gc: gc, foreground: screen.blackPixel];
Xl.SetGCBackground[gc: gc, background: screen.whitePixel];
BEGIN
widthRope: Rope.ROPE; w: INT;
widthRope м XlDB.QueryStandardDB[c, "(XTkGestureInput)(StrokeWidth)"];
w м Convert.IntFromRope[widthRope ! Convert.Error => {w м 0; CONTINUE}];
IF w>0 AND w<20 THEN width м w;
END;
Xl.SetGCLineWidth[gc: gc, width: width];
};
dd.sharedTQ м Xl.CreateTQ[$XTkGesturesImpl];
RETURN [dd]
};

END.
   ╠  
XTkGestureInputImpl.mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 28, 1992 2:43:24 pm PST
Christian Jacobi, October 28, 1992 2:52 pm PST


 Э╩c  ХNewlineDelimiter
Щ JШ codeЩKЪЬ
╧eЬ1Щ<KЩ<KЩ.KЩ ЧЪ╧k	ЬШ
KШBKШ ЧЪ╧nЬЮЬЮЬШ#KЪЮЬ,Ш3KЪЮЬШЧKЪЮЬЮЬШKЩ JЪЬЮЬЮЬШ#ЪЬЮЬЮЬ╧cШ-JЪЬЮЬШJЪЬЮЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬЮШ,JШЧJШ ЪЬЮЬЮЬаШ;KШKЪЬЮЬЮЬ
ШKЪЬЮЬЮЬШKШЧKШ ЪЬЮЬЮЬаШ5KЪЬ!ЮЬЮЬ	ЮЬЮШ;KШЧKШ KЪЬЮЬЮЬЮЬЮЬЮЬ ЮЬШjKШ KШXKШ ЪЯЬЮЬ2Ш>ЪЮЬЮЬШKЪЮЬЮЬШЪЮЬЮЬЮЬШ"ЪЮЬЮЬЮЬ
ЮЬШ KШHKШ&KШЧKЪЬЮЬШ!KШЧЧKШЧKШ ЪЯ	ЬШЪЮЬШKЪЬЮЬШKШЧKЪЬЮЬШ%ЪЮЬЮШШKЪЬЮЬШ(KШKШЧШKЪЬЮЬШ'KЪЬЮЬШKШKШЧШKЪЬЮЬШ)KЪЬЮЬЮЬ
ШKШKЪЬ ЮЬШ$KШKШЧKЪЮЬШЧKЪЮЬШKШЧKШ ЪЯЬЮЬЮЬЮЬШMЪЮЬЮЬЮЬ.ЮЬЮЬЮШNKЪЬЮЬЮЬ2ШJKЪЬЮЬШKЪЮЬЮЬЮЬШ#KШ>KЪЮШЧKШЧKШ ЪЯЬШ"KЪЬЮЬЮЬШ(KШhKШKШ ЧKЪ	ЬЮЬЮЬЮЬЮЬШ KШ ЪЯЬЮЬЮЬЮЬШEJЪ
ЮЬЮЬЮЬЮЬЮЬШЪЮЬ#ЮЬЮШ2KЪЬЮЬШЪЮЬШKЪЬЮЬШ.KШ&KШ8KШBKЪЮЬШKШЧЧKШЧKШ ЪЯ
ЬШ$KЪЬЮЬШ'JЪЬЮШKШKШ ЧЪЯЬШ%KЪЬЮЬШ'ЪЬЮЬШ,KШSKШЧKЪЮЬЮЬЮЬ-Ш>KЪЬNЮЬЮЬЮЬШKШЧKШ ЪЯ	ЬЮЬ4ЮЬЮЬ	ЮЬЮЬШiKШ%ЪЯЬЮЬЮЬ+ШEKЪЬЮЬШ.KШЧKШ)KШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШSKШ%KЪЬЮЬШKЪЮЬ
ЮЬЮЬШ'KЪЮЬЮЬЮЬШШKШ ЧЧЪЯЬЮЬЮЬЮЬШGKЪЬЮЬ)Ш1KЪЮЬШKШKШ ЧЪЯЬЮЬЮЬЮЬШTKЪЬЮЬ)Ш1KЪЮЬ	ШKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШUJЪЮЬЮЬ1Ш?KШKШ ЧЪЬЮЬЮЬШKЪЬЮЬЮЬШKШKШKШ ЧKШDЪЯЬШ%KЪЬЮЬЮЬШ'ЪЮЬЮЬЮЬ ЮЬШ3KЪЬЮЬШKШKШ%KШCKШ)KШ:KШ:ЪЮШKЪЬЮЬЮЬШKШFKЪЬ=ЮЬШHKЪЮЬЮЬЮЬШKЪЮЬШЧKШ(KШЧKШ,KЪЮЬШKЪЬШЧKШ KЪЮЬШЧ ЕЧ    h  Ч  