<> <> DIRECTORY Containers USING [Container], Graphics USING [Box], IO USING [Handle], Menus USING [Menu, MenuProc], Rope USING [ROPE], ViewerClasses USING [Viewer]; IconEditorDefs: CEDAR DEFINITIONS = BEGIN <<*********************** general constants and types used for icons *********************** >> iconW: INTEGER = 64; -- width and height of an icon (in bits) iconH: INTEGER = 64; intWBound: CARDINAL = iconW-1; intHBound: CARDINAL = iconH-1; intW: TYPE = [0..intWBound]; intH: TYPE = [0..intHBound]; maxStorage: INTEGER = 32; -- how many icons kept "in core" at any given time bitArray: TYPE = ARRAY intH OF MACHINE DEPENDENT RECORD [b: PACKED ARRAY intW OF BOOLEAN]; rectangleRec: TYPE = RECORD [ x, y, w, h: INTEGER _ 0]; lineRec: TYPE = RECORD [ x1, y1, x2, y2: INTEGER _ 0]; MarkType: TYPE = {rect, line}; markPoint: TYPE = RECORD [x, y: INTEGER _ 0]; iconUpdate: TYPE = {screen, board, icon, bit, newIcon, mark, rect, line}; iconInfoRef: TYPE = REF iconInfoRec; iconInfoRec: TYPE = RECORD [ handle: IconHandle, update: iconUpdate, currentIcon: iconFlavor, clearBit: BOOLEAN _ FALSE, x, y: REAL _ 0]; <<>> <<************************** constants used for laying out display *************************>> normalThickness: REAL = 1.0; bitsPerWord: CARDINAL = 16; <<************************** constants used for laying out display *************************>> distX: CARDINAL = 4; -- fixed distance between Icons on the menu distY: CARDINAL = 4; maxIconsOnDisplay: CARDINAL = 20; -- Maximum # of Icons allowed in the displayed Icon menu minimumUnit: CARDINAL = 3; <<********************** type declarations for Icon File Format ***************************>> iconFlavor: TYPE = MACHINE DEPENDENT { -- pre-defined icons document(0), dirtyDocument(1), fileCabinet(2), tool(3), typescript(4), private(177776B), -- will cause call of viewer paintProc to paint icon unInit(177777B) -- private flag for unitialized icon type }; iconRef: TYPE = REF iconFileFormat; iconFileFormat: TYPE = MACHINE DEPENDENT RECORD [ bits: bitArray, -- 64 x 64 bit pattern label: BOOL _ FALSE, -- label icon with viewer name? invertLabel: BOOL _ FALSE, -- invert text when labeling? filler: [0..16384) _ 0, lx, ly, lw, lh: INTEGER _ 0, -- rectangle for label (from bottom left) empty: ARRAY [0..251) OF UNSPECIFIED _ ALL[0] -- for future use ]; <<************************** type declarations for Icon Editor *****************************>> IconHandle: TYPE = REF IconHandleRec; IconHandleRec: TYPE = RECORD [ container: Containers.Container, viewer: ViewerClasses.Viewer, iconFileWindow: ViewerClasses.Viewer, iconNumberWindow: ViewerClasses.Viewer, iconFetchFileWindow: ViewerClasses.Viewer, iconNameWindow: ViewerClasses.Viewer, -- w.t.. << varying parameters>> iconFileName: Rope.ROPE, iconFile: IO.Handle, numberOfIcons: CARDINAL _ 0, -- How many icons in the current file numberReadIn: CARDINAL _ 0, -- How many icons originally read in (needed for reset) numIconsPerRow, numIconsPerCol: CARDINAL, possibleX, possibleY: CARDINAL, -- space remaining for board after Icon menu allocated icX, icY: CARDINAL, -- computed origin for the Icon menu boardSize: REAL, unit: INTEGER, startDisplay: CARDINAL _ 0, -- where to start displaying icons on screen << icons>> icons: ARRAY [0..maxStorage) OF iconRef, currentIC: iconFlavor _ FIRST[IconEditorDefs.iconFlavor], nextFlavor: iconFlavor, -- Keeps track of next possible flavor for new icons currentIconRep: iconRef, -- the icon currently displayed on drawing board savedBitMap: bitArray, -- used for "un-doing" operations << area and line marking variables>> firstMark: BOOLEAN _ TRUE, -- Used for marking diagonal points of rectangles drewLine, drewRectangle: BOOLEAN _ FALSE, -- Used for erasing previously drawn rectangles or lines currentRectangle, labelRect: rectangleRec, -- Normalized coordinates of rectangle (from bottom left) currentLine: lineRec, mark1, mark2: markPoint, -- Diagonal (mark) points of rectangles functionNotApplied: BOOLEAN -- Indicates whether previous rectangle should be erased ]; <<************************************** Signals ************************************** >> CouldntLoadIcons: SIGNAL; CouldntSaveIcons: SIGNAL; ViewerNoGood: SIGNAL; PointsMarked: PROCEDURE [handle: IconHandle, representation: MarkType] RETURNS [BOOLEAN]; SaveBitMap: PROCEDURE [handle: IconHandle]; LayoutBoard: PROCEDURE [handle: IconHandle, bounds: Graphics.Box]; GetNewFlavor: PROCEDURE [handle: IconHandle] RETURNS [newFlavor: iconFlavor]; LoadIcons: PROCEDURE[handle: IconHandle, filename: Rope.ROPE] RETURNS [nRead: INTEGER, iconFile: IO.Handle]; SaveIcons: PROCEDURE[handle: IconHandle, filename: Rope.ROPE, numberOfIcons: CARDINAL] RETURNS [iconFile: IO.Handle]; NormalizeRectangle: PROC [corner1, corner2: markPoint] RETURNS [rect: rectangleRec]; TransferEndPoints: PROC [endpoint1, endpoint2: markPoint] RETURNS [line: lineRec]; ComputeEndPoints: PROC [handle: IconHandle, oldLine: lineRec] RETURNS [newLine: lineRec]; ClearIcon: PROCEDURE[handle: IconHandle, flavor: iconFlavor]; MirrorIcon: PROCEDURE[handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; DrawLine: PROCEDURE[handle: IconHandle, line: lineRec, flavor: iconFlavor]; FreshMarks: PROCEDURE [handle: IconHandle]; WhiteLabel: PROC [handle: IconHandle, flavor: iconFlavor]; BlackLabel: PROC [handle: IconHandle, flavor: iconFlavor]; SetLabel: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; UnSetLabel: PROC [handle: IconHandle, flavor: iconFlavor]; SetWhite: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; SetDeskTopGray: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; SetDarkGray: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; SetBlack: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; Invert: PROC [handle: IconHandle, flavor: iconFlavor, rect: rectangleRec]; MoveRight: PROC [handle: IconHandle, flavor: iconFlavor, slowShift: BOOLEAN]; MoveLeft: PROC [handle: IconHandle, flavor: iconFlavor, slowShift: BOOLEAN]; MoveUp: PROC [handle: IconHandle, flavor: iconFlavor, slowShift: BOOLEAN]; MoveDown: PROC [handle: IconHandle, flavor: iconFlavor, slowShift: BOOLEAN]; BitMapToCurrentIcon: PROC [bitmap: REF ANY]; CreateMenu: PROCEDURE [handle: IconHandle] RETURNS [iconMenu: Menus.Menu]; BlackLabelProc, WhiteLabelProc, LineProc, InvertProc, BlackProc, DarkGrayProc, DeskTopGrayProc, WhiteProc, UnLabelIconProc, LabelIconProc, RightProc, LeftProc, DownProc, UpProc, UndoProc, ShowLabelProc, CreateIconProc, DeleteIconProc, RotateDisplayProc, LoadIconProc, SaveProc, ResetProc: Menus.MenuProc; END.