DIRECTORY
EBTypes, Rope;

EBNullDoc: CEDAR DEFINITIONS = BEGIN


ActiveDoc: TYPE = EBTypes.ActiveDoc;
ActiveButton: TYPE = EBTypes.ActiveButton;
ROPE: TYPE = Rope.ROPE;

Create: PROC [docName: ROPE] RETURNS [doc: ActiveDoc];
Instantiate: PROC [doc: ActiveDoc];

CreateBOOLButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: BOOL] RETURNS [ActiveButton];

CreateATOMButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: ATOM] RETURNS [ActiveButton];

CreateROPEButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: ROPE] RETURNS [ActiveButton];

CreateINTButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: INT] RETURNS [ActiveButton];

CreateREALButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: REAL] RETURNS [ActiveButton];

CreateRopeEnumerationButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: ROPE, type: LIST OF ROPE] RETURNS [ActiveButton];

CreateEnumeratedButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: REF, type: LIST OF REF] RETURNS [ActiveButton];
AddBOOLVariable: PROC [button: ActiveButton, varName: ROPE, varVal: BOOL];

AddATOMVariable: PROC [button: ActiveButton, varName: ROPE, varVal: ATOM];

AddROPEVariable: PROC [button: ActiveButton, varName: ROPE, varVal: ROPE];

AddINTVariable: PROC [button: ActiveButton, varName: ROPE, varVal: INT];

AddREALVariable: PROC [button: ActiveButton, varName: ROPE, varVal: REAL];

AddRopeEnumerationVariable: PROC [button: ActiveButton, varName: ROPE, varVal: ROPE, type: LIST OF ROPE];

AddEnumeratedVariable: PROC [button: ActiveButton, varName: ROPE, varVal: REF, type: LIST OF REF];


END.
   `  
EBNullDoc.mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Kenneth A. Pier, September 29, 1992 5:13 pm PDT


users must create a new NullDoc, create all the buttons for the doc,
add all the variables to all the buttons, then call Instantiate
CreateRopeEnumerationButton is preferable to CreateEnumeratedButton because it does better type checking and avoids the spurious use of REF TEXT where ROPE is required.

CreateButton: PROC [doc: ActiveDoc, buttonName: ROPE, initialVarVal: ] RETURNS [ActiveButton];

AddVariable: PROC [button: ActiveButton, varName: ROPE, varVal: ];
 Э╩╜  ХNewlineDelimiter
Щ ЩJЩ<JЩ/ЧJЩ JЩ Ъ╧k	Ш	JШJШ ЧЪ╧n	ЬЭЬЭЬЭШ$JШ JШ JЪЬЭЬШ$JЪЬЭЬШ*JЪЭЬЭЬЭЬШJШ ЧЪЮЬЭЬЭЬЭЬШ6JЩDJЩ?ЧJЪЮЬЭЬШ#JШ Ъ
ЮЬЭЬЭЬЭЬЭЬШfJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШfJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШfJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШdJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШfJШ ЧЪЮЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШЕJЪЮЬЬЬЬЬЬЬЬЮЬЬ7ЬЩиJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ~Щ JЪЬЭЬЭЬЭЬЩbЧЧJЩ ЪЮЬЭЬ!ЭЬ
ЭЬШJJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬШJJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬШJJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬШHJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬШJJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬЭЬЭЬЭЬШiJШ ЧЪЮЬЭЬ!ЭЬ
ЭЬЭЬЭЬЭЬШbШ JЪЬЭЬ!ЭЬЩFЧЧJШ JЪЭЬШЧ ЕЧ    b    