BEC.HEFFRON%ECLA.usc.edu@OBERON.USC.EDU (Matt Heffron) (07/15/89)
It seems that the code for SCALEDBITBLT does the wrong thing if the
DESTINATIONLEFT and/or DESTINATIONBOTTOM parameters are NIL. It uses
zero (0) as the value(s) when it should use the current X and Y position of
the stream (0 is the correct default when the destination is a bitmap).
The patchfile below advises SCALEDBITBLT to correct this.
-Matt Heffron BEC.HEFFRON@ECLA.USC.EDU
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "10-Jul-89 11:40:35" {DSK}<LISPFILES2>PATCHES>SBBPATCH.\;1 1335
|changes| |to:| (ADVICE SCALEDBITBLT)
(VARS SBBPATCHCOMS)
|previous| |date:| "10-Jul-89 11:38:42" {DSK}<LISPFILES>MATT>SBBPATCH.\;1)
; Copyright (c) 1989 by Beckman Instruments, Inc. All rights reserved.
(PRETTYCOMPRINT SBBPATCHCOMS)
(RPAQQ SBBPATCHCOMS ((ADVISE SCALEDBITBLT)))
(XCL:REINSTALL-ADVICE 'SCALEDBITBLT :BEFORE '((:LAST (CL:WHEN (IMAGESTREAMP DESTINATION)
(CL:UNLESS DESTINATIONLEFT
(SETQ DESTINATIONLEFT (DSPXPOSITION
NIL DESTINATION)))
(CL:UNLESS DESTINATIONBOTTOM
(SETQ DESTINATIONBOTTOM (DSPYPOSITION
NIL DESTINATION
)))))))
(READVISE SCALEDBITBLT)
(PUTPROPS SBBPATCH COPYRIGHT ("Beckman Instruments, Inc" 1989))
(DECLARE\: DONTCOPY
(FILEMAP (NIL)))
STOP
-------