Thu May 28 16:23:33 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* ASDF support

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

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

@@ -16,9 +16,9 @@

(if (and (cxx:is-valid index)

(< (cxx:row index) (length (items list)))

(= role (value qt:+display-role+)))

- (qt:make-variant (string-downcase

- (class-name (aref (items list) (cxx:row index)))))

- (make-instance 'qt:variant)))

+ (qt:make-variant

+ (string-downcase (class-name (aref (items list) (cxx:row index)))))

+ (qt:make-variant)))

(defun class-at (model-index)

(aref (items (cxx:model model-index)) (cxx:row model-index)))