GGActive.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Bier, June 17, 1991 10:33 pm PDT
Contents: Routines that help applications use Gargoyle illustrations as user interfaces (part of the EmbeddedButtons architecture). Also, former contents of GGPort which has been decommissioned.
Kenneth A. Pier, August 19, 1991 12:54 pm PDT
DIRECTORY
EBTypes, EmbeddedButtons, GGInterfaceTypes, TIPPrivate, TIPUser;
GGActive: CEDAR DEFINITIONS = BEGIN
ActiveDoc: TYPE = EBTypes.ActiveDoc;
GGData: TYPE = GGInterfaceTypes.GGData;
RawInput:
TYPE ~
RECORD [actionQueue: EBTypes.ActionQueue, rawAction: EBTypes.RawAction];
IsRawInput:
PROC [input:
LIST
OF
REF
ANY]
RETURNS [
BOOL];
does this input look like raw input? (contains a UserInput.Handle in PCedar)
NarrowRawInput:
PROC [input:
LIST
OF
REF
ANY]
RETURNS [RawInput];
extract (ActionQueue, RawAction) pair from raw input
MouseAction:
PROC [RawInput]
RETURNS [
BOOL];
is this RawAction a mouse action?
MouseAllUp:
PROC [RawInput]
RETURNS [
BOOL];
are the mouse buttons all up?
MouseCoords:
PROC [RawInput]
RETURNS [TIPUser.TIPScreenCoordsRec];
returns the mouse position as a TIPScreenCoordsRec
ParseEvent:
PROC [TIPPrivate.TIPParseInfo, RawInput]
RETURNS [
LIST
OF
REF
ANY];
use the TIPParseInfo to parse the raw input into an event list
LookupDoc:
PROC [ggData: GGData]
RETURNS [doc: ActiveDoc];
ControlPanelButtonHandler: PROC [ggData: GGData, events: LIST OF REF, buttonInfo: EBTypes.ButtonInfo];
END.