DIRECTORY
Atom, BiScrollers, GGInterfaceTypes, GGUserInput, GGProps, InputFocus, IO, PropRegistry, Rope, ViewerClasses;

GGRegistryImpl: CEDAR PROGRAM
IMPORTS Atom, BiScrollers, GGUserInput, InputFocus, PropRegistry, Rope = BEGIN

Viewer: TYPE = ViewerClasses.Viewer;
GGData: TYPE = GGInterfaceTypes.GGData;
STREAM: TYPE = IO.STREAM;
ROPE: TYPE = PropRegistry.ROPE;
Doc: TYPE = PropRegistry.Doc;
Key: TYPE = PropRegistry.Key;
lf: ROPE = "\l";
noFocus: ROPE = "No input focus in any viewer";
noGGFocus: ROPE = "No input focus in Gargoyle viewer";

LFNewLine: PROC [in: ROPE] RETURNS [out: ROPE] = {
IF in#NIL THEN {
size: INT = Rope.Size[in];
out м in;
FOR index: INT м Rope.SkipTo[s: in, pos: 0, skip: "\l\r"], Rope.SkipTo[s: in, pos: index+1, skip: "\l\r"] UNTIL index = size DO
out м Rope.Replace[base: out, start: index, len: 1, with: lf];
ENDLOOP;
};
};

GGPropGet: PropRegistry.PropGetProc = {
lor: LIST OF ROPE;
extRef: GGUserInput.External;
ggData: GGData;
focus: InputFocus.Focus м InputFocus.GetInputFocus[];
from: Viewer м IF focus#NIL THEN focus.owner ELSE NIL;
IF from=NIL THEN RETURN [NIL, noFocus];
ggData м NARROW[BiScrollers.ClientDataOfViewer[from]];
IF ggData=NIL THEN RETURN [NIL, noGGFocus];
extRef м NEW[GGUserInput.ExternalRec м [FALSE, key] ]; -- pass in Key
GGUserInput.EventNotify[ggData, LIST[$GetPropExternal, extRef] ];
UNTIL extRef.valid DO GGUserInput.WaitExternal[extRef] ENDLOOP;
lor м NARROW[extRef.results];
prop м LFNewLine[lor.first];
error м LFNewLine[lor.rest.first];
};

GGPropList: PropRegistry.PropListProc = {
extRef: GGUserInput.External;
ggData: GGData;
focus: InputFocus.Focus м InputFocus.GetInputFocus[];
from: Viewer м IF focus#NIL THEN focus.owner ELSE NIL;
IF from=NIL THEN RETURN [NIL];
ggData м NARROW[BiScrollers.ClientDataOfViewer[from]];
IF ggData=NIL THEN RETURN [NIL];
extRef м NEW[GGUserInput.ExternalRec м [] ];
GGUserInput.EventNotify[ggData, LIST[$ListPropsExternal, extRef] ];
UNTIL extRef.valid DO GGUserInput.WaitExternal[extRef] ENDLOOP;
props м NARROW[extRef.results];
};

GGPropRem: PropRegistry.PropRemProc = {
ggData: GGData;
focus: InputFocus.Focus м InputFocus.GetInputFocus[];
from: Viewer м IF focus#NIL THEN focus.owner ELSE NIL;
IF from=NIL THEN RETURN;
ggData м NARROW[BiScrollers.ClientDataOfViewer[from]];
IF ggData=NIL THEN RETURN;
GGUserInput.EventNotify[ggData, LIST[$RemoveProp, Atom.GetPName[key]] ];
};

GGPropSet: PropRegistry.PropSetProc = {
keyVal: Rope.ROPE;
ggData: GGData;
focus: InputFocus.Focus м InputFocus.GetInputFocus[];
from: Viewer м IF focus#NIL THEN focus.owner ELSE NIL;
IF from=NIL THEN RETURN;
ggData м NARROW[BiScrollers.ClientDataOfViewer[from]];
IF ggData=NIL THEN RETURN;
keyVal м Rope.Cat[Atom.GetPName[key], " ", prop]; -- that's what GG wants
GGUserInput.EventNotify[ggData, LIST[$SetProp, keyVal] ];
};

GGGetTarget: PropRegistry.GetTargetProc = {
success м TRUE; -- LIE FOR NOW
};

GGSetTarget: PropRegistry.SetTargetProc = {
success м TRUE; -- LIE FOR NOW
};

GGValidateTarget: PropRegistry.ValidateTargetProc = {
v: ViewerClasses.Viewer ~ NARROW[doc];
success м NOT (v.destroyed OR v.iconic);
IF NOT success THEN error м IF v.destroyed THEN "target viewer destroyed" ELSE "target viewer iconic"
};

RegisterGG: PROC = {
class: PropRegistry.RegistryClass м NEW[PropRegistry.RegistryClassObj];
classнм [
name: $ActionArea,
getProp: GGPropGet,
setProp: GGPropSet,
remProp: GGPropRem,
listProps: GGPropList,
getTarget: GGGetTarget,
setTarget: GGSetTarget,
validTarget: GGValidateTarget
];
PropRegistry.Register[class];
};

RegisterGG[];

END.
   ╚  
GGRegistryImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Kenneth A. Pier, July 7, 1992 10:11 am PDT

PROC [key: Key, doc: Doc, hint: REF] RETURNS [prop, error: ROPE];
extRef action type triggers BROADCAST when completed
GetPropExternal returns LIST[prop, error] in extRef.results
PROC [doc: Doc, hint: REF] RETURNS [props: LIST OF Key];
extRef action type triggers BROADCAST when completed
ListPropsExternal returns LIST OF ATOM in extRef.results
PROC [key: Key, doc: Doc, hint: REF, edited: BOOL];
no need for special RemPropExternal since nothing is returned
PROC [key: Key, doc: Doc, hint: REF, prop: ROPE, edited: BOOL];
no need for special SetPropExternal since nothing is returned
PROC [doc: Doc, hint: REF] RETURNS [success: BOOL, t: Target];
RETURN [FALSE, [NIL, NIL]];
PROC [doc: Doc, hint: REF, t: Target] RETURNS [success: BOOL, error: ROPE];
PROC [doc: Doc, hint: REF, t: Target] RETURNS [success: BOOL, error: ROPE];
 Э╩ў  ХNewlineDelimiter
Ц(cedarcode) styleЩ ЪЬЩJЪЬ
╧eЬ7ЩBJЩ*JЩ ЧcodeЪ╧k	Ш	KЪЬGЮЬ$ШmЧKШ Ъ╧nЬЮЬЮШKЪЮЬBЮШNЧKШ KЪЬЮЬШ$KЪЬЮЬШ'KЪЮЬЮЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬ	ЮЬ"Ш/KЪЬЮЬ'Ш6KШ Ъ
Я	ЬЮЬЮЬЮЬЮЬШ2ЪЮЬЮЬЮЬШKЪЬЮЬШKШ	ХStartOfExpansion)[s: ROPE, pos: INT _ 0, skip: ROPE]ЪЮЬЮЬ\ЮЬЮШKШ>KЪЮЬШЧKШЧKШЧKШ ЪЯ	ЬШ'KЪЮЬЮЬЮЬЮЬЩAKЪЬЮЬЮЬЮЬШKЪЬШKЪЬШKШ5KЪЬЮЬЮЬЮЬЮЬЮЬШ6KЪ
ЮЬЮЬЮЬЮЬЮЬШ'KЪЬ	ЮЬ'Ш6KЪ
ЮЬЮЬЮЬЮЬЮЬШ+KЪЬ	ЮЬЮЬ
╧cШEKЪЬ ЮЬ╧bЬШAЪЮЬЮЬбЬ	ЮЬШ?KЪа4Щ4ЧЪЬЮЬШKЪбЬ,Щ;ЧKШKШ"KШKШ ЧЪЯ
ЬШ)KЪ
ЮЬЮЬЮЬ	ЮЬЮЬЩ8KЪЬШKЪЬШKШ5KЪЬЮЬЮЬЮЬЮЬЮЬШ6KЪ
ЮЬЮЬЮЬЮЬЮЬШKЪЬ	ЮЬ'Ш6KЪ
ЮЬЮЬЮЬЮЬЮЬШ KЪЬ	ЮЬ Ш,ЪЬ ЮЬбЬШCKЪа4Щ4ЧЪЮЬЮЬбЬ	ЮЬШ?KЪбЬ'Щ8ЧKЪЬЮЬШKШKШ ЧЪЯ	ЬШ'KЪЮЬЮЬ
ЮЬЩ3KЪЬШKШ5KЪЬЮЬЮЬЮЬЮЬЮЬШ6KЪЮЬЮЬЮЬЮЬШKЪЬ	ЮЬ'Ш6KЪЮЬЮЬЮЬЮЬШЪЬ ЮЬб
ЬШHKЩ=ЧKШKШ ЧЪЯ	ЬШ'KЪЮЬЮЬЮЬ
ЮЬЩ?KЪЬЮЬШKЪЬШKШ5KЪЬЮЬЮЬЮЬЮЬЮЬШ6KЪЮЬЮЬЮЬЮЬШKЪЬ	ЮЬ'Ш6KЪЮЬЮЬЮЬЮЬШKЪЬ2аШIЪЬ ЮЬШ9KЩ=ЧKШKШ ЧЪЯЬ Ш+KЪЮЬЮЬЮЬЮЬЩ>KЪЬ
ЮЬа╨bcШKЪЮЬЮЬЮЬЮЬЩKШKШ ЧЪЯЬ Ш+KЪ
ЮЬЮЬЮЬЮЬ	ЮЬЩKKЪЬ
ЮЬавШKШKШ ЧЪЯЬ%Ш5KЪ
ЮЬЮЬЮЬЮЬ	ЮЬЩKKЪЬЮЬШ&KЪЬ
ЮЬЮЬШ(KЪЮЬЮЬ	ЮЬ	ЮЬЮЬЮЬШeKШЧKШ ЪЯ
ЬЮЬШKЪЬ$ЮЬ ШGШ	KЪЬШKШKШKЪЬШKШKШKШKШKШЧKЪЬШKШЧKШ KЪЬШKШ KЪЮЬШЧ ЕЧ    т  б  