DIRECTORY DB, Icons USING [IconFlavor], IO USING[STREAM], Rope USING [ROPE]; DBIcons: CEDAR DEFINITIONS = BEGIN EstablishIconDB: PROC [file: Rope.ROPE]; Close: PROC[]; 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]; GetIconNameForEntity: PROC [eName, domain: Rope.ROPE, segment: DB.Segment] RETURNS [name: Rope.ROPE]; 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. 8File: DBIcons.mesa Implemented By: DBIconsImpl Last edited by Teitelman on July 18, 1984 8:58:29 am PDT Donahue, September 5, 1984 7:58:08 am PDT Widom, June 18, 1984 8:55:28 am PDT Close the database connection. When the next interrogation or update operation occurs, the database will be reopened (and the cache flushed, if necessary). If the icon has been registered by SetIcon, then return it. The default is the acorn icon 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œ*™bJšœ$™$J˜JšÏk ˜ J˜Jšžœ˜Jšœžœ˜Jšžœžœžœ˜Jšœžœžœ˜J˜Jšœ žœž œž˜"J˜JšÏnœžœ žœ˜(J˜šŸœžœ˜J™œ—J˜Jšœžœžœ˜Jšœ žœžœ˜J˜Jš Ÿ œžœžœžœ žœ˜PJ˜JšŸ œžœžœžœžœžœ žœžœžœžœ žœ žœžœ˜¢J˜JšŸœžœžœ&žœ˜cJ˜š Ÿœžœžœ žœ žœ˜bJ™Z—J˜š Ÿœžœžœ žœ žœ žœ˜eJ™Z—J˜š Ÿœžœžœžœ žœ˜FJšœ&™&J˜—JšŸœžœžœžœ˜2J˜JšŸœžœ žœ˜(J˜Jš Ÿ œžœ žœ žœžœžœ˜@J˜Jšœžœžœ˜0Jšœ žœ8˜EJ˜Jšžœ˜J˜J˜J˜J˜J˜J˜J˜—…—€ö