Sun May 24 16:40:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Use overload resolution instead of static-call

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

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

@@ -70,14 +70,10 @@

:argument-types (method-arguments-type

(cxx:meta-object sender)

signal-id))))

- (let ((ret (static-call "QMetaObject" "connect#$#$$$"

- sender

- signal-id

- slot

- (id slot)

- type

- (types (arguments slot)))))

+ (let ((ret (meta-object.connect sender signal-id

+ slot (id slot)

+ type (types (arguments slot)))))

(if ret

- (cxx:connect-notify sender signal)

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

- signal sender function)))))

+ (cxx:connect-notify sender signal)

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

+ signal sender function)))))