
DIRECTORY IO, Rope, ViewerClasses;

CharDisplays: CEDAR DEFINITIONS = {

ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;

DisplayDestroyed: ERROR [cd: CharDisplay];

CharDisplay: TYPE = REF CharDisplayRep;
CharDisplayRep: TYPE = RECORD [
class: CharDisplayClass,
name, tipTableName: ROPE,
det: DisplayDetails,
client: Client,
viewer: Viewer м NIL,
fromDisplay: IO.STREAM м NIL,
line, col: INT м 0,
emphs: Emphs,
otherInstanceData: REF ANY м NIL];

DisplayDetails: TYPE = RECORD [
lines: NAT м 24,
columns: NAT м 80,
autoMargins, scrolls: BOOL м TRUE,
autoMarginsVariable, scrollsVariable: BOOL м FALSE];

CharDisplayClass: TYPE = REF CharDisplayClassRep;
CharDisplayClassRep: TYPE = RECORD [
name: ROPE,
Init: PROC [cd: CharDisplay, initData: REF ANY],
ChangeDetails: PROC [cd: CharDisplay, new: DisplayDetails],
DeleteChar: PROC [cd: CharDisplay],
TakeChar: PROC [cd: CharDisplay, char: CHAR, insert: BOOL --м FALSE--],
CursorMove: PROC [cd: CharDisplay, line, col: INT, relative: BOOL --м FALSE--, doLine, doCol: BOOL --м TRUE--],
Line: PROC [cd: CharDisplay, insert: BOOL],
ClearTo: PROC [cd: CharDisplay, where: Where],
ClearAll: PROC [cd: CharDisplay],
SetEmph: PROC [cd: CharDisplay, emph: Emph, on: BOOL],
Emphasize: PROC [cd: CharDisplay, emph: Emph, on: BOOL],
SetFont: PROC [cd: CharDisplay, font: ROPE],
Beep: PROC [cd: CharDisplay],
Flush: PROC [cd: CharDisplay] м NIL,
Destroyed: PROC [cd: CharDisplay] RETURNS [BOOL]
];

SimplyChange: PROC [cd: CharDisplay, new: DisplayDetails];

Where: TYPE = {EndOfLine, EndOfScreen};

Emph: TYPE = {underline, bold, italic, inverse};
Emphs: TYPE = ARRAY Emph OF BoolDefaultsFalse;
BoolDefaultsFalse: TYPE = BOOL м FALSE;
EmphOp: TYPE = {add, subtract, set};

Client: TYPE ~ REF ClientRep;
ClientRep: TYPE ~ RECORD [
InitiateChangeDetails: PROC [Client, CharDisplay, DisplayDetails] RETURNS [BOOL],
clientData: REF ANY м NIL];

GetClass: PROC [name: ROPE] RETURNS [cdc: CharDisplayClass];
RegClass: PROC [cdc: CharDisplayClass];
EnumerateClasses: PROC [PROC [CharDisplayClass]];

unchangeableClient: Client;

Create: PROC [class: CharDisplayClass, client: Client, name, tipTableName: ROPE м NIL, det: DisplayDetails м [], initData: REF ANY м NIL] RETURNS [cd: CharDisplay];

Split: PROC [l: CharDisplayList, client: Client, name: ROPE м NIL] RETURNS [s: CharDisplay];

CharDisplayList: TYPE = LIST OF CharDisplay;

}.
  р  
CharDisplays.Mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Spreitzer, February 19, 1986 9:02:41 pm PST
Last tweaked by Mike Spreitzer on April 4, 1990 9:52:01 am PDT
Insert/Delete
Apply to char at cursor
Notifes display that nothing more will be done to it for a while.
Flush may be falsely called, but must be called when it becomes true.
Either does it (including call on ChangeDetails) and returns TRUE, or doesn't and returns FALSE.
Э╩  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЩKЪЬ
╧eЬ1Щ<JЩ;KЩ>ЧKШ KЪ╧k	ЬЮЬШ"KШ Ъ╨bxЬЮЬЮЬШ#KШ KЪЮЬЮЬЮЬШKЪЬЮЬШ$KШ KЪ╨blЬЮЬШ*KШ KЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKШKЪЬЮЬШKШKШKЪЬЮЬШKЪЬЮЬЮЬЮЬШKЪЬЮЬШKЪЬШKЪЬЮЬЮЬЮЬШ"ЧKШ ЪЬЮЬЮЬШKЪЬЮЬШKЪЬ	ЮЬШKЪЬЮЬЮЬШ"KЪЬ&ЮЬЮЬШ4ЧKШ KЪЬЮЬЮЬШ1ЪЬЮЬЮЬШ$KЪЬЮЬШKЪ╧nЬЮЬЮЬЮЬШ0KЪбЬЮЬ(Ш;KЪб
ЬЮЬШ#KЪбЬЮЬЮЬ
ЮЬ╧cЬвЬШGKЪб
ЬЮЬЮЬЮЬвЬвЬЮЬвЬвЬШoЪбЬЮЬЮЬШ+KЩЧKЪбЬЮЬ!Ш.KЪбЬЮЬШ!KЪбЬЮЬ#ЮЬШ6Ъб	ЬЮЬ#ЮЬШ8KЩЧKЪбЬЮЬЮЬШ,KЪбЬЮЬШЪбЬЮЬЮЬШ$KЩAKЩEЧKЪб	ЬЮЬЮЬЮЬШ0KШЧKШ KЪбЬЮЬ(Ш:KШ KЪЬЮЬШ'KШ KЪЬЮЬ&Ш0KЪЬЮЬЮЬЮЬШ.KЪЬЮЬЮЬЮЬШ'KЪЬЮЬШ$KШ KЪЬЮЬЮЬШЪЬЮЬЮЬШЪбЬЮЬ'ЮЬЮЬШQKЪЬ`Щ`ЧKЪЬЮЬЮЬЮЬШЧKШ KЪбЬЮЬЮЬЮЬШ<KЪбЬЮЬШ'KЪбЬЮЬЮЬШ1KШ KЪЬШKШ KЪбЬЮЬ?ЮЬЮЬ&ЮЬЮЬЮЬЮЬШдKШ KЪ
бЬЮЬ,ЮЬЮЬЮЬШ\KШ KЪЬЮЬЮЬЮЬШ,KШ KШЧЧ ЕЧ    	N  :  