<> <> <> <> <> DIRECTORY Carets USING [ResumeCarets, SuspendCarets], IconManager USING [selectedIcon], Icons USING [DrawIcon], Imager USING [black, ClipView, Context, Create, DoSave, IntegerClipRectangle, IntegerMaskRectangle, IntegerSetXY, Reset, SetColor, SetView, ShowCharacters, TranslateT, white, XOR], MenusPrivate USING [DrawMenu, ViewerMenus], Process USING [Detach, GetCurrent, MsecToTicks, Pause, Ticks], Rope USING [ROPE], VFonts USING [defaultFont, FONT, RopeWidth], ViewerOps USING [AddProp, ChangeColumn, EnumerateViewers, EnumProc, FetchProp, GreyScreen, PaintHint, UserToScreenCoords, ViewerColumn], ViewerClasses USING [PaintRectangle, Viewer], ViewerLocks USING [CallUnderReadLock, CallUnderWriteLock, ColumnWedged, Wedged], ViewerSpecs USING [captionDescent, captionHeight, iconHeight, iconWidth, menuBarHeight, openBottomY, windowBorderSize], ViewersStallNotifier USING [], ViewerTools USING [GetSelectedViewer]; ViewerPaintImpl: CEDAR MONITOR IMPORTS Carets, Imager, IconManager, Icons, MenusPrivate, Process, VFonts, ViewerLocks, ViewerTools, ViewerOps, ViewerSpecs EXPORTS ViewerOps, ViewersStallNotifier SHARES ViewerClasses, ViewerLocks = BEGIN OPEN ViewerSpecs; Viewer: TYPE = ViewerClasses.Viewer; PaintRectangle: TYPE = ViewerClasses.PaintRectangle; PaintHint: TYPE = ViewerOps.PaintHint; Context: TYPE = Imager.Context; ROPE: TYPE = Rope.ROPE; InvisiblePaint: PUBLIC SIGNAL = CODE; PaintCaption: PROC[viewer: Viewer, context: Context] = { IF viewer.class.caption#NIL THEN { -- client-painted caption CallClient: PROC = { wbs: INTEGER = IF viewer.border THEN windowBorderSize ELSE 0; Imager.IntegerClipRectangle[context, viewer.wx+wbs, viewer.wy+viewer.wh-wbs-captionHeight, viewer.ww-(2*wbs), captionHeight]; viewer.class.caption[viewer, context]; }; Imager.DoSave[context, CallClient]; } ELSE { font: VFonts.FONT = VFonts.defaultFont; headerW: INTEGER _ VFonts.RopeWidth[viewer.name]; IF viewer.saveInProgress THEN headerW _ headerW + sipW ELSE IF viewer.newFile THEN headerW _ headerW + newFW ELSE IF viewer.newVersion THEN headerW _ headerW + newVW; IF viewer.link#NIL THEN headerW _ headerW + linkW; headerW _ MIN[headerW, viewer.ww]; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy+viewer.wh-captionHeight, viewer.ww, captionHeight]; Imager.SetColor[context, Imager.white]; Imager.IntegerSetXY[context, viewer.wx+(viewer.ww-headerW)/2, viewer.wy+viewer.wh-captionHeight+captionDescent]; Imager.ShowCharacters[context, viewer.name, font]; IF viewer.saveInProgress THEN Imager.ShowCharacters[context, sipT, font] ELSE IF viewer.newFile THEN Imager.ShowCharacters[context, newFT, font] ELSE IF viewer.newVersion THEN Imager.ShowCharacters[context, newVT, font]; IF viewer.link#NIL THEN Imager.ShowCharacters[context, linkT, font]; }; }; PaintDocumentHeader: PROC[viewer: Viewer, context: Context, clear: BOOL, hint: PaintHint, whatChanged: REF ANY] = { Imager.IntegerClipRectangle[context, viewer.wx, viewer.wy, viewer.ww, viewer.wh]; <<>> <> IF hint#menu THEN PaintCaption[viewer, context]; <<>> <> IF viewer.menus#NIL AND hint#caption THEN { menus: MenusPrivate.ViewerMenus = NARROW[viewer.menus]; menuHeight: INTEGER = menus.h; wbs: INTEGER = IF viewer.border THEN windowBorderSize ELSE 0; IF whatChanged=NIL THEN { <> IF ~clear THEN { Imager.SetColor[context, Imager.white]; Imager.IntegerMaskRectangle[context, viewer.wx+wbs, viewer.wy+viewer.wh-wbs-captionHeight-menuHeight, viewer.ww-(2*wbs), menuHeight]; }; <> Imager.SetColor[context, Imager.black]; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy+viewer.wh-wbs-captionHeight-menuHeight, viewer.ww, menuBarHeight]; }; MenusPrivate.DrawMenu[viewer, menus, context, whatChanged]; }; }; PaintIcon: PROC[viewer: Viewer, hint: PaintHint, whatChanged: REF ANY _ NIL] = { context: Context; IF viewer.parent#NIL THEN RETURN; context _ AcquireContext[viewer, FALSE]; -- all icons on b&w display IF viewer.icon=private THEN -- client wants to draw the icon viewer.class.paint[viewer, context, whatChanged, hint=all] ELSE IF hint=all OR hint=caption THEN { label: ROPE = GetIconLabel[viewer]; DrawIcon: PROC = {Icons.DrawIcon[flavor: viewer.icon, context: context, label: label]}; IF viewer.icon=document AND (viewer.newVersion OR viewer.newFile) THEN viewer.icon _ dirtyDocument ELSE IF viewer.icon=dirtyDocument AND NOT (viewer.newVersion OR viewer.newFile) THEN viewer.icon _ document; Imager.DoSave[context, DrawIcon]; IF IconManager.selectedIcon=viewer THEN { Imager.SetColor[context, Imager.XOR]; Imager.IntegerMaskRectangle[context, 0, 0, iconWidth, iconHeight]; }; }; ReleaseContext[context]; }; SetIconLabel: PUBLIC PROC[viewer: Viewer, label: ROPE] = { ViewerOps.AddProp[viewer, $IconLabel, label]; }; GetIconLabel: PROC[viewer: Viewer] RETURNS[label: ROPE] = { prop: REF ANY = ViewerOps.FetchProp[viewer, $IconLabel]; IF prop#NIL THEN RETURN[NARROW[prop]] ELSE RETURN[viewer.name]; }; RecursivelyPaintViewers: PROC [viewer: Viewer, hint: PaintHint, clearClient: BOOL, clear: BOOL, rect: PaintRectangle, whatChanged: REF ANY] = { vx, vy: INTEGER; context: Context _ NIL; bitmapY: INTEGER _ 0; FOR v: Viewer _ viewer, v.parent UNTIL v=NIL DO -- visibility test IF v.parent#NIL THEN { IF (v.wy+v.wh < 0) OR (v.wy > v.parent.ch) THEN RETURN; IF (v.ww+v.ww < 0) OR (v.wx > v.parent.cw) THEN RETURN; } ENDLOOP; IF hint#client THEN { ENABLE UNWIND => IF context#NIL THEN ReleaseContext[context]; PaintHeader: PROC = {PaintDocumentHeader[viewer, context, clear, hint, whatChanged]}; context _ AcquireContext[viewer.parent, viewer.column=color]; IF ~viewer.visible OR viewer.destroyed THEN SIGNAL InvisiblePaint; IF clearClient AND ~clear AND hint=all THEN { Imager.SetColor[context, Imager.white]; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy, viewer.ww, viewer.wh]; Imager.SetColor[context, Imager.black]; clear _ TRUE; }; IF viewer.border AND hint=all THEN { wbs: INTEGER ~ windowBorderSize; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy, viewer.ww, wbs]; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy, wbs, viewer.wh]; Imager.IntegerMaskRectangle[context, viewer.wx+viewer.ww-wbs, viewer.wy, wbs, viewer.wh]; Imager.IntegerMaskRectangle[context, viewer.wx, viewer.wy+viewer.wh-wbs, viewer.ww, wbs]; }; IF viewer.parent=NIL AND viewer.column#static THEN Imager.DoSave[context, PaintHeader]; ReleaseContext[context]; }; IF hint=all OR hint=client THEN { ENABLE UNWIND => IF context#NIL THEN ReleaseContext[context]; PaintClient: PROC = {viewer.class.paint[viewer, context, whatChanged, clear]}; context _ NIL; context _ AcquireContext[viewer, viewer.column=color]; IF ~viewer.visible OR viewer.destroyed THEN SIGNAL InvisiblePaint; IF rect#NIL AND rect.flavor=blt AND viewer.class.bltContents = none THEN clearClient _ TRUE; IF clearClient AND ~clear THEN { Imager.SetColor[context, Imager.white]; Imager.IntegerMaskRectangle[context, 0, 0, viewer.cw, viewer.ch]; Imager.SetColor[context, Imager.black]; IF rect # NIL THEN whatChanged _ NIL; rect _ NIL; clear _ TRUE; }; IF viewer.class.paint#NIL THEN { IF viewer.clientContext THEN PaintClient[] ELSE Imager.DoSave[context, PaintClient]; }; ReleaseContext[context]; }; <> IF rect # NIL AND rect.flavor=blt AND viewer.parent = NIL THEN { IF viewer.cx >= rect.x AND (viewer.cx + viewer.cw <= rect.x + rect.w) AND viewer.cy >= rect.y AND (viewer.cy + viewer.ch <= rect.y + rect.h) THEN RETURN}; <> IF hint=all OR clear THEN <> FOR v: Viewer _ viewer.child, v.sibling UNTIL v=NIL DO IF rect # NIL AND rect.flavor=blt THEN { -- don't paint if it is completely within the blt <