XTkIcon.mesa
Copyright Ó 1991, 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, May 2, 1991 2:46:56 pm PDT
Christian Jacobi, April 8, 1992 12:22 pm PDT
This is used by implementations of shell widgets; general clients ought
probably not to have much use for this semi private module.
XTkIcon: CEDAR DEFINITIONS ~ BEGIN
All procedures assumes the shell not yet realized, but connection and screenDepth already filled in.
SetIconName:
PUBLIC
PROC [shell: XTk.Widget, fromDB:
BOOL ←
TRUE, default: Rope.
ROPE ¬
NIL];
Tries to set the icon name for a shell.
If fromDB: queries the DB (using ...iconName).
default is used if no query or query failed.
SetIconMask:
PUBLIC
PROC [shell: XTk.Widget, fromDB:
BOOL ←
TRUE, packageName, shortName: Rope.
ROPE ¬
NIL];
Tries to set the icon pixmap and mask for a shell.
If fromDB: queries the DB (using ...iconPixmap and ...iconMask).
If no query or query failes, uses packageName and shortName to make up file names like /Cedar10.1/packageName/shortName.xIcon and /Cedar10.1/packageName/shortName.xIconMask
END.