Sun May 24 16:14:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test with-app
hunk ./src/application.lisp 8
-; (5am:is (eql nil (qt:app-p)))
+ (5am:is (eql nil (qt:app-p)))
hunk ./src/application.lisp 17
- (setf (cxx:object-name (qt:app)) "app")))))
-; (5am:is (eql nil (qt:app-p)))))
+ (setf (cxx:object-name (qt:app)) "app")))
+ (5am:is (eql nil (qt:app-p)))))
hunk ./src/application.lisp 25
- (5am:is (eql (qt:app) (qt:core-application.instance))))))
+ (5am:is (eql (qt:app) (qt:core-application.instance))))
+ (5am:is (eql (qt:app) (qt:core-application.instance)))))