(FILECREATED "29-Aug-85 18:31:14" {DSK}<LISPFILES>MATT>BMFROMW.;2
 1056   

      changes to:  (VARS BMFROMWCOMS)
		   (PROPS (BMFROMW FILETYPE))
		   (FNS BITMAP.FROM.WINDOW)

      previous date: "29-Aug-85 18:01:17" {DSK}<LISPFILES>MATT>BMFROMW.;1)


(* Copyright (c) 1985 by Beckman Instruments, Inc.. All rights reserved.)

(PRETTYCOMPRINT BMFROMWCOMS)

(RPAQQ BMFROMWCOMS
 ((ALL (COMMENTS FNS MACROS VARS LISPXMACROS USERMACROS)
			 (BITMAP.FROM.WINDOW FNS))
		    (PROP FILETYPE BMFROMW)))
(DEFINEQ

(BITMAP.FROM.WINDOW

  [LAMBDA (W)                                                (* mth: "29-Aug-85 16:06")

    (if
 (
WINDOWP
 W)
	then
 (LET ((BMAP (
BITMAPCREATE
 (
WINDOWPROP
 W (
QUOTE
 WIDTH))
				       (
WINDOWPROP
 W (
QUOTE
 HEIGHT))
				       1)))
	       (
TOTOPW
 W)
	       (
BITBLT
 W 0 0 BMAP 0 0 NIL NIL (
QUOTE
 INPUT)
		       (
QUOTE
 REPLACE))
	       BMAP])
)

(PUTPROPS BMFROMW FILETYPE
 CLISP)
(PUTPROPS BMFROMW COPYRIGHT ("Beckman Instruments, Inc." 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (505 931 (BITMAP.FROM.WINDOW 515 . 929)))))
STOP