BiScroller.TIP
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer on August 10, 1987 1:21:02 pm PDT
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,CTRL,(Ctrl Down | Spare3 Down)]
[
DEF,IfShift,(
SELECT
ENABLE
FROM
[SHIFT] => ~1;
ENDCASE => ~2)]
[
DEF,IfCtrl,(
SELECT
ENABLE
FROM
[CTRL] => ~1;
ENDCASE => ~2)]
[DEF,RedStuff,(WHILE Lock Down => [IfShift,(BSscrollAlongClicks, Coords, )~1,(BSscrollToCenter, Coords, )~1])]
[DEF,BlueStuff,(WHILE Lock Down => [IfShift,[BlueMid,~1,BScontractXY,BSexpandXY],[BlueMid,~1,BScontract,BSexpand]])]
[DEF,BlueMid,([IfCtrl,{ ~2 Coords ~1},{~3 Coords ~1}])]
SELECT
TRIGGER
FROM
Red Down [RedStuff,Idle];
Mouse WHILE Red Down [RedStuff,Idle];
Red Up [RedStuff,Doit];
Yellow Down WHILE Lock Down => BSthumb, Coords, Idle;
Mouse WHILE Yellow Down WHILE Lock Down => BSthumb, Coords, Idle;
Yellow Up WHILE Lock Down => BSthumb, Coords, Doit;
Blue Down [BlueStuff,Idle];
Mouse WHILE Blue Down [BlueStuff,Idle];
Blue Up [BlueStuff,Doit];
ENDCASE .