src/qt.uitools.lisp
Fri Apr 3 00:17:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.uitools/src/qt.uitools.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.uitools/src/qt.uitools.lisp 2014-10-30 08:01:51.000000000 +0100
@@ -0,0 +1,24 @@
+(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*)
+