DIRECTORY
Abutters USING
[Abutter, Create, QuaViewer, SetLayout ],
BiScrollers USING [ClientDataOf, bsMenu, QuaBiScroller, QuaViewer],
Convert USING
[RopeFromInt, RopeFromCard],
Icons USING
[NewIconFromFile, IconFlavor],
Imager USING
[Context, Scale2T, SetPriorityImportant, VEC],
Menus USING
[CopyMenu],
MessageWindow USING 
[Append, Blink],
Real  USING
[RoundI],
RefText  USING
[New],
Rope USING
[Cat, Equal, FromRefText ],
SystemVersion  USING
[release],
UserProfile  USING
[Boolean, Token],
ViewerClasses USING 
[PaintProc, SaveProc, Viewer],
ViewerOps USING 
[ComputeColumn, ViewerColumn],
ViewRec  USING
[BindAllOfATypeFromTVs, RecognizeBoolShort, RecordViewer, RVQuaViewer, Viewer, ViewRef],
SilBiScrollers,
SilCommand,
SilDisplay,
SilDisplayCursors,
SilDisplayInternal,
SilDisplayPrivate,
SilDisplayUtils,
SilFile,
SilKernel,
SilUserInput
;

SilDisplayImplA: CEDAR MONITOR LOCKS dData USING dData: SilDisplayData
IMPORTS Abutters, BiScrollers, Convert, Icons, Imager, Menus, MessageWindow, Real, RefText, Rope, SilBiScrollers, --SilColor,-- SilDisplay, SilDisplayCursors, SilDisplayUtils, SilDisplayPrivate, SilFile, SilKernel, SilUserInput, SystemVersion, UserProfile, ViewerOps, ViewRec
EXPORTS SilDisplay, SilKernel = BEGIN OPEN SilFile;

SilData: TYPE = SilKernel.SilData;
SilModel: TYPE = SilFile.SilModel;
SilUIData: TYPE = SilKernel.SilUIData;
SilDisplayData: TYPE = REF SilDisplayDataRec;
SilDisplayDataRec: PUBLIC TYPE = SilDisplayInternal.SilDisplayDataRec;
UInputRec: TYPE = SilUserInput.UInputRec;
iconClean, iconDirty: Icons.IconFlavor _ document;

InitSil: PUBLIC PROC [] = {

defaultIconFile: ROPE _ Rope.Cat["/Cedar/CedarChest", Convert.RopeFromCard[from: SystemVersion.release.major, showRadix: FALSE], ".", Convert.RopeFromCard[from: SystemVersion.release.minor, showRadix: FALSE], "/Sil/Sil.icons"];
iconFile: ROPE _ UserProfile.Token[key: "Sil.IconFile", default: defaultIconFile];
iconClean _ Icons.NewIconFromFile[iconFile, 0];
iconDirty _ Icons.NewIconFromFile[iconFile, 1];
SilDisplayCursors.SilCursorsInit[];
SilDisplayUtils.SilUtilsInit[];
};

CaretBlink: PUBLIC PROC [] = {
SilDisplayCursors.SilCursorsBlink[];
};

GetIcon: PUBLIC PROC [dirtyIcon: BOOL _ FALSE] RETURNS [Icons.IconFlavor] ~ {
RETURN[IF dirtyIcon THEN iconDirty ELSE iconClean];
};

NeedRebuild: PUBLIC PROC [displayData: SilDisplayData] RETURNS [rebuild: BOOL] = {
RETURN[displayData.needRebuild];
};

CancelRebuild: PUBLIC PROC [displayData: SilDisplayData] = {
displayData.needRebuild _ displayData.inRebuild _ FALSE;
};

SilSaveProc: PUBLIC ViewerClasses.SaveProc = {

data: SilKernel.SilData _ NARROW[BiScrollers.QuaBiScroller[self].ClientDataOf[]];
dData: SilDisplayData _ data.displayData;
uiData: SilUIData _ data.uiData;
IF force THEN {
dData.largeFormat _ TRUE; --try not to lose anything in the drawing
dData.clipOutputFile _ FALSE;
SilDisplayUtils.OutputNamedFile[data, SilUserInput.GetBiScroller[uiData].QuaViewer[].parent.name, self]
}
ELSE SilDisplayUtils.OutputNamedFile[data, Rope.FromRefText[dData.collectingFileName], self];
};

