Sun Jun 21 11:29:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* *SMOKE-MODULE* must be passed instead of *QT-SMOKE*.

--- old-qt.gui/src/signal-slot/connect.lisp 2014-10-30 07:46:35.000000000 +0100

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

@@ -40,11 +40,12 @@

(defmethod qt:connect ((sender qsignal) (function function) &optional type)

(let ((slot (make-instance 'qslot

:args (list (signal-object sender))

+ :argument-types (argument-types (signal-object sender))

:slot-function function)))

(unless (connect-id (signal-object sender) (id (signal-object sender))

slot (id slot)

type

- (types (arguments sender)))

+ (types (argument-types (signal-object sender))))

(cerror "Failed to connect the function ~S to the signal ~S."

function sender))))