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] }; [] _ 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. ΨSpinifexAtomsImpl.mesa Copyright c 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 -- Module Initialization Κα˜™Icodešœ Οmœ1™