DIRECTORY
Feedback, FutureValues, GGInterfaceTypes, GGModelTypes, GGScene, GGSliceOps, GGUserInput, Imager, ImagerColorPrivate, IO, Rope;

GGValueEventImpl: CEDAR PROGRAM
IMPORTS Feedback, FutureValues, GGScene, GGSliceOps, GGUserInput, ImagerColorPrivate, IO
= BEGIN

Color: TYPE = Imager.Color;
FutureValue: TYPE = FutureValues.FutureValue;
GGData: TYPE = GGInterfaceTypes.GGData;
ROPE: TYPE = Rope.ROPE;
Slice: TYPE = GGModelTypes.Slice;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
UserInputProc: TYPE = GGUserInput.UserInputProc;

GetSelectedSlices: UserInputProc = {
fv: FutureValue ¬ NARROW[event.rest.first];
slices: LIST OF SliceDescriptor ¬ GGScene.ListSelectedSlices[ggData.scene, first, normal];
fv.value ¬ slices;
FutureValues.NowAvailable[fv];
};

GetAreaColor: UserInputProc = {
fv: FutureValue ¬ NARROW[event.rest.first];
errorRope: ROPE;
color: Color;
success: BOOL ¬ TRUE;

[color, success, errorRope] ¬ GetColorOfSelectedSlice[TRUE, ggData, "GetAreaColor"];
fv.value ¬ color;
FutureValues.NowAvailable[fv];
};

GetLineColor: UserInputProc = {
fv: FutureValue ¬ NARROW[event.rest.first];
errorRope: ROPE;
color: Color;
success: BOOL ¬ TRUE;

[color, success, errorRope] ¬ GetColorOfSelectedSlice[FALSE, ggData, "GetLineColor"];
fv.value ¬ color;
FutureValues.NowAvailable[fv];
};

GetColorOfSelectedSlice: PROC [fill: BOOL, ggData: GGData, opName: ROPE] RETURNS [color: Color, success: BOOL ¬ TRUE, error: ROPE ¬ NIL] = {
aborted: BOOL ¬ FALSE;
sliceD: SliceDescriptor;
UniqueColorOrAbort: PROC [thisD: SliceDescriptor] RETURNS [done: BOOL ¬ FALSE] = {
thisColor: Color;
isUnique: BOOL ¬ TRUE;
IF sliceD = NIL THEN {
sliceD ¬ thisD;
IF fill THEN [color, isUnique] ¬ GGSliceOps.GetFillColor[thisD.slice, thisD.parts]
ELSE [color, isUnique] ¬ GGSliceOps.GetStrokeColor[thisD.slice, thisD.parts];
done ¬ NOT isUnique;
}
ELSE {
IF fill THEN [color, isUnique] ¬ GGSliceOps.GetFillColor[thisD.slice, thisD.parts]
ELSE [color, isUnique] ¬ GGSliceOps.GetStrokeColor[thisD.slice, thisD.parts];
IF NOT isUnique OR NOT ImagerColorPrivate.ColorEqual[thisColor, color] THEN done ¬ TRUE
};
};
aborted ¬ GGScene.WalkSelectedSlices[ggData.scene, first, UniqueColorOrAbort, normal];
IF aborted OR sliceD = NIL THEN {
error ¬ ReportSelectionProblems[aborted, sliceD, opName, ggData];
success ¬ FALSE;
};
};

ReportSelectionProblems: PROC [aborted: BOOL, sliceD: SliceDescriptor, opName: ROPE, ggData: GGData] RETURNS [error: ROPE] = {
IF aborted THEN {
error ¬ IO.PutFR1["%g failed: there is more than one value for this key", [rope[opName]] ];
Feedback.PutF[ggData.router, oneLiner, $Complaint, "%g failed: there is more than one value for this key", [rope[opName]] ];
}
ELSE IF sliceD = NIL THEN {
error ¬ IO.PutFR1["%g failed: no objects are targeted", [rope[opName]] ];
Feedback.PutF[ggData.router, oneLiner, $Complaint, "%g failed: no objects are selected", [rope[opName]] ];
};
};

RegisterEventProcs: PROC = {
OPEN GGUserInput;

RegisterAction[$GetSelectedSlices, GetSelectedSlices, none, FALSE];
RegisterAction[$GetAreaColor, GetAreaColor, none, FALSE];
RegisterAction[$GetLineColor, GetLineColor, none, FALSE];
};

RegisterEventProcs[];

END.

   Ú  
GGValueEventImpl.mesa
Copyright c 1992 by Xerox Corporation.  All rights reserved.
Bier, June 30, 1993 11:20 pm PDT
Contents:  Registered Gargoyle actions that return values using the GGFutureValue interface.

 ÊÚ  •NewlineDelimiter
™ code™Kšœ
Ïmœ1™<K™ K™\K™ —šÏk	˜	J˜K˜ —šœžœž˜JšžœP˜XKšœž˜K˜ Kšœžœ˜Kšœžœ˜-Kšœžœ˜'Kšžœžœžœ˜Kšœžœ˜!Kšœžœ ˜5Kšœžœ˜0—K˜ šÏnœ˜$Kšœžœ˜+KšœžœžœK˜ZK˜K˜K˜K˜ —šÏbœ˜Kšœžœ˜+Kšœžœ˜K˜Kšœ	žœžœ˜K˜ Kšœ6žœ˜TK˜K˜K˜K˜ —š œ˜Kšœžœ˜+Kšœžœ˜K˜Kšœ	žœžœ˜K˜ Kšœ6žœ˜UK˜K˜K˜K˜ —šŸœžœžœžœžœžœžœ	žœžœ˜ŒKšœ	žœžœ˜Kšœ˜•StartOfExpansion=[rgb: RGB, calibration: ImagerColor.RGBCalibration _ NIL]š
Ÿœžœžœžœžœ˜RK˜Kšœ
žœžœ˜šžœ
žœžœ˜K˜šžœžœF˜RKšžœI˜M—Kšœžœ
˜K˜—šžœ˜šžœžœF˜RKšžœI˜M—Kšžœžœ
žœžœ1žœž˜WK˜—K˜—Kšœ8Ïtœ¡œ¡˜Všžœ	žœ
žœžœ˜!K˜AKšœ
žœ˜K˜—K˜K˜ —šŸœžœžœ#žœžœ	žœ˜~šžœ	žœ˜KšœžœQ˜[Kšœ|˜|K˜—šžœžœ
žœžœ˜Kšœžœ?˜IKšœj˜jK˜—K˜K˜ —šŸœžœ˜Kšžœ˜K˜ Kšœ<žœ˜CKšœ2žœ˜9Kšœ2žœ˜9K˜K˜ —K˜K˜ Kšžœ˜K˜ — …—    Z    