Update of /project/pal/cvsroot/pal/examples In directory clnet:/tmp/cvs-serv13046/examples Modified Files: hares.lisp teddy.lisp Log Message: Minor fixes. Added HANDLE-EVENTS --- /project/pal/cvsroot/pal/examples/hares.lisp 2007/07/30 10:38:11 1.7 +++ /project/pal/cvsroot/pal/examples/hares.lisp 2007/08/15 14:36:21 1.8 @@ -70,7 +70,7 @@ :angle (random 360.0))) (event-loop () - + ;;(+ 1 (v 10 10)) (draw-rectangle (v 0 0) 800 600 255 255 255 255 :fill (tag 'bg)) (with-blend (:mode *blend-mode*) (dolist (i *sprites*) @@ -84,4 +84,4 @@ (draw-fps)))) -;; (example) \ No newline at end of file +;; (example) --- /project/pal/cvsroot/pal/examples/teddy.lisp 2007/07/29 21:55:23 1.7 +++ /project/pal/cvsroot/pal/examples/teddy.lisp 2007/08/15 14:36:21 1.8 @@ -88,7 +88,6 @@ (setf *sprites* nil) - ;; Hide the mouse cursor and use cursor.png instead. 18,18 is the offset ("hotspot") for the cursor image ;; Other possible options to cursor are: t - show the default cursor, nil - hide all cursors (set-cursor (tag 'cursor) (v 18 18))