MultiCursorsExtras.mesa
Copyright © 1992 by Xerox Corporation. All rights reserved.
Bier, August 5, 1992 12:17 pm PDT
Contents: Routines to get at cursor patterns by name.
DIRECTORY
CursorTypes, ViewerClasses;
MultiCursorsExtras: CEDAR DEFINITIONS = BEGIN
CursorArrayRef: TYPE = CursorTypes.CursorArrayRef;
Cursor32ArrayRef: TYPE = CursorTypes.Cursor32ArrayRef;
CursorType: TYPE = ViewerClasses.CursorType;
CursorPatternResult: TYPE = {small, big, none};
GetPatternFromName:
PROC [type: CursorType]
RETURNS [result: CursorPatternResult, smallPattern: CursorArrayRef, bigPattern: Cursor32ArrayRef, hotX, hotY:
INTEGER ¬ 0];
If type describes a 16x16 bit cursor, return its pattern in smallPattern and set result to small. If it is a 32x32 bit cursor, return its pattern in bigPattern and set result to big. Otherwise, set result to none.
END.