Mon Feb 8 18:04:11 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Add :qt.uitools to *FEATURES*
Thu Jan 7 22:00:17 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* modular smoke & cl-smoke prefix.
Sun Dec 13 13:47:29 CET 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Support ASDF instead of Mudballs.
Sun Jun 21 11:30:53 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* uses-macros-from :smoke
Thu Jun 11 20:55:22 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Set package for smoke module
Thu May 14 14:13:53 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Lisp image loading
diff -rN -u old-qt.uitools/cl-smoke.qt.uitools.asd new-qt.uitools/cl-smoke.qt.uitools.asd
--- old-qt.uitools/cl-smoke.qt.uitools.asd 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.uitools/cl-smoke.qt.uitools.asd 2014-10-30 08:01:24.000000000 +0100
@@ -0,0 +1,13 @@
+(defsystem :cl-smoke.qt.uitools
+ :name :cl-smoke.qt.uitools
+ :version (0 0 1)
+ :author "Tobias Rautenkranz"
+ :license "GPL with linking exception"
+ :description "Use Qt Designer .ui files."
+
+ :depends-on (:cl-smoke.qt.core :cl-smoke.qt.gui :cl-smoke.smoke)
+ :components
+ ((:module "src"
+ :components
+ ((:file "package")
+ (:file "qt.uitools" :depends-on ("package"))))))
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:24.000000000 +0100
+++ new-qt.uitools/qt.uitools.mbd 1970-01-01 01:00:00.000000000 +0100
@@ -1,15 +0,0 @@
-;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
-
-(in-package :sysdef-user)
-
-(define-system :qt.uitools ()
- (:version 0 0 1)
- (:documentation "Use Qt Designer .ui files.")
- (:author "Tobias Rautenkranz")
- (:license "GPL with linking exception")
- (:needs :qt)
- (:components
- ("src" module
- (:components
- "package"
- ("qt.uitools" (:needs "package"))))))
diff -rN -u old-qt.uitools/src/package.lisp new-qt.uitools/src/package.lisp
--- old-qt.uitools/src/package.lisp 2014-10-30 08:01:24.000000000 +0100
+++ new-qt.uitools/src/package.lisp 2014-10-30 08:01:24.000000000 +0100
@@ -1,3 +1,4 @@
(defpackage :qt.uitools
(:use :cl :smoke :cffi))
+(pushnew :qt.uitools *features*)
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:24.000000000 +0100
+++ new-qt.uitools/src/qt.uitools.lisp 2014-10-30 08:01:24.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 :cl-smoke.qt libsmokeqtuitools
+ (*qtuitools-smoke* "qtuitools_Smoke")
+ (init-qtuitools-smoke "init_qtuitools_Smoke"))