
DIRECTORY
AtomButtonsTypes, GraphicsButton, Imager, ImagerTransformation, Rope, TIPUser, ViewerClasses, ViewerOps;

GraphicsButtonImpl: CEDAR PROGRAM
IMPORTS TIPUser, ViewerOps
EXPORTS GraphicsButton =
BEGIN

GBChoiceList: TYPE = AtomButtonsTypes.GBChoiceList;
GraphicsState: TYPE = REF GraphicsStateObj;
GraphicsStateObj: TYPE =  AtomButtonsTypes.GraphicsStateObj;
HandleButtonProc: TYPE = AtomButtonsTypes.HandleButtonProc;
RepaintProc: TYPE = AtomButtonsTypes.RepaintProc;
UpdateGraphicsButtonProc: TYPE = AtomButtonsTypes.UpdateGraphicsButtonProc;
Viewer: TYPE = ViewerClasses.Viewer;

GraphicsButtonPaint: PROC [self: Viewer, context: Imager.Context, whatChanged: REF ANY, clear: BOOL] RETURNS [quit: BOOL ¬ FALSE] = {
graphicsState: GraphicsState;
IF whatChanged = NIL THEN { --we are being called by Window Manager
graphicsState ¬ NARROW[self.data];
Painter[graphicsState];
}
ELSE {
graphicsState ¬ NARROW[whatChanged];
graphicsState.repaintProc[context, graphicsState.clientData, graphicsState.buttonData, graphicsState.button];
};
};

Painter: PUBLIC PROC [graphicsState: GraphicsState] = {
ViewerOps.PaintViewer[
viewer: graphicsState.button,
hint: client,
whatChanged: graphicsState,
clearClient: TRUE];
}; -- end of Painter

BuildGraphicsButton: PUBLIC PROC [container: Viewer, x,y,w,h: INTEGER, clientData: REF ANY, choices: GBChoiceList, handleProc: HandleButtonProc, repaintProc: RepaintProc, buttonData: REF ANY ¬ NIL, updateProc: UpdateGraphicsButtonProc ¬ NIL] RETURNS [nextX: INTEGER] = {
stateInfo: GraphicsState;
stateInfo ¬ NEW[GraphicsStateObj];
stateInfo.button ¬ ViewerOps.CreateViewer[
flavor: $GraphicsButton,
info: [
parent: container,
wx: x, wy: y,
ww: w,
wh: h,
data: stateInfo,
scrollable: FALSE
]
];
stateInfo.clientData ¬ clientData;
stateInfo.buttonData ¬ buttonData;
stateInfo.repaintProc ¬ repaintProc;
stateInfo.handleProc ¬ handleProc;
stateInfo.choices ¬ choices;
IF updateProc # NIL THEN updateProc[clientData, stateInfo];
nextX ¬ x + w;
}; -- end of BuildGraphicsButton

GetValue: PUBLIC PROC [graphicsState: GraphicsState] RETURNS [clientData: REF ANY, buttonData: REF ANY] = {
clientData ¬ graphicsState.clientData;
buttonData ¬ graphicsState.buttonData;
};
SetButtonValueAndPaint: PUBLIC PROC [graphicsState: GraphicsState, clientData: REF ANY, buttonData: REF ANY ¬ NIL] = {
graphicsState.clientData ¬ clientData;
graphicsState.buttonData ¬ buttonData;
Painter[graphicsState];
};


InputNotify: ViewerClasses.NotifyProc = {
graphicsState: GraphicsState ¬ NARROW[self.data];
handleProc: HandleButtonProc ¬ graphicsState.handleProc;
ctrl, shift, mouse: ATOM;
list: GBChoiceList;
action: LIST OF REF ANY;
ctrl ¬ NARROW[input.first];
shift ¬ NARROW[input.rest.first];
mouse ¬ NARROW[input.rest.rest.first];
list ¬ graphicsState.choices;
IF ctrl = $Ctrl THEN
FOR i: NAT IN [1..6] DO
IF list = NIL THEN RETURN;
list ¬ list.rest;
ENDLOOP;
IF shift = $Shift THEN
FOR i: NAT IN [1..3] DO
IF list = NIL THEN RETURN;
list ¬ list.rest;
ENDLOOP;
SELECT mouse FROM
$Left => {};
$Middle => {IF list = NIL THEN RETURN; list ¬ list.rest;};
$Right => {IF list = NIL THEN RETURN; list ¬ list.rest; IF list = NIL THEN RETURN; list ¬ list.rest;};
ENDCASE => ERROR;
IF list = NIL THEN RETURN;
action ¬ list.first.event;
handleProc[graphicsState.clientData, action];
};

