QList<QByteArray> and QList<QVariant> conversion & use cxx:operator== and qt:operator== in cxx:=
src/properties.lisp
Wed May 27 19:18:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* QList<QByteArray> and QList<QVariant> conversion & use cxx:operator== and qt:operator== in cxx:=
--- old-qt.gui/src/properties.lisp 2014-10-30 07:49:08.000000000 +0100
+++ new-qt.gui/src/properties.lisp 2014-10-30 07:49:08.000000000 +0100
@@ -44,7 +44,11 @@
(:method ((symbol symbol))
(class-direct-properties (find-class symbol))))
+(defun dynamic-properties (object)
+ (map 'list (compose #'smoke::lispify #'cxx:data)
+ (cxx:dynamic-property-names object)))
+
(defun properties (object)
"Returns a list of the properties of OBJECT."
- (warn "FIXME: dynamicPropertyNames not implemented")
- (meta-object-properties (cxx:meta-object object)))
+ (nconc (dynamic-properties object)
+ (meta-object-properties (cxx:meta-object object))))