(FILECREATED "28-Feb-85 14:26:53" {ERIS}<LISPCORE>SOURCES>WINDOWDEBUG.;2
 1382   

      changes to:  (FNS \OPENW1)
		   (VARS WINDOWDEBUGCOMS)

      previous date: "28-Feb-85 14:16:33" {ERIS}<LISPCORE>SOURCES>WINDOWDEBUG.;1)


(* Copyright (c) 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT WINDOWDEBUGCOMS)

(RPAQQ WINDOWDEBUGCOMS
 ((FNS \OPENW1)))
(DEFINEQ

(\OPENW1

  [LAMBDA (WINDOW)                                           (* rrb "28-Feb-85 14:26")

    (UNINTERRUPTABLY
        (
COND

	  ((
NOT
 (
EQ
 (fetch
 (WINDOW NEXTW) of
 WINDOW)
		    (
QUOTE
 CLOSED)))
	    (
RAID
 "attempt to open already open window" WINDOW))
	  (T (replace
 (WINDOW NEXTW) of
 WINDOW with
 TOPW)
	     (
SETQ
 TOPW WINDOW)
	     (
SETQ
 \TOPWDS (fetch
 (WINDOW DSP) of
 TOPW))     (* changed from (SCREENBITMAP) to destination in 

							     preparation for multiple screens.)

                                                             (* Assume that the DSP of a window is guaranteed to be 

							     a display-stream)

	     (
\SW2BM
 (fetch
 DDDestination of
 (fetch
 IMAGEDATA of
 \TOPWDS))
		     (fetch
 (WINDOW REG) of
 WINDOW)
		     (fetch
 (WINDOW SAVE) of
 WINDOW)
		     NIL))))])
)
(PUTPROPS WINDOWDEBUG COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (379 1300 (\OPENW1 389 . 1298)))))
STOP