Thu May 14 14:14:47 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Lisp image loading

--- old-kde.ui/kde.mbd 2014-10-30 06:57:35.000000000 +0100

+++ new-kde.ui/kde.mbd 2014-10-30 06:57:35.000000000 +0100

@@ -9,6 +9,7 @@

(:author "Tobias Rautenkranz")

(:license "GPL with linking exception")

(:needs :qt)

+; (:uses-macros-from :smoke)

(:components

("src" module

(:components

--- old-kde.ui/src/kde.lisp 2014-10-30 06:57:35.000000000 +0100

+++ new-kde.ui/src/kde.lisp 2014-10-30 06:57:35.000000000 +0100

@@ -27,28 +27,9 @@

(in-package :kde)

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

- (define-foreign-library libsmokekde

- (:unix "libsmokekde.so.2")

- (t (:default "libsmokekde")))

-

- (use-foreign-library libsmokekde)

-

- (defcvar ("kde_Smoke" :read-only t) :pointer

- "The Smoke KDE binding")

-

- (defcfun (init-kde-smoke "_Z14init_kde_Smokev") :void)

-

- (defvar *kde-binding* (null-pointer))

+(smoke:define-smoke-module libsmokekde

+ (*kde-smoke* "kde_Smoke")

+ (init-kde-smoke "init_kde_Smoke"))

- (init-kde-smoke)

- (disable-dr-konqi)

- (setf *kde-binding* (init *kde-smoke*)))

-

-(define-methods *kde-smoke*)

-

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

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

-

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

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

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

+ (disable-dr-konqi))