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-25 20:12:13.000000000 +0200
+++ new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp	2014-10-25 20:12:13.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)