repos
/
qt.core
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/qt.lisp
2009-04-05 tobias
1
(in-package :qt)
17:56:16 '
2
'
3
(eval-when (:load-toplevel :compile-toplevel :execute)
'
4
(define-foreign-library libsmokeqt
'
5
(:unix "libsmokeqt.so.2")
'
6
(t (:default "libsmokeqt")))
'
7
'
8
(use-foreign-library libsmokeqt)
'
9
'
10
(use-foreign-library libqt-smoke-extra)
'
11
'
12
(defcvar "qt_Smoke" :pointer
'
13
"The Smoke Qt binding")
'
14
'
15
(defcfun (init-qt-smoke "_Z13init_qt_Smokev") :void)
'
16
'
17
(defvar *qt-binding* (null-pointer))
'
18
'
19
(init-qt-smoke))
'
20
'
21
(eval-when (:load-toplevel :compile-toplevel)
'
22
(when (null-pointer-p *qt-binding*)
'
23
(setf *qt-binding* (init *qt-smoke*))))
'
24
;(make-smoke-classes *qt-smoke*))
'
25
'
26
(define-methods *qt-smoke*)
'
27
'
28
'
29
(defun new (class-name method-name &rest args)
'
30
(apply #'new-object *qt-binding* class-name method-name args))
'
31
'
32
(defun static-call (class-name method-name &rest args)
'
33
(apply #'smoke::static-call *qt-smoke* class-name method-name args))
2009-05-24 tobias
34