Tue Apr 14 16:29:54 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Use overloaded cxx methods
diff -rN -u old-qt.examples/src/class-browser.lisp new-qt.examples/src/class-browser.lisp
--- old-qt.examples/src/class-browser.lisp	2014-10-14 14:34:43.000000000 +0200
+++ new-qt.examples/src/class-browser.lisp	2014-10-14 14:34:43.000000000 +0200
@@ -9,14 +9,10 @@
                                 :fill-pointer t)))
   (:metaclass cxx:class))
 
-(defmethod cxx:row-count ((list classes-model) &rest args
-                          &aux (parent (first args)))
-  (declare (ignore parent))
+(defmethod cxx:row-count ((list classes-model) parent)
   (length (items list)))
 
-(defmethod cxx:data ((list classes-model) &rest args
-                     &aux (index (first args))
-                     (role (second args)))
+(defmethod cxx:data ((list classes-model) index role)
   (if (and (cxx:is-valid index)
            (< (cxx:row index) (length (items list)))
            (= role (value qt:+display-role+)))
diff -rN -u old-qt.examples/src/repl.lisp new-qt.examples/src/repl.lisp
--- old-qt.examples/src/repl.lisp	2014-10-14 14:34:43.000000000 +0200
+++ new-qt.examples/src/repl.lisp	2014-10-14 14:34:43.000000000 +0200
@@ -17,7 +17,7 @@
   (let ((index (cxx:row-count list-model)))
     (unless (cxx:insert-row list-model index)
       (error "insert-row ~A for ~A failed." index list-model))
-    (cxx:set-data list-model (cxx:index list-model index 0)
+    (cxx:set-data list-model (cxx:index list-model index)
                   (qt::make-variant string))))
 
 (defmethod initialize-instance :after ((repl repl) &rest args)