Sun Apr 5 19:56:16 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* initial import

--- old-qt.core/src/qt.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.core/src/qt.lisp 2014-11-11 13:37:30.000000000 +0100

@@ -0,0 +1,33 @@

+(in-package :qt)

+

+(eval-when (:load-toplevel :compile-toplevel :execute)

+ (define-foreign-library libsmokeqt

+ (:unix "libsmokeqt.so.2")

+ (t (:default "libsmokeqt")))

+

+ (use-foreign-library libsmokeqt)

+

+ (use-foreign-library libqt-smoke-extra)

+

+ (defcvar "qt_Smoke" :pointer

+ "The Smoke Qt binding")

+

+ (defcfun (init-qt-smoke "_Z13init_qt_Smokev") :void)

+

+ (defvar *qt-binding* (null-pointer))

+

+ (init-qt-smoke))

+

+(eval-when (:load-toplevel :compile-toplevel)

+ (when (null-pointer-p *qt-binding*)

+ (setf *qt-binding* (init *qt-smoke*))))

+ ;(make-smoke-classes *qt-smoke*))

+

+(define-methods *qt-smoke*)

+

+

+(defun new (class-name method-name &rest args)

+ (apply #'new-object *qt-binding* class-name method-name args))

+

+(defun static-call (class-name method-name &rest args)

+ (apply #'smoke::static-call *qt-smoke* class-name method-name args))