Mon Feb 8 18:04:11 CET 2010 Tobias Rautenkranz * Add :qt.uitools to *FEATURES* Thu Jan 7 22:00:17 CET 2010 Tobias Rautenkranz * modular smoke & cl-smoke prefix. Sun Dec 13 13:47:29 CET 2009 Tobias Rautenkranz * Support ASDF instead of Mudballs. Sun Jun 21 11:30:53 CEST 2009 Tobias Rautenkranz * uses-macros-from :smoke Thu Jun 11 20:55:22 CEST 2009 Tobias Rautenkranz * Set package for smoke module Thu May 14 14:13:53 CEST 2009 Tobias Rautenkranz * 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 2015-10-02 04:09:18.681805862 +0200 @@ -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 2015-10-02 04:09:18.568813677 +0200 +++ 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 2015-10-02 04:09:18.556814507 +0200 +++ new-qt.uitools/src/package.lisp 2015-10-02 04:09:18.682805793 +0200 @@ -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 2015-10-02 04:09:18.567813746 +0200 +++ new-qt.uitools/src/qt.uitools.lisp 2015-10-02 04:09:18.682805793 +0200 @@ -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"))