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-20 19:37:48.000000000 +0200
+++ new-qt.examples/src/class-browser.lisp 2014-10-20 19:37:48.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-20 19:37:48.000000000 +0200
+++ new-qt.examples/src/repl.lisp 2014-10-20 19:37:48.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)