repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Qt example: Analog Clock
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
2009-04-05 tobias
21
15:36:46 '
22
#:load-ui-file))
2010-01-10 tobias
23
08:54:26 '
24
(in-package #:qt.examples)
'
25
'
26
(defvar *source-path*
'
27
#.(asdf:component-pathname (asdf:find-component
'
28
(asdf:find-system :cl-smoke.qt.examples) "src")))
'
29
'
30
(defun test-all ()
'
31
(let ((qt:*exec-p* nil))
'
32
(do-external-symbols (example :qt.examples)
'
33
(when (fboundp example)
'
34
(format *debug-io* "testing ~A~%"
'
35
(documentation (symbol-function example)
'
36
'function))
'
37
(funcall (symbol-function example))))))