[Openmcl-devel] Core Animation demo

[Raffael Cavallaro]

On Jul 7, 2009, at 2:23 AM, Ron Garret wrote:

> Cool demo!



Yes! btw, add the following, and get mouse tracking as well:

(ccl::define-objc-method ((:void :mouse-dragged (:id event)) ca-demo- 
view)
     (let* ((event-location (#/locationInWindow event))
	   (view-location (#/convertPoint:fromView: self event-location nil)))
       (set-layer-position sprite view-location))
   (#/setNeedsDisplay: self #$YES))


warmest regards,

Ralph


Raffael Cavallaro
raffaelcavallaro at me.com