<> <> <> <> <> <> <> <> <> <<>> DIRECTORY CD USING [Instance, InstanceList], Rope USING [ROPE]; CDSatellites: CEDAR DEFINITIONS = BEGIN <> <> <> <> <<1) satellites are always visible, >> <<2) the user can control their looks and placement to suit his taste, and >> <<3) satellites are untypedas far as clients are concerned satellites are simply >> <> <> <<>> <> <> <> <<>> <> <> <> <> <<>> <<"Design" in context of this package always means the real top of design, >> <> <<>> GetSatellites: PROC [from: REF] RETURNS [sats: CD.InstanceList]; <> <> <> <> <> <> <> <> <> <> <> <<>> GetMaster: PROC [cell: REF, text: CD.Instance] RETURNS [master: REF]; <> <> <> <> <> <> <<>> Associate: PROC [master: REF, text: CD.Instance_NIL]; <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> IsAssociated: PROC [any: REF, inst: CD.Instance] RETURNS [BOOL]; <> <> <> <> <> <> GetSatelliteRopes: PROC [from: REF, filter: FilterProc _ StandardFilter] RETURNS [ropes: LIST OF Rope.ROPE]; <> <> <> <> <<>> FilterProc: TYPE = PROC [inst: CD.Instance] RETURNS [useIt: BOOL_TRUE]; StandardFilter: PROC [inst: CD.Instance] RETURNS [useIt: BOOL]; <> <<[By looking at font and layer: italic fonts are filtered out, >> <> END.