Thu Aug 27 10:37:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Update to the new smokegenerator.

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

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

@@ -114,7 +114,7 @@

(defmethod qt:connect ((qt-signal qt-signal) (qt-slot qt-slot) &optional type)

(unless (qt:object.connect (qsender qt-signal) (qt:qsignal (name qt-signal))

(receiver qt-slot) (qt:qslot (name qt-slot))

- (or type qt:+auto-connection+))

+ (or type qt:+auto-connection+))

(cerror "Failed to connect ~A ~A to ~A ~A."

(qsender qt-signal) (name qt-signal)

(receiver qt-slot) (name qt-slot))))

@@ -196,8 +196,8 @@

(qt:meta-object.connect sender signal-id

receiver slot-id

(if (null type)

- (value qt:+auto-connection+)

- (value type))

+ qt:+auto-connection+

+ type)

types))

(defun disconnect-id (sender signal-id receiver slot-id)