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/connect.lisp 2014-10-30 07:45:21.000000000 +0100

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

@@ -126,10 +126,12 @@

(slot (make-instance 'qslot

;; Set the sender as the slots parent,

;; to ensure it does not get gc'ed.

- ;; FIXME: unset parent on disconnect

- ;; this no not critical because the slot object

- ;; is hidden from the user, who thus can not

- ;; connect it to other signals.

+ ;;

+ ;; FIXME: unset parent on disconnect.

+ ;; This no not critical because the slot

+ ;; object is not accessible to the user,

+ ;; who thus can not connect it to other

+ ;; signals.

:args (list (qsender qt-signal))

:slot-function function

:argument-types