<> <> <> <> DIRECTORY Carets USING [ResumeCarets, SuspendCarets], IconManager USING [selectedIcon], Icons USING [DrawIcon], Imager USING [black, ClipIntRectangle, ClipView, Context, DoSave, MaskIntRectangle, MaskCharacters, Create, IntScaleT, Reset, SetColor, SetIntCP, SetView, IntTranslateT, white], Menus USING [], MenusPrivate USING [DrawMenu], Process USING [Detach, GetCurrent, MsecToTicks, Pause, Ticks], Rope USING [ROPE], VFonts USING [defaultFont, RopeWidth], ViewerOps, ViewerClasses, ViewerLocks USING [CallUnderReadLock, CallUnderWriteLock, ColumnWedged, Wedged], ViewerSpecs, ViewersStallNotifier, ViewerTools USING [GetSelectedViewer]; ViewerPaintImpl: CEDAR MONITOR IMPORTS Carets, Imager, IconManager, Icons, MenusPrivate, Process, VFonts, ViewerLocks, ViewerTools, ViewerOps, ViewerSpecs EXPORTS ViewerOps, ViewersStallNotifier SHARES Menus, ViewerClasses, ViewerLocks = BEGIN OPEN Imager, ViewerClasses, ViewerOps, ViewerSpecs; InvisiblePaint: PUBLIC SIGNAL = CODE; PaintDocumentHeader: PROC [viewer: Viewer, context: Context, clear: BOOL, hint: PaintHint, whatChanged: REF ANY] = BEGIN OPEN viewer; wbs: INTEGER = IF viewer.border THEN windowBorderSize ELSE 0; ClipIntRectangle[context, [wx, wy, ww, wh]]; IF hint#menu THEN BEGIN IF viewer.class.caption#NIL THEN BEGIN -- client-painted caption CallClient: PROC = BEGIN ClipIntRectangle[context, [wx+wbs, wy+wh-captionHeight-wbs, ww-(2*wbs), wh-wbs]]; viewer.class.caption[viewer, context]; END; DoSave[context, CallClient]; END ELSE BEGIN headerW: INTEGER _ VFonts.RopeWidth[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, ww]; MaskIntRectangle[context, [wx, wy+wh-captionHeight, ww, captionHeight]]; SetColor[context, white]; SetIntCP[context, [wx+((ww-headerW)/2), wy+wh-captionHeight+4]]; MaskCharacters[context, VFonts.defaultFont, name]; IF viewer.saveInProgress THEN MaskCharacters[context, VFonts.defaultFont, sipT] ELSE IF viewer.newFile THEN MaskCharacters[context, VFonts.defaultFont, newFT] ELSE IF viewer.newVersion THEN MaskCharacters[context, VFonts.defaultFont, newVT]; IF viewer.link#NIL THEN MaskCharacters[context, VFonts.defaultFont, linkT]; END; END; IF menu#NIL AND hint#caption THEN BEGIN height: INTEGER _ menu.linesUsed*menuHeight; IF whatChanged=NIL THEN BEGIN IF ~clear THEN BEGIN SetColor[context, white]; MaskIntRectangle[context, [wx+wbs, wy+wh-captionHeight-height, ww-(2*wbs), height]]; END; SetColor[context, black]; MaskIntRectangle[context, [wx, wy+wh-captionHeight-height-windowBorderSize,ww, menuBarHeight]]; END; MenusPrivate.DrawMenu[viewer.menu, context, wx+wbs, wy+wh-menuHeight-captionHeight, whatChanged]; END; END; PaintIcon: PROC [viewer: Viewer, hint: PaintHint, whatChanged: REF ANY _ NIL] = BEGIN context: Context; label: Rope.ROPE; IF viewer.parent#NIL THEN RETURN; context _ AcquireContext[viewer, FALSE]; -- all icons on b&w display <> IF viewer.icon=private THEN viewer.class.paint[viewer, context, whatChanged, hint=all] ELSE IF hint=all OR hint=caption THEN BEGIN 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; label _ NARROW[ViewerOps.FetchProp[viewer, $IconLabel]]; IF label = NIL THEN label _ viewer.name; DoSave[context, DrawIcon]; IF IconManager.selectedIcon=viewer THEN BEGIN SetColor[context, $XOR]; MaskIntRectangle[context, [0, 0, iconWidth, iconHeight]]; END; END; ReleaseContext[context]; END; SetIconLabel: PUBLIC PROC [viewer: Viewer, label: Rope.ROPE] = BEGIN ViewerOps.AddProp[viewer, $IconLabel, label]; END; RecursivelyPaintViewers: PROC [viewer: Viewer, hint: PaintHint, clearClient: BOOL, clear: BOOL, rect: PaintRectangle, whatChanged: REF ANY] = BEGIN OPEN viewer; 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 BEGIN 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; END ENDLOOP; IF hint#client THEN BEGIN ENABLE UNWIND => IF context#NIL THEN ReleaseContext[context]; PaintHeader: PROC = {PaintDocumentHeader[viewer, context, clear, hint, whatChanged]}; context _ AcquireContext[parent, viewer.column=color]; IF ~viewer.visible OR viewer.destroyed THEN SIGNAL InvisiblePaint; IF clearClient AND ~clear AND hint=all THEN BEGIN SetColor[context, white]; MaskIntRectangle[context, [wx, wy, ww, wh]]; SetColor[context, black]; clear _ TRUE; END; IF border AND hint=all THEN BEGIN wbs: INTEGER ~ windowBorderSize; MaskIntRectangle[context, [wx, wy, ww, wbs]]; MaskIntRectangle[context, [wx, wy, wbs, wh]]; MaskIntRectangle[context, [wx+ww-wbs, wy, wbs, wh]]; MaskIntRectangle[context, [wx, wy+wh-wbs, ww, wbs]]; END; IF parent=NIL AND viewer.column#static THEN DoSave[context, PaintHeader]; ReleaseContext[context]; END; IF hint=all OR hint=client THEN BEGIN ENABLE UNWIND => IF context#NIL THEN ReleaseContext[context]; PaintClient: PROC = {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 class.bltContents = none THEN clearClient _ TRUE; IF clearClient AND ~clear THEN BEGIN SetColor[context, white]; MaskIntRectangle[context, [0, 0, cw, ch]]; SetColor[context, black]; IF rect # NIL THEN whatChanged _ NIL; rect _ NIL; clear _ TRUE; END; IF class.paint#NIL THEN BEGIN IF clientContext THEN PaintClient[] ELSE DoSave[context, PaintClient]; END; ReleaseContext[context]; END; <> IF rect # NIL 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 THEN { -- don't paint if it is completely within the blt <