Thu May 14 14:14:47 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Lisp image loading
diff -rN -u old-kde.ui/kde.mbd new-kde.ui/kde.mbd
--- old-kde.ui/kde.mbd	2014-10-30 07:23:13.000000000 +0100
+++ new-kde.ui/kde.mbd	2014-10-30 07:23:13.000000000 +0100
@@ -9,6 +9,7 @@
   (:author "Tobias Rautenkranz")
   (:license "GPL with linking exception")
   (:needs :qt)
+;  (:uses-macros-from :smoke)
   (:components 
    ("src" module
    	(:components
diff -rN -u old-kde.ui/src/kde.lisp new-kde.ui/src/kde.lisp
--- old-kde.ui/src/kde.lisp	2014-10-30 07:23:13.000000000 +0100
+++ new-kde.ui/src/kde.lisp	2014-10-30 07:23:13.000000000 +0100
@@ -27,28 +27,9 @@
 
 (in-package :kde)
 
-(eval-when (:load-toplevel :compile-toplevel :execute)
-  (define-foreign-library libsmokekde
-      (:unix "libsmokekde.so.2")
-    (t (:default "libsmokekde")))
-
-  (use-foreign-library libsmokekde)
-
-  (defcvar ("kde_Smoke" :read-only t) :pointer
-    "The Smoke KDE binding")
-
-  (defcfun (init-kde-smoke "_Z14init_kde_Smokev") :void)
-
-  (defvar *kde-binding* (null-pointer))
+(smoke:define-smoke-module libsmokekde
+    (*kde-smoke* "kde_Smoke")
+  (init-kde-smoke "init_kde_Smoke"))
 
-  (init-kde-smoke)
-  (disable-dr-konqi)
-  (setf *kde-binding* (init *kde-smoke*)))
-
-(define-methods *kde-smoke*)
-
-(defun new (class-name method-name &rest args)
-  (apply #'new-object *kde-binding* class-name method-name args))
-
-(defun static-call (class-name method-name &rest args)
-  (apply #'smoke::static-call *kde-smoke* class-name method-name args))
+(eval-when (:load-toplevel :compile-toplevel :execute)
+  (disable-dr-konqi))