Sun Apr 12 15:34:59 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Use overload by argument count for :cxx generic functions
diff -rN -u old-kde.examples/src/mandelbrot/mandelbrotwidget.lisp new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp
--- old-kde.examples/src/mandelbrot/mandelbrotwidget.lisp 2014-10-16 11:17:46.000000000 +0200
+++ new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp 2014-10-16 11:17:46.000000000 +0200
@@ -74,8 +74,8 @@
(pixmap widget))
(draw-scaled-pixmap painter widget)))
-(defmethod cxx:paint-event ((widget mandelbrotwidget) &rest args)
- (declare (ignore args))
+(defmethod cxx:paint-event ((widget mandelbrotwidget) event)
+ (declare (ignore event))
(qt:with-painter (painter widget)
(cxx:fill-rect painter (cxx:rect widget)
(make-instance 'qt:brush :args (list
@@ -84,15 +84,14 @@
(draw-rendering painter widget)
(draw-pixmap painter widget))))
-(defmethod cxx:resize-event ((widget mandelbrotwidget) &rest args)
- (declare (ignore args))
+(defmethod cxx:resize-event ((widget mandelbrotwidget) event)
+ (declare (ignore event))
(when (slot-boundp widget 'render)
(setf (stop-p *render-control*) t)
(join-thread (slot-value widget 'render)))
(queue-image widget))
-(defmethod cxx:key-press-event ((widget mandelbrotwidget) &rest args
- &aux (event (first args)))
+(defmethod cxx:key-press-event ((widget mandelbrotwidget) event)
(enum-cases (cxx:key event)
(qt:+key-up+
(scroll widget #C(0d0 -5d0)))
@@ -107,18 +106,15 @@
(qt:+key-minus+
(zoom widget (zoom-out-factor)))))
-(defmethod cxx:mouse-press-event ((widget mandelbrotwidget) &rest args
- &aux (event (first args)))
+(defmethod cxx:mouse-press-event ((widget mandelbrotwidget) event)
(when (enum= (cxx:button event) qt:+left-button+)
(setf (last-drag-pos widget) (complex (cxx:x event)
(cxx:y event)))))
-(defmethod cxx:wheel-event ((widget mandelbrotwidget) &rest args
- &aux (event (first args)))
+(defmethod cxx:wheel-event ((widget mandelbrotwidget) event)
(zoom widget (expt (zoom-in-factor) (/ (cxx:delta event) (* 8 15.0)))))
-(defmethod cxx:mouse-move-event ((widget mandelbrotwidget) &rest args
- &aux (event (first args)))
+(defmethod cxx:mouse-move-event ((widget mandelbrotwidget) event)
(when (logand (cxx:buttons event) (value qt:+left-button+))
(incf (pixmap-offset widget)
(- (complex (cxx:x event)
@@ -128,8 +124,7 @@
(cxx:y event)))
(cxx:update widget)))
-(defmethod cxx:mouse-release-event ((widget mandelbrotwidget) &rest args
- &aux (event (first args)))
+(defmethod cxx:mouse-release-event ((widget mandelbrotwidget) event)
(when (enum= (cxx:button event) qt:+left-button+)
(incf (pixmap-offset widget)
(- (complex (cxx:x event)