Sun Jan 10 09:54:26 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* modular smoke & cleanup.

--- old-qt.examples/cl-smoke.qt.examples.asd 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.examples/cl-smoke.qt.examples.asd 2014-10-30 07:36:23.000000000 +0100

@@ -0,0 +1,31 @@

+(defsystem :cl-smoke.qt.examples

+ :name :cl-smoke.qt.examples

+ :version (0 0 1)

+ :author "Tobias Rautenkranz"

+ :license "X11"

+ :description "Qt examples."

+ :depends-on (:cl-smoke.qt.gui :cl-smoke.qt.webkit :cl-smoke.qt.uitools

+ :cl-smoke.qt.phonon)

+ ;;:cl-opengl :cl-glu :cl-smoke.qt.opengl)

+

+ :components

+ ((:module "src"

+ :components

+ ((:file "package")

+ (:file "hello-world" :depends-on ("package"))

+ (:file "video" :depends-on ("package"))

+ (:file "hello-world-quit" :depends-on ("package"))

+ (:file "i18n-hello-world" :depends-on ("package"))

+ (:file "tick-tack-toe" :depends-on ("package"))

+ (:file "launcher" :depends-on ("package"))

+ (:file "ui" :depends-on ("package"))

+ (:file "repl" :depends-on ("package"))

+ (:file "class-browser" :depends-on ("package"))))))

+ ;;(:module "origami"

+ ;; :depends-on ("package")

+ ;; :components

+ ;; ((:file "origami" :depends-on ("tri"))

+ ;; (:file "tri")))))))

+

+(defmethod perform ((o test-op) (c (eql (find-system :cl-smoke.qt.examples))))

+ (funcall (intern (string :test-all) (string :qt.examples))))