[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bitmaps & catch-errors
- To: firstname.lastname@example.org
- Subject: bitmaps & catch-errors
- From: Matthew Edward Day <email@example.com>
- Date: Wed, 26 Feb 1992 16:07:19 -0500 (EST)
Would anybody happen to know if there is a 2.0 equivalent
of the catch-error-quietly facility? Also, should this
code really hang my machine?:
(defmacro bad-code (b-map)
`(rlet ((r :rect :topleft 0 :bottomright #@(32 32)))
(copy-bits (rref (slot-value w 'wptr) windowrecord.portbits)
(rref ,b-map bitmap.bounds)
The intended purpose of the code is to copy a small section of
a window into a non-displayed bitmap.
I believe that the error is in the second to last line. However,
with-pointers and with-dereferenced-handles don't work. Neither
does rebuilding the :rect record out of the bitmap.bounds.topleft
and bitmap.bounds.bottomright components.
The bitmap sent to the macro is initialized with
(defvar bm (make-bitmap 0 0 32 32))
Thanks for any assistance...