DIRECTORY DB, Icons USING [IconFlavor], IO USING[STREAM], Rope USING [ROPE]; DBIcons: CEDAR DEFINITIONS = BEGIN EstablishIconDB: PROC [file: Rope.ROPE]; IconDB: READONLY Rope.ROPE; readOnly: READONLY BOOLEAN; RegisterIcon: PROC [iconName: Rope.ROPE, fileName: Rope.ROPE, index: CARDINAL]; IsRegistered: PROC[iconName: Rope.ROPE _ NIL, fileName: Rope.ROPE _ NIL, index: CARDINAL _ LAST[CARDINAL]] RETURNS[name: Rope.ROPE, file: Rope.ROPE, i: CARDINAL]; GetIcon: PROC [iconName: Rope.ROPE, default: Icons.IconFlavor _ unInit] RETURNS [Icons.IconFlavor]; GetIconForEntity: PROC [eName, domain: Rope.ROPE, segment: DB.Segment] RETURNS [Icons.IconFlavor]; SetIcon: PROC[e: DB.Entity, iconFile: Rope.ROPE, fileIndex: CARDINAL]; InvalidateCache: PROC [iconName: Rope.ROPE _ NIL]; WriteCatalogue: PROC[ file: Rope.ROPE ]; ReadCatalogue: PROC[ file: Rope.ROPE, errlog: IO.STREAM _ NIL ]; Failed: ERROR [why: Failure, reason: Rope.ROPE]; Failure: TYPE = {badSegment, noSuchIcon, fileNotFound, invalidIndex}; END. 6File: DBIcons.mesa Implemented By: DBIconsImpl Last edited by Teitelman on July 18, 1984 8:58:29 am PDT Donahue, August 11, 1983 2:28 pm Widom, June 18, 1984 8:55:28 am PDT If the icon has been registered by SetIcon, then return it. The default is the acorn icon sets an icon for an entity or a domain ʘJšœ™Jšœ™JšœÏiœ!™YJšœ$™$J˜JšÏk ˜ J˜Jšžœ˜Jšœžœ˜Jšžœžœžœ˜Jšœžœžœ˜J˜Jšœ žœž œž˜"J˜JšÏnœžœ žœ˜)J˜Jšœžœžœ˜Jšœ žœžœ˜J˜Jš Ÿ œžœžœžœ žœ˜PJ˜JšŸ œžœžœžœžœžœ žœžœžœžœ žœ žœžœ˜¢J˜JšŸœžœžœ&žœ˜cJ˜š Ÿœžœžœ žœ žœ˜bJ™Z—J˜š Ÿœžœžœžœ žœ˜FJšœ&™&J˜—JšŸœžœžœžœ˜2J˜JšŸœžœ žœ˜(J˜Jš Ÿ œžœ žœ žœžœžœ˜@J˜Jšœžœžœ˜0Jšœ žœ8˜EJ˜Jšžœ˜J˜J˜J˜J˜J˜J˜J˜—…— E