repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Load qt.webkit, .uitools & .phonon optionaly.
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
2010-02-08 tobias
11
#+qt.webkit
2009-04-05 tobias
12
#:class-browser
15:36:46 '
13
'
14
#:tick-tack-toe
'
15
#:repl
2010-02-08 tobias
16
#+qt.phonon
2009-07-22 tobias
17
#:play-video
2010-01-10 tobias
18
;;#:origami
2009-04-05 tobias
19
15:36:46 '
20
#:launcher
2010-01-23 tobias
21
22:18:27 '
22
#:analog-clock
2010-01-25 tobias
23
#:colliding-mice
2009-04-05 tobias
24
2010-02-08 tobias
25
#+qt.uitools
2009-04-05 tobias
26
#:load-ui-file))
2010-01-10 tobias
27
08:54:26 '
28
(in-package #:qt.examples)
'
29
'
30
(defvar *source-path*
'
31
#.(asdf:component-pathname (asdf:find-component
'
32
(asdf:find-system :cl-smoke.qt.examples) "src")))
'
33
'
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))))))