Sun Jan 10 18:12:25 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Remove optional qt.gui dependency.
hunk ./cl-smoke.qt.test.asd 8
- :depends-on (:cl-smoke.smoke :cl-smoke.qt.core :cl-smoke.qt.gui)
+ :depends-on (:cl-smoke.smoke :cl-smoke.qt.core)
Thu Jan 7 21:59:11 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular smoke & cl-smoke prefix.
move ./qt.test.asd ./cl-smoke.qt.test.asd
hunk ./cl-smoke.qt.test.asd 1
-(defpackage qt.test-system
- (:use :cl :asdf))
-
-(in-package qt.test-system)
-
-(asdf:defsystem :qt.test
- :name :qt.test
+(defsystem :cl-smoke.qt.test
+ :name :cl-smoke.qt.test
hunk ./cl-smoke.qt.test.asd 8
- :depends-on (:smoke :qt)
+ :depends-on (:cl-smoke.smoke :cl-smoke.qt.core :cl-smoke.qt.gui)
Sun Dec 13 13:46:46 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support ASDF instead of Mudballs.
addfile ./qt.test.asd
hunk ./qt.test.asd 1
+(defpackage qt.test-system
+ (:use :cl :asdf))
+
+(in-package qt.test-system)
+
+(asdf:defsystem :qt.test
+ :name :qt.test
+ :version (0 0 1)
+ :author "Tobias Rautenkranz"
+ :license "GPL with linking exception"
+ :description "Qt Test module for GUI testing."
+
+ :depends-on (:smoke :qt)
+ :components
+ ((:module "src"
+ :components
+ ((:file "package")
+ (:file "qt.test" :depends-on ("package"))))))
hunk ./qt.test.mbd 1
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-
-(in-package :sysdef-user)
-
-(define-system :qt.test ()
- (:version 0 0 1)
- (:documentation "Qt Test module for GUI testing.")
- (:keywords "test" "testing" "GUI")
- (:author "Tobias Rautenkranz")
- (:license "GPL with linking exception")
- (:uses-macros-from :smoke)
- (:components
- ("src" module
- (:components
- "package"
- ("qt.test" (:needs "package")))))
- (:needs :qt))
rmfile ./qt.test.mbd
Sun Jun 21 11:31:17 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* uses-macros-from :smoke
hunk ./qt.test.mbd 11
-; (:uses-macros-from :smoke)
+ (:uses-macros-from :smoke)
Thu Jun 11 20:54:31 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Set package for smoke module
hunk ./src/qt.test.lisp 30
-(smoke:define-smoke-module libsmokeqttest
+(smoke:define-smoke-module :cl-smoke.qt libsmokeqttest
Thu May 14 14:14:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Lisp image loading
hunk ./qt.test.mbd 11
+; (:uses-macros-from :smoke)
hunk ./src/qt.test.lisp 30
-(eval-when (:load-toplevel :compile-toplevel)
- (define-foreign-library libsmokeqttest
- (:unix "libsmokeqttest.so.2")
- (t (:default "libsmokeqttest")))
- (use-foreign-library libsmokeqttest)
+(smoke:define-smoke-module libsmokeqttest
+ (*qttest-smoke* "qttest_Smoke")
+ (init-qttest-smoke "init_qttest_Smoke"))
hunk ./src/qt.test.lisp 34
- (defcvar ("qttest_Smoke" :read-only t) :pointer
- "The Smoke Qt binding")
-
- (defcfun (init-qttest-smoke "_Z17init_qttest_Smokev") :void)
-
- (defvar *binding* (null-pointer))
-
- (init-qttest-smoke)
-
- (when (null-pointer-p *binding*)
- (setf *binding* (init *qttest-smoke*))))
-
-(define-methods *qttest-smoke*)