<> <> <> <> DIRECTORY Core, Rope; RoseBind: CEDAR DEFINITIONS = BEGIN <> <> <> << [Artwork node; type 'ArtworkInterpress on' to command tool] >> <> <> ROPE: TYPE = Rope.ROPE; classKey: ATOM-- = $RoseClassName--; argsKey: ATOM-- = $RoseArgs--; variableWire: ATOM-- = $RoseVariableWire--; switchWire: ATOM-- = $RoseSwitchWire--; complexDrive: ATOM-- = $RoseComplexDrive--; simpleDrive: ATOM-- = $RoseSimpleDrive--; testerSwitchWire: ATOM-- = $RoseTesterSwitchWire--; testerComplexDrive: ATOM-- = $RoseTesterComplexDrive--; testerSimpleDrive: ATOM-- = $RoseTesterSimpleDrive--; BehaviorClass: TYPE = REF BehaviorClassRec; BehaviorClassRec: TYPE; EnsureBehaviorClass: PROC [name: ROPE, publicWirePrototype: Core.Wire, moduleNameRoot: ROPE _ NIL] RETURNS [bc: BehaviorClass]; <> END.