repos
/
qt.uitools
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/qt.uitools.lisp
2009-04-02 tobias
1
(in-package :qt.uitools)
22:17:16 '
2
'
3
(eval-when (:load-toplevel :compile-toplevel)
'
4
(define-foreign-library libsmokeqtuitools
'
5
(:unix "libsmokeqtuitools.so.2")
'
6
(t (:default "libsmokeqtuitools")))
'
7
(use-foreign-library libsmokeqtuitools)
'
8
'
9
(defcvar "qtuitools_Smoke" :pointer
'
10
"The Smoke QtUiTools binding")
'
11
'
12
(defcfun (init-qtuitools-smoke "_Z20init_qtuitools_Smokev") :void)
'
13
'
14
(defvar *binding* (null-pointer))
'
15
'
16
(init-qtuitools-smoke))
'
17
'
18
(eval-when (:load-toplevel)
'
19
(when (null-pointer-p *binding*)
'
20
(setf *binding* (init *qtuitools-smoke*))
'
21
(make-smoke-classes *qtuitools-smoke*)))
'
22
'
23
(define-methods *qtuitools-smoke*)
'
24