DIRECTORY
AtomButtonsTypes, BiScrollers, EBTypes, GGCircleCache, GGInterfaceTypes, GGModelTypes, MultiCursors, Rope, ViewerClasses;

GGControlPanelTypes: CEDAR DEFINITIONS = BEGIN

Container: TYPE = ViewerClasses.Viewer;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
GravityType: TYPE = GGInterfaceTypes.GravityType;
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;

ControlsObj: TYPE = RECORD [
topper: Container, -- IF together THEN panel ELSE picture
panel: Container, -- control panel container
picture: Container, -- picture container
fileName: ROPE,
biScroller: BiScrollers.BiScroller, -- inside the picture container
actionArea: Viewer, -- the inner viewer of the BiScroller
feedbackLine: Viewer, -- part of feedback, except when feedback is disabled
yBounded: LIST OF Viewer ¬ NIL, -- used in GGContainerImpl for viewer resizing.
xBounded: LIST OF Viewer ¬ NIL,
active: BOOL ¬ FALSE,
activeButton: AtomButtonsTypes.TwoState,
paletteButton: AtomButtonsTypes.TwoState,
palette: BOOL ¬ FALSE,
bufferButton: AtomButtonsTypes.TwoState,
showColors: AtomButtonsTypes.TwoState,
screenStyle: AtomButtonsTypes.EnumTypeRef,
alignments: AtomButtonsTypes.TwoState,
gravityTypeMenu: AtomButtonsTypes.EnumTypeRef, -- initialized in GGWindowImpl
gravityExtentButton: AtomButtonsTypes.GraphicsState,
gravButton: AtomButtonsTypes.TwoState,
midpointButton: AtomButtonsTypes.TwoState,
heuristicsButton: AtomButtonsTypes.TwoState,
slopeHandle: AtomButtonsTypes.SortedButtonHandle,
slopeCount: NAT ¬ 0,
angleHandle: AtomButtonsTypes.SortedButtonHandle,
angleCount: NAT ¬ 0,
radiusHandle: AtomButtonsTypes.SortedButtonHandle,
radiusCount: NAT ¬ 0,
radiusCircleCache: GGCircleCache.Cache,
distanceHandle: AtomButtonsTypes.SortedButtonHandle,
distanceCount: NAT ¬ 0,
caret2: Viewer,
slopeView: Viewer,
angleView: Viewer,
radiusView: Viewer,
lineDistView: Viewer,
typescript: Viewer,
controlPanel: EBTypes.ActiveDoc,
controlPanelViewer: Viewer,
cursor: MultiCursors.CursorType ¬ crossHairsCircle
];

END.

  `  
GGControlPanelTypes.mesa
Copyright Ó 1988, 1991, 1992 by Xerox Corporation.  All rights reserved.
Contents:  The real concrete types of the Gargoyle control panel.  This scheme is in its infancy (most of the real types are in GGInterfacesTypes.mesa, but that may change).
Bier, July 28, 1992 5:50 pm PDT
Doug Wyatt, April 10, 1992 12:06 pm PDT

ÊQ  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ	Ïeœ<™HKšœ­™­K™K™'K™ —šÏk	˜	J˜y—K˜ KšÏnœžœžœž˜.K˜ Kšœžœ˜'Kšœžœ ˜5Kšœžœ ˜1Kšžœžœžœ˜Kšœžœ˜$K˜ šœžœžœ˜KšœÏc&˜9Kšœ ˜,Kšœ ˜(Kšœ
žœ˜Kšœ$ ˜CKšœ %˜9Kšœ 5˜KKšœ
žœžœ
žœ /˜OKšœ
žœžœ
žœ˜Kšœžœžœ˜Kšœ(˜(Kšœ)˜)Kšœ	žœžœ˜Kšœ(˜(Kšœ&˜&Kšœ*˜*Kšœ&˜&Kšœ/ ˜MKšœ4˜4Kšœ&˜&Kšœ*˜*Kšœ,˜,Kšœ1˜1Kšœžœ˜Kšœ1˜1Kšœžœ˜Kšœ2˜2Kšœžœ˜K˜'Kšœ4˜4Kšœžœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ ˜ Kšœ˜K˜2K˜—K˜ Kšžœ˜K˜ — …—    Ø  ‰  