SilPaintProc: PUBLIC ViewerClasses.PaintProc = {

data: SilKernel.SilData _ NARROW[BiScrollers.QuaBiScroller[self].ClientDataOf[]];
dData: SilDisplayData _ data.displayData;
SilEntryPaintProc[dData, data, self, context, whatChanged];
};

SilEntryPaintProc: ENTRY PROC [dData: SilDisplayData, data: SilData, viewer: ViewerClasses.Viewer, context: Imager.Context, whatChanged: REF] = {

ctx: Imager.Context _ context;
Imager.Scale2T[ctx, [1.0, -1.0]];
Imager.SetPriorityImportant[ctx, TRUE];
IF dData.magnificationOn THEN SilDisplayUtils.ModifyContext[magnified, dData, ctx];
SELECT whatChanged FROM
$UserInput =>  SilDisplay.SilUIPaint[data, viewer, ctx]; --called because of input
$Carets  => SilDisplayCursors.SilCaretPaint[data, ctx]; --carets blink now
$Rebuild  =>  SilDisplayUtils.SilRebuild[data, ctx]; --screen needs repair
NIL => { --screen needs full paint
boxXmin, boxYmin, boxXmax, boxYmax: INTEGER;
[boxXmin, boxYmin, boxXmax, boxYmax] _ SilDisplayUtils.BoundingBoxOfContext [ctx];
SilDisplayUtils.MergeRebuild[dData, data.model, boxXmin, boxYmin, boxXmax, boxYmax];
SilDisplayUtils.SilRebuild[data, ctx]
};
ENDCASE => ERROR;  --This can't happen unless the world is really screwed
};

InitSilDisplayInstance: PUBLIC PROC [data: SilKernel.SilData, name: ROPE _ NIL, instance: NAT] RETURNS [viewer: ViewerClasses.Viewer] = {
cl: SilCommand.CommandRef;
dData: SilDisplayData _ NEW[SilDisplayDataRec]; --fills in default values from def
dData.commandLine _ NEW[SilCommand.CommandRec]; --this record to be ViewRefed
cl _ NARROW[dData.commandLine];
data.model _ SilFile.NewSilModel[];
IF NOT Rope.Equal[name, ""] THEN {
name _ SilDisplayUtils.CheckFileExtension[name, input];
SilFile.MainFileToModel[data.model, name, FALSE ! SilKernel.SilError => {
MessageWindow.Append[name, TRUE];
MessageWindow.Append[" not found.", FALSE];
MessageWindow.Blink[];
REJECT};];
}
ELSE name _ Rope.Cat["SilNoName", Convert.RopeFromInt[from: instance, showRadix: FALSE]];
dData.collectingText _ RefText.New[SilFile.maxRopeLen];
dData.collectingFileName _RefText.New[SilFile.maxRopeLen];
dData.oldText _ "";
dData.currentFontRef _ SilDisplayUtils.GetFont[
SilFile.InternalFontFromUserFont[dData.currentFont, dData.currentBoldState],
dData.currentItalicState
];
data.displayData _ dData;
{ --this block of code creates abutter, viewrec for the command data, and Sil BiScroller
vW: INTEGER = 600; --initial viewer width
vH: INTEGER = 17; --initial viewer height
bsH: INTEGER = 999;
abutter: Abutters.Abutter _ Abutters.Create[--saveChildren: TRUE,-- viewerFlavor: NIL, info: [name: name, menu: Menus.CopyMenu[BiScrollers.bsMenu], icon: iconClean, iconic: UserProfile.Boolean[key: "Sil.OpenIconic", default: FALSE], column: left, scrollable: FALSE], paint: FALSE];
outerViewer: ViewRec.Viewer _ Abutters.QuaViewer[abutter];
viewRec: ViewRec.RecordViewer _ ViewRec.ViewRef[agg: dData.commandLine, viewerInit: [parent: outerViewer, wx: 0, wy: 0, ww: vW, wh: vH],  sample: FALSE, createOptions: [vSep: 1, hSep: 1, vPad: 1, hPad: 1, nvSep: 1, feedBackHeight: 0], specs: ViewRec.BindAllOfATypeFromTVs[aggType: CODE[SilCommand.CommandRec], eltType: CODE[BOOL], b: [name: NIL, it: TryRecognizer[ViewRec.RecognizeBoolShort]]], paint: FALSE];
viewRecViewer: ViewRec.Viewer _ ViewRec.RVQuaViewer[viewRec];
dData.viewRec _ viewRec; -- remember ViewRec for program controlled updating
viewer _ SilBiScrollers.bsStyle.CreateBiScroller[
class: SilBiScrollers.silClass,
info: [
column: left,
iconic: FALSE,
scrollable: TRUE,
wx: 0, wy: vH,
ww: vW, wh: bsH, --nominal values changed by Abutters.SetLayout
parent: outerViewer,
menu: NIL,
data: data],
paint: FALSE].QuaViewer[]; --this is the outer, containing abutter
SilUserInput.InitUserInput[data, viewer]; --must be called before painting
Abutters.SetLayout[ --see AbuttersTest.mesa.Test2 for explanation of this call !!
a: abutter,
rules: [
left: [NIL, none[]],
right: [NIL, parallel[LIST[
[NIL, stretch[[viewRecViewer]]],
[NIL, stretch[[viewer]]]
]]],
top: [LIST[[viewRecViewer]], stretch[[viewer]]],
bottom: [NIL, stretch[[viewer]]]
],
paint: FALSE];
ViewerOps.ComputeColumn[column: ViewerOps.ViewerColumn[outerViewer], paint: TRUE];
};
SilDisplayCursors.AquireAndDisableTheMark[data];
SilDisplayCursors.AquireAndDisableTheOrigin[data];
};

