DIRECTORY BasicTime, BitTwiddling, Core, CoreProperties, GetMe, IO, Rope, RoseBehavior, RoseBind, RoseControl, SimpleInvRoseDefs; SimpleInvRoseDetails: CEDAR PROGRAM IMPORTS GetMe, RoseBehavior = BEGIN OPEN RoseBehavior, RoseControl, SimpleInvRoseDefs; EvalSimple: PROC [argsAny, switchAny, simpleAny, strengthAny, stateAny: REF ANY, perturb: PROC [portPath: PortPath]] = { simple: REF SimpleInvSimple = NARROW[simpleAny]; drive: REF SimpleInvDrive = NARROW[strengthAny]; {OPEN simple; drive.out _ drive; drive.in _ none; out _ NOT in; }; }; RegisterDetails[ behaviorClassName: "SimpleInv", details: NEW [DetailsRec _ [EvalSimple: EvalSimple]], versionStamp: GetMe.GetVersion[] ]; END. ˆSimpleInvRoseDetails.mesa Copyright c 1985 by Xerox Corporation. All rights reversed. Spreitzer, October 1, 1985 6:49:02 pm PDT Κ*– "cedar" style˜– "Cedar" stylešœ™Jšœ Οmœ1™