Thu Aug 27 10:41:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Updates for the new smokegenerator.
* workaround missing default arguments for QTest::mouseClick
* test const correctness.
hunk ./src/click.lisp 23
- (qt:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/click.lisp 26
- (qt:test.mouse-click widget qt:+right-button+)
+ (qt:test.mouse-click widget qt:+right-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/click.lisp 40
- (qt:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/click.lisp 43
- (qt:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/click.lisp 59
- (qt:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/click.lisp 62
- (qt:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+
+ 0 (make-instance 'qt:point) -1)
hunk ./src/gc.lisp 4
-
hunk ./src/gc.lisp 127
+ (setf (cxx:object-name grand-parent) "grand parent")
hunk ./src/gc.lisp 130
- (declare (ignore object)))
+ (setf (cxx:object-name parent) "parent"
+ (cxx:object-name object) "child"))
hunk ./src/gc.lisp 139
- (cxx:children c)))))))
+ (cxx:children c)))))))
hunk ./src/gc.lisp 141
-
hunk ./src/gc.lisp 144
- (let ((model (make-instance 'qt:string-list-model
- :args (list #("a" "b" "c"))))
+ (let ((model (make-instance 'qt:string-list-model :arg0 #("a" "b" "c")))
hunk ./src/gc.lisp 153
+ (cxx:destroyed (cxx:selection-model view)
+ (cxx:selection-model view))
hunk ./src/qbytearray.lisp 16
+(5am:test const-bytearray
+ "Test const QByteArray."
+ (let ((const-array (qt:operator+ (make-instance 'qt:byte-array)
+ (make-instance 'qt:byte-array))))
+ (5am:is (typep (cxx:operator[] (make-instance 'qt:byte-array) 0)
+ 'qt:byte-ref))
+ (5am:is (eql #\Null (cxx:operator[] const-array 0)))))
+
hunk ./src/signal-slot.lisp 155
- [_$_]
- (qt:connect (qt:get-signal signal-mapper "mapped(QObject*)")
+ ;; button is a QWidget thus it's mapped(QWidget*) and not
+ ;; mapped(QObject*)
+ (qt:connect (qt:get-signal signal-mapper "mapped(QWidget*)")
hunk ./src/signal-slot.lisp 162
- (qt:test.mouse-click button qt:+left-button+)
+ (qt:test.mouse-click button qt:+left-button+
+ 0 (make-instance 'qt:point) -1)