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

* support packages for symbols as property names.

--- old-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:45:23.000000000 +0100

+++ new-qt.gui/src/signal-slot/signal.lisp 2014-10-30 07:45:23.000000000 +0100

@@ -48,13 +48,12 @@

argument-types))

(closer-mop:set-funcallable-instance-function object

#'(lambda (&rest args)

- (apply #'emit (signal-object object) args)))

- )

+ (apply #'emit (signal-object object) args))))

(defun find-slot-id (receiver slot)

"Returns the ID of RECEIVER from SLOT."

- ;; For efficiency assume that SLOT is normalized and fallback

- ;; to normalizing when not. (Just like Qt does.)

+ ;; For efficiency assume that SLOT is normalized and fallback to

+ ;; normalizing when not. (Just like Qt does.)

(let ((id (cxx:index-of-slot (cxx:meta-object receiver)

slot)))

(when (< id 0)

@@ -69,8 +68,8 @@

(defun make-lisp-object (object)

- (smoke::make-cleanup-pointer (make-cxx-lisp-object object)

- #'qt-smoke-free-lisp-object))

+ (smoke:make-cleanup-pointer (make-cxx-lisp-object object)

+ #'qt-smoke-free-lisp-object))

(defun convert-arguments (arguments types)

@@ -89,9 +88,9 @@

(activate qsignal (id qsignal) (argument-types qsignal) arguments))

(defun activate (object id types arguments)

-;;; The first element of args would be used for the return value

-;;; by QMetaObject::invokeMethod(), but for signal-slot connection

-;;; it is ignored.

+;;; The first element of args would be used for the return value by

+;;; QMetaObject::invokeMethod(), but for signal-slot connection it is

+;;; ignored.

(smoke::with-stack (stack (convert-arguments arguments types)

types)

(cffi:with-foreign-object (args :pointer (1+ (length arguments)))