Thu Jun 11 20:52:38 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* The Qt modules are now all in :qt
hunk ./src/click.lisp 23
- (qt.test:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+)
hunk ./src/click.lisp 25
- (qt.test:test.mouse-click widget qt:+right-button+)
+ (qt:test.mouse-click widget qt:+right-button+)
hunk ./src/click.lisp 38
- (qt.test:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+)
hunk ./src/click.lisp 40
- (qt.test:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+)
hunk ./src/click.lisp 55
- (qt.test:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+)
hunk ./src/click.lisp 57
- (qt.test:test.mouse-click widget qt:+left-button+)
+ (qt:test.mouse-click widget qt:+left-button+)
hunk ./src/gc.lisp 164
+#|
+;; FIXME
+(5am:test (gc-variant-cycle :depends-on gc-lisp-child lisp-variant)
+ (let ((finalized-p))
+ (let* ((list (list nil))
+ (variant (qt:make-lisp-variant list)))
+ (setf (first list)
+ variant)
+ (tg:finalize list #'(lambda () (setf finalized-p t)))
+ (5am:is (eq nil finalized-p)))
+ (gc :full t)
+ (gc :full t)
+ (5am:is (eq t finalized-p))))
+
+|#
hunk ./src/signal-slot.lisp 2
-(declaim (optimize (debug 3)))
hunk ./src/signal-slot.lisp 161
- (qt.test:test.mouse-click button qt:+left-button+)
+ (qt:test.mouse-click button qt:+left-button+)