[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: email@example.com
- Subject: Errors
- From: firstname.lastname@example.org (Jiqian Pan)
- Date: Fri, 27 Mar 92 12:19:39 -0500
I am trying to do the moving of objects with bitmaps on the window. Some
of code is:
(defmethod view-click-event-handler ((item bitmap-dialog-item) position)
(when (or (equal item wash-obj-rhand)(equal item wash-obj-toothbrush-hand)
(equal item wash-obj-toothpaste-hand)
(equal item wash-obj-brush-paste-hand)
(equal item wash-obj-brushpaste-hands))
(let* ((my-pos (view-position item))
(my-botright (add-points my-pos (view-size item))))
(when (not (equal (view-container item) nil))
(ccl::erase-rect (view-container item) (point-h my-pos)
(point-v my-pos) (point-h my-botright)
(set-view-position item (subtract-points cpos delta))
Sometimes the moving of objects works very well, but sometimes does not.
First, I got a sign of "GC" on the screen, then the system crashed.
Finally I got "an error of type 25 occurred" on the screen.
I do not know if the problem comes from my code, MCL and/or System 7.0.1.
Does anyone have the same problem? How do you deal with the problem?