SilUIPaint: PUBLIC PROC [data: SilKernel.SilData, viewer: ViewerClasses.Viewer, ctx: Imager.Context] = {
TransformInputRec: PROC [args: UInputRec, dData: SilDisplayData, ctx: Imager.Context] RETURNS [UInputRec] = {
point: Imager.VEC _ [0.0, 0.0]; --RECORD [x, y: REAL]
x, y: REAL;
TRUSTED { WITH temp: args SELECT FROM
SetCaret			=> {point.x _ temp.x; point.y _ temp.y;};
SelectWithPos		=> {point.x _ temp.x; point.y _ temp.y;};
OperateOnSelected		=> {point.x _ temp.x; point.y _ temp.y;};
DrawBox			=> {point.x _ temp.x; point.y _ temp.y;};
TrackMouse			=> {point.x _ temp.x; point.y _ temp.y;};
ENDCASE;
};

IF dData.magnificationOn AND dData.currentMagnification#1 THEN {
point.x _ point.x/dData.currentMagnification;
point.y _ point.y/dData.currentMagnification;
};

x _ point.x - dData.xOffset;
y _ (-point.y) - dData.yOffset;

TRUSTED { WITH temp: args SELECT FROM
SetCaret => {temp.x _ Real.RoundI[x]; temp.y _ Real.RoundI[y];};
SelectWithPos => {temp.x _ Real.RoundI[x]; temp.y _ Real.RoundI[y];};
OperateOnSelected => {temp.x _ Real.RoundI[x]; temp.y _ Real.RoundI[y];};
DrawBox => {temp.x _ Real.RoundI[x]; temp.y _ Real.RoundI[y];};
TrackMouse => {temp.x _ Real.RoundI[x]; temp.y _ Real.RoundI[y];};
ENDCASE;
};
RETURN [args];
};

