repos
/
kde.ui
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
fix kde loading
Annotate for file src/kde.lisp
2010-04-03 tobias
1
(in-package :kde)
2009-04-05 tobias
2
2009-04-07 tobias
3
(eval-when (:load-toplevel :compile-toplevel :execute)
2009-05-14 tobias
4
(define-foreign-library libsmokekde
2009-05-12 tobias
5
(:unix "libsmokekde.so.2")
2009-05-14 tobias
6
(t (:default "libsmokekde")))
12:14:47 '
7
'
8
(use-foreign-library libsmokekde)
'
9
2009-05-12 tobias
10
(defcvar "kde_Smoke" :pointer
2009-05-14 tobias
11
"The Smoke KDE binding")
12:14:47 '
12
'
13
(defcfun (init-kde-smoke "_Z14init_kde_Smokev") :void)
'
14
'
15
(defvar *kde-binding* (null-pointer))
2010-04-03 tobias
16
2009-05-14 tobias
17
(init-kde-smoke)
12:14:47 '
18
(disable-dr-konqi)
2009-04-07 tobias
19
(setf *kde-binding* (init *kde-smoke*)))
2009-05-14 tobias
20
12:14:47 '
21
(define-methods *kde-smoke*)
'
22
'
23
(defun new (class-name method-name &rest args)
'
24
(apply #'new-object *kde-binding* class-name method-name args))
'
25
'
26
(defun static-call (class-name method-name &rest args)
'
27
(apply #'smoke::static-call *kde-smoke* class-name method-name args))