Sat Apr 3 19:19:09 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Replace mudballs with ASDF and support the modular Smoke.

--- old-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-30 07:19:20.000000000 +0100

+++ new-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-30 07:19:20.000000000 +0100

@@ -1,4 +1,4 @@

-;;; Copyright (C) 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

+;;; Copyright (C) 2009, 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

;;;

;;; This program is free software: you can redistribute it and/or modify

;;; it under the terms of the GNU General Public License as published by

@@ -13,9 +13,7 @@

;;; You should have received a copy of the GNU General Public License

;;; along with this program. If not, see <http://www.gnu.org/licenses/>.

-(in-package :kde.examples)

-

-(declaim (optimize (debug 3)))

+(in-package :cl-smoke.kde.examples)

(defun make-aboutdata ()

(let ((app-name "kmandelbrot")

@@ -41,13 +39,17 @@

aboutdata)))

(defun mandelbrot ()

+ "KDE Mandelbrot example"

(kde:with-app (make-aboutdata)

(let* ((window (make-instance 'kde:xml-gui-window))

(mandelbrot (make-instance 'mandelbrotwidget))

- (resource-dir (directory-namestring

- (mb.sysdef:component-pathname

- (mb.sysdef:find-component :kde.examples "src")))))

-

+ (resource-dir

+ (namestring

+ (asdf:component-pathname

+ (asdf:find-component

+ (asdf:find-component (asdf:find-system :cl-smoke.kde.examples)

+ "src")

+ "kmandelbrot")))))

(cxx:add-resource-dir (kde:global.dirs)

"icon" resource-dir)

(cxx:add-resource-dir (kde:global.dirs)

@@ -76,4 +78,4 @@

(cxx:setup-gui window)

(cxx:show window)

- (qt:exec window))))

+ (qt:exec))))