Tue May 26 11:59:49 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test argument conversion/promotion when emiting signals
hunk ./src/signal-slot.lisp 178
+(5am:test (emit-user-conversion :depends-on emit-qstring-signal)
+ "Emit a signal with a user conversion of the argument."
+ (qt:with-app
+ (let ((combobox (make-instance 'qt:text-edit))
+ (set-font (qt:make-signal)))
+ (qt:connect set-font
+ (qt:get-slot combobox "setCurrentFont(QFont)"))
+ (5am:is (cxx:operator== (cxx:current-font combobox)
+ (make-instance 'qt:font)))
+ (funcall set-font "Times")
+ (5am:is (cxx:operator== (cxx:current-font combobox)
+ "Times")))))
+