-- Compiler Cursors/n
-- stone November 10, 1980  5:18 PM
--Maureen Stone February 2, 1983 3:17 pm

DIRECTORY
    Cursors USING [CursorType, CursorArray, NewCursor, SetCursor],
    CursorDefs;

GriffinCursors: PROGRAM IMPORTS Cursors EXPORTS CursorDefs =
BEGIN

pointingCursor, busyCursor, abortCursor, menuCursor: Cursors.CursorType;
pointingCursorBits: Cursors.CursorArray _ 
    [400B,400B,400B,400B,
    400B,400B,0B,176576B,
    0B,400B,400B,400B,
    400B,400B,400B,0B];
abortCursorBits: Cursors.CursorArray _ 
    [100002B,40004B,20010B,10020B,
    4040B,2100B,1200B,400B,
    1200B,2100B,4040B,10020B,
    20010B,40004B,100002B,0];
busyCursorBits: Cursors.CursorArray _ 
    [160020B, 57430B, 100244B, 40146B,
    110050B, 62010B, 150411B, 36006B,
    70111B, 111610B, 110520B, 44520B,
    42460B, 145020B, 46020B, 13054B];
menuCursorBits: Cursors.CursorArray _ 
    [177777B,100001B,100001B,100001B,
    100001B,100001B,100001B,100001B,
    100001B,100001B,100001B,100001B,
    100001B,100001B,100001B,177777B];

SetCursor: PUBLIC PROCEDURE[cursor: CursorDefs.Cursor] = {
    SELECT cursor FROM
        pointingCursor => Cursors.SetCursor[pointingCursor];
        abortCursor => Cursors.SetCursor[abortCursor];
        busyCursor => Cursors.SetCursor[busyCursor];
        menuCursor => Cursors.SetCursor[menuCursor];
        ENDCASE => ERROR;
    };

GetPointingCursor: PUBLIC PROCEDURE RETURNS [Cursors.CursorType] = {
    RETURN[pointingCursor]};
    
pointingCursor _ Cursors.NewCursor[pointingCursorBits,-7,-7];
abortCursor _ Cursors.NewCursor[abortCursorBits,-7,-7];
busyCursor _ Cursors.NewCursor[busyCursorBits,-7,-7];
menuCursor _ Cursors.NewCursor[menuCursorBits,-7,-7];

END.