SpinifexAtomsImpl.mesa
Copyright © 1984 by Xerox Corporation. All rights reserved.
Written by: Shand, June 7, 1984 1:39:57 am PDT
Last Edited by: Shand, August 8, 1984 3:25:13 pm PDT
DIRECTORY
CDProperties USING [RegisterProperty, InstallProcs, CopyVal, InternalPWriteProc, InternalPReadProc],
TokenIO USING [WriteAtom],
SpinifexAtoms
;
SpinifexAtomsImpl:
CEDAR
PROGRAM
IMPORTS CDProperties, TokenIO
EXPORTS SpinifexAtoms
~ BEGIN
spinifex: PUBLIC ATOM ← $Spinifex;
spinifexErrorRect: PUBLIC ATOM ← $SpinifexErrorRect;
errorClient: PUBLIC ATOM ← $SpinifexErrorClient;
thymePrint: PUBLIC ATOM ← $SpinifexThymeProc;
rosePrint: PUBLIC ATOM ← $SpinifexRoseProc;
analyzeSelected: PUBLIC ATOM ← $SpinifexS;
analyzeAndThymeSelected: PUBLIC ATOM ← $SpinifexThymeS;
analyzeAndRoseSelected: PUBLIC ATOM ← $SpinifexRoseS;
highlightPointedNode: PUBLIC ATOM ← $SpinifexHighlightNodeP;
SignalName: PUBLIC ATOM ← $SignalName;
InstanceName: PUBLIC ATOM ← $InstanceName;
Rect: PUBLIC ATOM ← $Rect;
SaveRect: PUBLIC ATOM ← $SaveRect;
Cell: PUBLIC ATOM ← $Cell;
WriteERect: CDProperties.InternalPWriteProc
--
[prop: REF, val: REF] -- ~ {
TokenIO.WriteAtom[spinifexErrorRect]
};
-- Module Initialization
[] ← CDProperties.RegisterProperty[spinifex, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[analyzeAndThymeSelected, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[analyzeAndRoseSelected, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[spinifexErrorRect, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[thymePrint, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[rosePrint, $LetMeDoIt];
[] ← CDProperties.RegisterProperty[errorClient, $LetMeDoIt];
CDProperties.InstallProcs[prop~ spinifexErrorRect, new~ [makeCopy~ CDProperties.CopyVal, internalWrite~ WriteERect]];
CDProperties.InstallProcs[prop~ spinifex, new~ [makeCopy~ CDProperties.CopyVal]];
CDProperties.InstallProcs[prop~ errorClient, new~ [makeCopy~ CDProperties.CopyVal]];
END.