Tue Apr 14 16:29:54 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use overloaded cxx methods

--- old-qt.examples/src/class-browser.lisp 2014-10-30 07:39:09.000000000 +0100

+++ new-qt.examples/src/class-browser.lisp 2014-10-30 07:39:09.000000000 +0100

@@ -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+)))