(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "19-Jul-88 11:37:37" {ERINYES}<LISPUSERS>LYRIC>XORCURSORPATCH.\;1
 1455   

      |changes| |to:|  (VARS XORCURSORPATCHCOMS)

      |previous| |date:| " 7-Oct-86 18:56:37" {PHYLUM}<LISPUSERS>KOTO>XORCURSORPATCH.\;1)


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT XORCURSORPATCHCOMS)

(RPAQQ XORCURSORPATCHCOMS ((FNS DOVE.XOR.CURSOR) (INITVARS (|\\DoveDisplay.VideoColor| 1)) (GLOBALVARS |\\DoveDisplay.VideoColor|) (ADVISE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR))))
(DEFINEQ

(DOVE.XOR.CURSOR

(LAMBDA (FLG) (* |cdl| " 7-Oct-86 18:56") (SELECTQ (MACHINETYPE) (DOVE (|if| (EQP |\\DoveDisplay.VideoColor| 1) |then| (|if| FLG |then| (SETQ |\\DoveDisplay.VideoColor| (|if| (NUMBERP FLG) |then| FLG |else| 9))) |else| (|if| (NULL FLG) |then| (SETQ |\\DoveDisplay.VideoColor| 1))) (|\\DoveDisplay.SetCursorMix| |\\DoveDisplay.VideoColor|) T) NIL))
)
)

(RPAQ? |\\DoveDisplay.VideoColor| 1)
(DECLARE\: DOEVAL@COMPILE DONTCOPY


(GLOBALVARS |\\DoveDisplay.VideoColor|)
)

(XCL:REINSTALL-ADVICE (QUOTE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR)) :AFTER (QUOTE ((:LAST (SELECTQ (MACHINETYPE) (DOVE (|if| (NOT INVERSE?) |then| (|\\DoveDisplay.SetCursorMix| |\\DoveDisplay.VideoColor|))) NIL)))))

(READVISE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR))
(PUTPROPS XORCURSORPATCH COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (585 967 (DOVE.XOR.CURSOR 595 . 965)))))
STOP