DIRECTORY
EBButtonClasses, EBEditors, EmbeddedButtons, RefTab, Rope, ViewerClasses;

EBConcreteTypes: CEDAR DEFINITIONS = BEGIN

NotifyProc: TYPE = EmbeddedButtons.NotifyProc;
Viewer: TYPE = ViewerClasses.Viewer;

ActiveDocPrivateObj: TYPE = RECORD [
class: EBEditors.ActiveDocClass,
nameTable: RefTab.Ref,
targetTable: RefTab.Ref
];

ButtonInfoPrivateRec: TYPE = RECORD [
rope: Rope.ROPE,
changed: BOOL,
class: EBButtonClasses.ButtonClass,
name: ATOM,
fieldValuesOK: BOOL ¬ FALSE,
nameChecked: BOOL ¬ FALSE,
symbols: RefTab.Ref, -- contains all of the fields of ButtonData as ropes
order: LIST OF ATOM,  -- contains the order of the fields in symbols
language: ATOM,
languageVersion: NAT,
instanceData: REF,
hasComplained: BOOL ¬ FALSE -- if this button has problems, have we already complained?
];

VariableTable: TYPE = RefTab.Ref;

Context: TYPE = REF ContextObj;
ContextObj: TYPE = RECORD [
systemVars: RefTab.Ref
];

TargetTableEntry: TYPE = REF TargetTableEntryRep;
TargetTableEntryRep: TYPE = RECORD[
viewer: Viewer,
applicationData: REF,
notifyProc: REF NotifyProc
];

END.


   X  
EBConcreteTypes.mesa
Copyright Ó 1988, 1992 by Xerox Corporation.  All rights reserved.
Goodisman, August 14, 1989 10:05:59 am PDT
Bier, September 29, 1992 4:48 pm PDT
Contents:  The definition of the EmbeddedButtons package private data structures.

class = NIL means that this EmbeddedButton has not yet been instantiated from a ROPE.
Ê+  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ	Ïeœ6™BKšœ*™*K™$KšÏnœI™QK™ —šÏk	˜	K˜IK˜ —KšžœŸœŸœŸ˜*˜ KšœŸœ˜.KšœŸœ˜$K˜ —šœŸœŸœ˜$Kšœ ˜ K˜K˜K˜K˜ —šœŸœŸœ˜%KšœŸœ˜Kšœ	Ÿœ˜Kšœ#˜#KšœŸœ˜KšœŸœŸœ˜KšœŸœŸœ˜KšœÏc4˜IKšœŸœŸœŸœ .˜DKšœ
Ÿ˜KšœŸœ˜KšœŸ˜KšœŸœŸœ ;˜WKšœ˜K™UK˜ —šœŸœ˜!K˜ —Kšœ	ŸœŸœ˜šœŸœŸœ˜K˜K˜K˜ —KšœŸœŸœ˜1šœŸœŸœ˜#K˜KšœŸœ˜IregisterednotifypšœŸœ˜L˜—L˜ šŸœ˜K˜ —Iactivedocprivate˜ — …—    >  Á  