dData: SilDisplayData _ data.displayData;
WHILE SilUserInput.InputAvailable[data.uiData] DO
UI: UInputRec _ TransformInputRec[SilUserInput.Deque[data.uiData], dData, ctx];
WITH UI SELECT FROM
in: UInputRec.CenterOnMark => SilDisplayPrivate.CenterOnMark[in, data, viewer, ctx];
in: UInputRec.InputFile => SilDisplayPrivate.InputFile[in, data, viewer, ctx];
in: UInputRec.StoreFile => SilDisplayPrivate.StoreFile[in, data, viewer, ctx];
in: UInputRec.KillPicture => SilDisplayPrivate.KillPicture[in, data, viewer, ctx];
in: UInputRec.HardCopy => SilDisplayPrivate.HardCopy[in, data, viewer, ctx];
in: UInputRec.TrackMouse => SilDisplayPrivate.TrackMouse[in, data, viewer, ctx];
in: UInputRec.SetCaret => SilDisplayPrivate.SetCaret[in, data, viewer, ctx];
in: UInputRec.SetCursor => SilDisplayPrivate.SetCursor[in, data, viewer, ctx];
in: UInputRec.SelectWithPos => SilDisplayPrivate.SelectWithPos[in, data, viewer, ctx];
in: UInputRec.SelectForAttrib => SilDisplayPrivate.SelectForAttrib[in, data, viewer, ctx];
in: UInputRec.OperateOnSelected => SilDisplayPrivate.OperateOnSelected[in, data, viewer, ctx];
in: UInputRec.ChangeSelected => SilDisplayPrivate.ChangeSelected[in, data, viewer, ctx];
in: UInputRec.SetDefaultAttribs => SilDisplayPrivate.SetDefaultAttribs[in, data, viewer, ctx];
in: UInputRec.SetDetails => SilDisplayPrivate.SetDetails[in, data, viewer, ctx];
in: UInputRec.ManipulateMacro => SilDisplayPrivate.ManipulateMacro[in, data, viewer, ctx];
in: UInputRec.DrawBox => SilDisplayPrivate.DrawBox[in, data, viewer, ctx];
in: UInputRec.UserChar => SilDisplayPrivate.HandleInputChars[in, data, viewer, ctx];
in: UInputRec.Compliment => SilDisplayPrivate.Compliment[in, data, viewer, ctx];
in: UInputRec.ShowMacros => SilDisplayPrivate.ShowMacros[in, data, viewer, ctx];
in: UInputRec.SwapFonts => SilDisplayPrivate.SwapFonts[in, data, viewer, ctx];
in: UInputRec.Undelete => SilDisplayPrivate.Undelete[in, data, viewer, ctx];
in: UInputRec.MarkAsEdited => SilDisplayUtils.MarkFileAsEdited[data, ctx, viewer];
in: UInputRec.EraseArea => SilDisplayUtils.EraseArea[in.xMin, in.yMin, in.xMax, in.yMax, ctx];
in: UInputRec.MergeArea => SilDisplayUtils.MergeArea[dData, data.model, in.xMin, in.yMin, in.xMax, in.yMax, ctx];
ENDCASE  => ERROR;	--should be impossible
ENDLOOP;
};


END.
   

ZSilDisplayImplA.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Last Edited by: Ken Pier, August 15, 1986 9:34:05 am PDT
This module was created when SilDisplayImpl got too big for the compiler.
SilColor,
Initialize Font, Caret, and display icon behavior.
Make sure that all the appropriate Sil Instances know to blink their carets.
TRUE if the display should be rebuilt.
Called if the viewer has gone iconic; forget rebuilding
[self: Viewer, force: BOOL _ FALSE]
Save the contents of the viewer.
[self: Viewer, context: Imager.Context, whatChanged: REF, clear: BOOL]
The first 3 choices were supplied by Sil, and mean that the paint request originated in Sil, and the last two are originated by the Window Manager.
Get the display on the screen. Also, Initialize the text that will be used for rope input later.

cl.Color _ SilColor.defaultColorChar; --other defaults done via initialization
Finally, we paint the new viewer and all the others it might affect.
Process the user inputs: reflect any changes in the model, and on the screen.  If any rebuilds are necessary, set the appropriate values in dData.

Make sure that any points in the record are transformed to reflect the correct coordinate system (could be in magnify mode). 

Sil coordinates = (ClientCoords/scale)  - offset
xScale = gridMagnification,
yScale = - gridMagnification,

