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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.Э╩▄  Ц"cedar" styleШ IcodeЩЩ;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ШЧЧ ЕЧ    	P  ╬  