DIRECTORY IO, Rope, ViewerClasses; CharDisplays: CEDAR DEFINITIONS = { ROPE: TYPE = Rope.ROPE; Viewer: TYPE = ViewerClasses.Viewer; CharDisplay: TYPE = REF CharDisplayRep; CharDisplayRep: TYPE = RECORD [ class: CharDisplayClass, det: DisplayDetails, name: ROPE, 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], Flash: PROC [cd: CharDisplay] ]; 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}; GetClass: PROC [name: ROPE] RETURNS [cdc: CharDisplayClass]; RegClass: PROC [cdc: CharDisplayClass]; Create: PROC [class: CharDisplayClass, name: ROPE _ NIL, det: DisplayDetails _ [], initData: REF ANY _ NIL] RETURNS [cd: CharDisplay]; Split: PROC [l: CharDisplayList, name: ROPE _ NIL] RETURNS [s: CharDisplay]; CharDisplayList: TYPE = LIST OF CharDisplay; }. zCharDisplays.Mesa Last Edited by: Spreitzer, October 24, 1985 1:12:46 pm PDT Insert/Delete Apply to char at cursor Κ(– "cedar" style˜Icode™J™:K˜KšΟk œœ˜"K˜šΠbx œœ œ˜#K˜Kšœœœ˜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š Ÿœœœ œœ˜CKšŸ œœœ œœœœ˜gšŸœœœ˜+K™ —KšŸœœ!˜.KšŸœœ˜!KšŸœœ#œ˜6šŸ œœ#œ˜8K™—KšŸœœœ˜,KšŸœœ˜K˜—K˜KšŸ œœ(˜:K˜Kšœœ˜'K˜Kšœœ&˜0Kšœœœœ˜.Kšœœœœ˜'Kšœœ˜$K˜KšŸœœœœ˜