Thu May 14 14:13:53 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Lisp image loading
diff -rN -u old-qt.uitools/qt.uitools.mbd new-qt.uitools/qt.uitools.mbd
--- old-qt.uitools/qt.uitools.mbd	2014-10-30 08:01:26.000000000 +0100
+++ new-qt.uitools/qt.uitools.mbd	2014-10-30 08:01:26.000000000 +0100
@@ -8,6 +8,7 @@
   (:author "Tobias Rautenkranz")
   (:license "GPL with linking exception")
   (:needs :qt)
+;  (:uses-macros-from :smoke)
   (:components
   ("src" module
             (:components
diff -rN -u old-qt.uitools/src/qt.uitools.lisp new-qt.uitools/src/qt.uitools.lisp
--- old-qt.uitools/src/qt.uitools.lisp	2014-10-30 08:01:26.000000000 +0100
+++ new-qt.uitools/src/qt.uitools.lisp	2014-10-30 08:01:26.000000000 +0100
@@ -27,25 +27,6 @@
 
 (in-package :qt.uitools)
 
-(eval-when (:load-toplevel :compile-toplevel)
-  (define-foreign-library libsmokeqtuitools
-    (:unix "libsmokeqtuitools.so.2")
-    (t (:default "libsmokeqtuitools")))
-  (use-foreign-library libsmokeqtuitools)
-
-  (defcvar "qtuitools_Smoke" :pointer
-    "The Smoke QtUiTools binding")
-
-  (defcfun (init-qtuitools-smoke "_Z20init_qtuitools_Smokev") :void)
-
-  (defvar *binding* (null-pointer))
-
-  (init-qtuitools-smoke))
-
-(eval-when (:load-toplevel)
-  (when (null-pointer-p *binding*)
-    (setf *binding* (init *qtuitools-smoke*))
-    (make-smoke-classes *qtuitools-smoke*)))
-
-(define-methods *qtuitools-smoke*)
-
+(smoke:define-smoke-module libsmokeqtuitools
+    (*qtuitools-smoke* "qtuitools_Smoke")
+  (init-qtuitools-smoke "init_qtuitools_Smoke"))