Κ	˜
code™Kšœ
Οm
œ1™<—K™8K™IK˜š
Οk	˜	šœ	ž˜Kš
œ)˜)—Kšœžœ2˜Cšœž˜
Kš
œ˜—šœž˜K˜—šœž˜Kšœ)žœ˜.—šœž˜Kš
œ˜—šœžœ
˜Kš
œ˜—šœž˜Kš
œ	˜	—šœ	ž˜Kš
œ˜—šœž˜
Kš
œ˜—šœž˜Kš
œ
˜
—šœ
ž˜Kš
œ˜—šœžœ
˜Kš
œ˜—šœ
žœ
˜Kš
œ˜—šœ	ž˜Kš
œX˜X—Kš
œ˜Kš
œ	™	Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ
˜
Kš
œ˜Kš
œ
˜
—K˜š
Οnœžœ
žœ
žœžœ˜FKšžœŒ˜“Kšžœžœ
žœ	˜3—K˜Kšœ	žœ˜"Kšœ
žœ˜"Kšœžœ˜&Kšœžœžœ˜-Kšœžœ
žœ(˜FKšœžœ˜)Kš
œ2˜2K˜šŸœžœ
žœ˜Kš
œ2™2K˜K•StartOfExpansionL[from: 
LONG CARDINAL, base: 
Convert.Base _ 10, showRadix: 
BOOL _ TRUE]šœžœdžœKžœ˜γ
Kšœ
žœD˜RKš
œ/˜/Kš
œ/˜/K˜#K˜Kš
œ˜K˜—šŸ
œžœ
žœ˜K™LKš
œ$˜$K˜K˜—š
Ÿœžœ
žœžœžœ˜MKšžœ
žœžœžœ˜3K˜K˜—šŸœžœžœžœ˜RK™&Kšžœ˜ K˜K˜—šŸ
œžœ!˜<K™7Kšœ2žœ
˜8K˜K˜—šŸœžœ˜.Kšœžœžœ
™#K™ K˜Kšœžœ1˜QKš
œ)˜)Kš
œ ˜ šžœžœ˜KšœžœΟc)˜CKšœžœ
˜Kš
œg˜gK˜
—KšžœY˜]K˜K˜—šŸœžœ˜0Kš
œF™FK˜Kšœžœ1˜QKš
œ)˜)Kš
œ;˜;Kš
œ˜K˜—šŸœžœ
žœlžœ˜‘
K˜Kš
œ˜Kš
œ!˜!Kšœ!žœ˜'Kšžœžœ6˜Sšžœ
ž˜K™“
Kšœ9 ˜RKšœ8 ˜JKšœ5 ˜Jšžœ ˜"Kšœ$žœ
˜,Kš
œR˜RKš
œT˜TK˜%K˜—Kšžœžœ 6˜I—K˜K˜—šŸœžœ
žœ!žœžœžœžœ#˜‰
Kš
œ`™`K™Kš
œ˜Kšœžœ "˜RKšœžœ ˜MKšœžœ˜Kšœ& (™NKš
œ#˜#šžœ
žœžœ˜"K˜7šœ*žœ˜IKšœžœ˜!Kšœ$žœ˜+K˜Kšžœ˜
—K˜
—KšžœMžœ˜YKš
œ7˜7Kš
œ:˜:Kš
œ˜Kš
œ˜
˜˜
Kš
œ˜šœ V˜XKšœžœ ˜)Kšœžœ ˜)Kšœžœ˜Kšœ, œžœŒ
žœžœ
žœ˜™Kš
œ:˜:Kš
œ’
žœ‚
žœ"žœ
žœ
žœ:žœ˜™Kš
œ=˜=Kšœ 3˜Lš
œ1˜1Kš
œ˜˜K˜
Kšœžœ
˜Kšœžœ
˜Kš
œ˜Kšœ .˜?Kš
œ˜Kšœžœ
˜
K˜—Kšœžœ '˜B—Kšœ*  ˜Jšœ =˜QKš
œ˜š
œ˜Kšœžœ
˜šœžœžœ
˜Kšœ
žœ˜ Kšœ
žœ˜Kš
œ˜—Kšœžœ&˜0Kšœ	žœ˜ Kš
œ˜—Kšœžœ˜—K™DKšœLžœ˜RK˜—Kš
œ0˜0Kš
œ2˜2K˜K˜—šŸ
œžœ
žœP˜hK™’
K™šŸœžœ?žœ˜mKš
œ}™}K™Kšœžœ ˜5Kšœžœ
˜šžœžœžœ
ž˜%Kš
œ4˜4Kš
œ8˜8Kš
œ<˜<Kš
œ3˜3Kš
œ6˜6Kšžœ
˜Kš
œ˜—K˜K™0Kš
œ™Kš
œ™K™šžœžœžœ˜@Kš
œ-˜-Kš
œ-˜-K˜—K˜Kš
œ˜Kš
œ˜K˜šžœžœžœ
ž˜%Kš
œ@˜@Kš
œE˜EKš
œI˜IKš
œ?˜?Kš
œB˜BKšžœ
˜Kš
œ˜—Kšžœ˜˜K˜——Kš
œ)˜)šžœ*ž˜1KšžœM˜Ošžœ
žœ
žœ
ž˜Kš
œT˜TKš
œN˜NKš
œN˜NKš
œR˜RKš
œL˜LKš
œP˜PKš
œL˜LKš
œN˜NKš
œV˜VKš
œZ˜ZKš
œ^˜^Kš
œX˜XKš
œ^˜^Kš
œP˜PKš
œZ˜ZKš
œJ˜JKš
œT˜TKš
œP˜PKš
œP˜PKš
œN˜NKš
œL˜LKš
œR˜RKš
œ^˜^Kš
œq˜qKšžœžœ ˜)—Kšžœ
˜—K˜K˜—K˜Kšžœ
˜Kš
œ˜K˜—…—*h9Q