darcs - qt.examples

2 ;;; License: X11 license

4 (defpackage #:qt.examples

5 (:use #:cl #:cxx-support)

6 (:export #:hello-world

7 #:i18n-hello-world

8 #:hello-world-quit

9 #:hello-world-gc

11 #+qt.webkit

12 #:class-browser

14 #:tick-tack-toe

15 #:repl

16 #+qt.phonon

17 #:play-video

18 ;;#:origami

20 #:launcher

22 #:analog-clock

23 #:colliding-mice

25 #+qt.uitools

26 #:load-ui-file))

28 (in-package #:qt.examples)

30 (defvar *source-path*

31 #.(asdf:component-pathname (asdf:find-component

32 (asdf:find-system :cl-smoke.qt.examples) "src")))

34 (defun test-all ()

35 (let ((qt:*exec-p* nil))

36 (do-external-symbols (example :qt.examples)

37 (when (fboundp example)

38 (format *debug-io* "testing ~A~%"

39 (documentation (symbol-function example)

40 'function))

41 (funcall (symbol-function example))))))