Thu Jul 23 00:21:01 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* support packages for symbols as property names.

--- old-qt.gui/src/object.lisp 2014-10-30 07:45:13.000000000 +0100

+++ new-qt.gui/src/object.lisp 2014-10-30 07:45:13.000000000 +0100

@@ -99,12 +99,13 @@

(slot-value condition 'pointer)))))

(smoke:eval-startup (:compile-toplevel :execute)

-(defparameter *get-parent*

- (smoke::make-smoke-method-from-name (find-class 'qt:object) "parent"))

- ;; FIXME this leaks memory when QCoreApplication::exec is never called,

- ;; beause then, deleteLater has no effect.

-(defparameter *delete-later*

- (smoke::make-smoke-method-from-name (find-class 'qt:object) "deleteLater")))

+ (defparameter *get-parent*

+ (smoke::make-smoke-method-from-name (find-class 'qt:object) "parent"))

+

+ ;; FIXME this leaks memory when QCoreApplication::exec() is never

+ ;; called, beause then, deleteLater() has no effect.

+ (defparameter *delete-later*

+ (smoke::make-smoke-method-from-name (find-class 'qt:object) "deleteLater")))

(defmethod smoke::make-finalize ((object qt:object))

"Delete the qt:object OBJECT,

@@ -137,10 +138,12 @@

;;;

-;;; The event-notify callback get called by QCoreApplication,

-;;; on notification of an event.

+;;; The event-notify callback get called by QCoreApplication, on

+;;; notification of an event.

+;;;

+;;; The DATA argument is an array of size three, containing the

+;;; pointers:

;;;

-;;; The DATA argument is an array of size three, containing the pointers:

;;; void* receiver

;;; void* event

;;; void* result

@@ -149,7 +152,8 @@

;;; Returning true marks the event as handled; false on the other hand

;;; leaves the event processing unchanged.

;;;

-;;; See: QCoreApplication::notifyInternal(QObject *receiver, QEvent *event)

+;;; See: QCoreApplication::notifyInternal(QObject *receiver, QEvent

+;;; *event)

(cffi:defcallback event-notify smoke:cxx-bool

((data :pointer))

@@ -172,8 +176,8 @@

:pointer (smoke::upcast event

(find-class 'qt:child-event)))))

;; We receive child removed events for any QObject, whether

- ;; it was constructed by Smoke or not. Only take ownership of objects

- ;; that have been constructed by Smoke.

+ ;; it was constructed by Smoke or not. Only take ownership of

+ ;; objects that have been constructed by Smoke.

(when (smoke::has-pointer-p (smoke::pointer (cxx:child child-event)))

(assert receiver)

(smoke::take-ownership (cxx:child child-event) receiver))))))