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]; NarrowRawInput: PROC [input: LIST OF REF ANY] RETURNS [RawInput]; MouseAction: PROC [RawInput] RETURNS [BOOL]; MouseAllUp: PROC [RawInput] RETURNS [BOOL]; MouseCoords: PROC [RawInput] RETURNS [TIPUser.TIPScreenCoordsRec]; ParseEvent: PROC [TIPPrivate.TIPParseInfo, RawInput] RETURNS [LIST OF REF ANY]; LookupDoc: PROC [ggData: GGData] RETURNS [doc: ActiveDoc]; ControlPanelButtonHandler: PROC [ggData: GGData, events: LIST OF REF, buttonInfo: EBTypes.ButtonInfo]; END. ’ 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 does this input look like raw input? (contains a UserInput.Handle in PCedar) extract (ActionQueue, RawAction) pair from raw input is this RawAction a mouse action? are the mouse buttons all up? returns the mouse position as a TIPScreenCoordsRec use the TIPParseInfo to parse the raw input into an event list ΚΑ•NewlineDelimiter ™codešœ ™ KšœB™BKšœ ™ —šœΔ™ΔK™-—K™šΟk ˜ Kšœ@˜@—K˜Kšœ œ œ˜#K˜Kšœ œ œ ˜$Kšœœ˜'šœ œœB˜YK˜—K˜šΟn œœ œœœœœœ˜9K™LK˜—šžœœ œœœœœ ˜AKšœ4™4K˜—šž œœ œœ˜,K™!K˜—šž œœ œœ˜+K™K˜—šž œœ œ˜BK™2K˜—šž œœ%œœœœœ˜OKšœ>™>K˜—šž œœœ˜:K˜—Kš žœœœœœ"˜fK˜Kšœ˜K˜—…—2•