;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MEDIUM-RESOLUTION-COLOR version 17.2
;;; Reason:
;;;  :expose message now write virtual memory map always.
;;; Reason:
;;;  always write virtual memory meter at every :expose message.
;;; Written 26-Feb-85 17:22:05 by PW,
;;; while running on The Importance of Being Earnest from band 3
;;; with Experimental System 102.88, Experimental Local-File 55.5, Experimental FILE-Server 13.1, Experimental Unix-Interface 5.2, Experimental MagTape 40.13, Experimental ZMail 57.1, Experimental MEDIUM-RESOLUTION-COLOR 17.1, Experimental NewDraw 14.4, Experimental MICRO-COMPILATION-TOOLS 3.0, microcode 742, 102.70 ND 14.4.



; From file GREY-WINDOW.LISP#> QL.VIDEO-DEVICE; LAM3: (10)
#8R GREY#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GREY")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY-WINDOW  "

(DEFWRAPPER (GREY-SCREEN-DOWNLOAD-MIXIN :EXPOSE) (IGNORE . BODY)
  "Don't actually expose the color screen if there is no color monitor.  This
function is a TOTAL KLUDGE."
  `(COND ((GREY-EXISTS-AND-IF-SO-DOWNLOADED-P SELF)
	  ;; always write this since it is cheap and fixes the bug of
	  ;; a board actually allocated and downloaded, but our virtual memory not set up
	  ;; because we have cold booted the machine. someday we will handle these issues
	  ;; in the device-allocation code itself.
	  (WRITE-METER 'SI:%LOWEST-DIRECT-VIRTUAL-ADDRESS
		       VIDEO-BUFFER-BASE-VIRTUAL-ADDRESS)
	  . ,BODY)))

))

; From file GREY-WINDOW.LISP#> QL.VIDEO-DEVICE; LAM3: (10)
#8R GREY#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "GREY")))
  (COMPILER#:PATCH-SOURCE-FILE "SYS: VIDEO-DEVICE; GREY-WINDOW  "

(COMPILE-FLAVOR-METHODS GREY-SCREEN GREY-SCREEN-PLANE)

))