Init: PROC = {
graphicsButtonClass: ViewerClasses.ViewerClass;
 
graphicsButtonClass ¬ 
NEW[ViewerClasses.ViewerClassRec ¬ [
paint: GraphicsButtonPaint,
notify: InputNotify,
tipTable: TIPUser.InstantiateNewTIPTable["GraphicsButton.tip"], -- case matters in PCedar!!
cursor: bullseye
]];
 
ViewerOps.RegisterViewerClass[$GraphicsButton, graphicsButtonClass];
};

Init[];
END.
   ‏  GraphicsButtonImpl.mesa
Contents:  Procedures dealing selecting and deselecting objects, including both selection actions and selection feedback.
Copyright س 1985, 1987, 1989, 1992 by Xerox Corporation.  All rights reserved.
Last edited by Bier on February 23, 1987 1:36:33 pm PST
Pier, December 6, 1985 11:07:55 am PST
Doug Wyatt, October 6, 1989 3:57:27 pm PDT
Michael Plass, March 25, 1992 11:03 am PST

[self: Viewer, input: LIST OF REF ANY, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL];

‌ت  •NewlineDelimiter
–(cedarcode) styleک code™K™yKڑœ
دeœC™NK™7K™&K™*K™*K™ —ڑدk	ک	KڑœhکhKک —ڑدnœ‍œ‍ک!Kڑ‍œکKڑ‍œک—Kڑ‍کک Kڑœ‍œ!ک3Kڑœ‍œ‍œک+Kڑœ‍œ&ک<Kڑœ‍œ‍œ‍ک;Kڑœ‍œ‍œ‍ک1Kڑœ‍œ‍œ‍کKKڑœ‍œک$—Kک ڑںœ‍œ6‍œ‍œ	‍œ‍œ‍œ‍œک…Kڑœکڑ‍œ‍œ‍œدc'کCKڑœ‍œک"KڑœکKڑœک—ڑ‍œکKڑœ‍œک$KڑœmکmKڑœک—KڑœکKک —ڑںœ‍œ‍œ#ک7ڑœک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ڑœ ک —Kک ڑںœ‍œ‍œ ‍œ‍œ‍œ‍œ‍œکkKک&Kک&Kک—ڑںœ‍œ‍œ,‍œ‍œ‍œ‍œ‍œکvKک&Kک&KڑœکKکKک —Kک ڑںœک)Kڑœ‍œ‍œ‍œ‍œ
‍œ‍œ‍œ‍œ‍œ‍œ™_Kڑœ‍œک1Kک8Kڑœ‍œکKکKڑ	œ‍œ‍œ‍œ‍œکKڑœ‍œکKڑœ‍œک!Kڑœ‍œک&Kکڑ‍œ‍کڑ‍œ‍œ‍œ‍کKڑ‍œ‍œ‍œ‍œکKکKڑ‍œک——ڑ‍œ‍کڑ‍œ‍œ‍œ‍کKڑ‍œ‍œ‍œ‍œکKکKڑ‍œک——ڑ‍œ‍کKکKڑ	œ‍œ‍œ‍œ‍œک:Kڑœ‍œ‍œ‍œ‍œ‍œ‍œ‍œ‍œکfKڑ‍œ‍œک—Kڑ‍œ‍œ‍œ‍œکKکKڑœ-ک-KکKک —ڑںœ‍œکKڑœ/ک/KڑœکKکڑ‍œ!ک$KڑœکKڑœکKڑœ@ ک[KکKڑœک—KڑœکKڑœDکDKڑœکKک —KڑœکK™ Kڑ‍œک— …—    V  h  