repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Qt Example: Colliding Mice
Annotate for file src/package.lisp
2009-04-14 tobias
1
;;; Copyright 2009 Tobias Rautenkranz
14:29:22 '
2
;;; License: X11 license
'
3
2009-04-05 tobias
4
(defpackage #:qt.examples
15:36:46 '
5
(:use #:cl #:cxx-support)
'
6
(:export #:hello-world
'
7
#:i18n-hello-world
'
8
#:hello-world-quit
'
9
#:hello-world-gc
'
10
'
11
#:class-browser
'
12
'
13
#:tick-tack-toe
'
14
#:repl
2009-07-22 tobias
15
#:play-video
2010-01-10 tobias
16
;;#:origami
2009-04-05 tobias
17
15:36:46 '
18
#:launcher
2010-01-23 tobias
19
22:18:27 '
20
#:analog-clock
2010-01-25 tobias
21
#:colliding-mice
2009-04-05 tobias
22
15:36:46 '
23
#:load-ui-file))
2010-01-10 tobias
24
08:54:26 '
25
(in-package #:qt.examples)
'
26
'
27
(defvar *source-path*
'
28
#.(asdf:component-pathname (asdf:find-component
'
29
(asdf:find-system :cl-smoke.qt.examples) "src")))
'
30
'
31
(defun test-all ()
'
32
(let ((qt:*exec-p* nil))
'
33
(do-external-symbols (example :qt.examples)
'
34
(when (fboundp example)
'
35
(format *debug-io* "testing ~A~%"
'
36
(documentation (symbol-function example)
'
37
'function))
'
38
(funcall (symbol-function example))))))