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 07:03:55.000000000 +0100
+++ new-qt.uitools/qt.uitools.mbd 2014-10-30 07:03:55.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 07:03:55.000000000 +0100
+++ new-qt.uitools/src/qt.uitools.lisp 2014-10-30 07:03:55.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"))