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 = {
success _ NOT (doc.destroyed OR doc.iconic);
IF NOT success THEN error _ IF doc.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 by Xerox Corporation.  All rights reserved.
Kenneth A. Pier, June 14, 1991 6:15 pm 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
Щ ЪЬЩJЩ<JЩ*JЩ ЧЪ╧k	Ш	JЪЬGЭЬ$ШmЧIcodeШ Ъ╧nЬЭЬЭШKЪЭЬBЭШNЧKШ KЪЬЭЬШ$KЪЬЭЬШ'KЪЭЬЭЬЭЬЭЬШJЪЭЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬШKЪЬЭЬШKЪЬ	ЭЬ"Ш/KЪЬЭЬ'Ш6JШ Ъ
Ю	ЬЭЬЭЬЭЬЭЬШ2ЪЭЬЭЬЭЬШKЪЬЭЬШKШ	ХStartOfExpansion)[s: ROPE, pos: INT _ 0, skip: ROPE]ЪЭЬЭЬ\ЭЬЭШKЪЬ>Ш>KЪЭЬШЧKШЧKШЧKШ ЪЮ	ЬШ'KЪЭЬЭЬЭЬЭЬЩAKЪЬЭЬЭЬЭЬШKЪЬШKЪЬШKЪЬ5Ш5KЪЬЭЬЭЬЭЬЭЬЭЬШ6KЪ
ЭЬЭЬЭЬЭЬЭЬШ'KЪЬ	ЭЬ'Ш6KЪ
ЭЬЭЬЭЬЭЬЭЬШ+KЪЬ	ЭЬЭЬ
╧cШEKЪЬ ЭЬ╧bЬШAЪЭЬЭЬаЬ	ЭЬШ?KЪЯ4Щ4ЧЪЬЭЬШKЪаЬ,Щ;ЧKЪЬШKЪЬ"Ш"KШKШ ЧЪЮ
ЬШ)KЪ
ЭЬЭЬЭЬ	ЭЬЭЬЩ8KЪЬШKЪЬШKЪЬ5Ш5KЪЬЭЬЭЬЭЬЭЬЭЬШ6KЪ
ЭЬЭЬЭЬЭЬЭЬШKЪЬ	ЭЬ'Ш6KЪ
ЭЬЭЬЭЬЭЬЭЬШ KЪЬ	ЭЬ Ш,ЪЬ ЭЬаЬШCKЪЯ4Щ4ЧЪЭЬЭЬаЬ	ЭЬШ?KЪаЬ'Щ8ЧKЪЬЭЬШKШKШ ЧЪЮ	ЬШ'KЪЭЬЭЬ
ЭЬЩ3KЪЬШKЪЬ5Ш5KЪЬЭЬЭЬЭЬЭЬЭЬШ6KЪЭЬЭЬЭЬЭЬШKЪЬ	ЭЬ'Ш6KЪЭЬЭЬЭЬЭЬШЪЬ ЭЬа
ЬШHKЩ=ЧKШKШ ЧЪЮ	ЬШ'KЪЭЬЭЬЭЬ
ЭЬЩ?KЪЬЭЬШKЪЬШKЪЬ5Ш5KЪЬЭЬЭЬЭЬЭЬЭЬШ6KЪЭЬЭЬЭЬЭЬШKЪЬ	ЭЬ'Ш6KЪЭЬЭЬЭЬЭЬШKЪЬ2ЯШIЪЬ ЭЬШ9KЩ=ЧKШKШ ЧЪЮЬ Ш+KЪЭЬЭЬЭЬЭЬЩ>KЪЬ
ЭЬЯ╨bcШKЪЭЬЭЬЭЬЭЬЩKШKШ ЧЪЮЬ Ш+KЪ
ЭЬЭЬЭЬЭЬ	ЭЬЩKKЪЬ
ЭЬЯбШKШKШ ЧЪЮЬ%Ш5KЪ
ЭЬЭЬЭЬЭЬ	ЭЬЩKKЪЬ
ЭЬЭЬШ,KЪЭЬЭЬ	ЭЬ	ЭЬЭЬЭЬШgKШЧKШ ЪЮ
ЬЭЬШKЪЬ$ЭЬ ШGШ	KЪЬШKШKШKЪЬШKШKШKШKШKШЧKЪЬШKШЧKШ KЪЬШKШ KЪЭЬШЧ ЕЧ    └  m  