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/mandelbrotwidget.lisp 2014-10-30 07:19:23.000000000 +0100

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

@@ -13,8 +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 zoom-in-factor ()

0.8)

@@ -128,7 +127,8 @@

(zoom widget (expt (zoom-in-factor) (/ (cxx:delta event) (* 8 15.0)))))

(defmethod cxx:mouse-move-event ((widget mandelbrotwidget) event)

- (when (logand (cxx:buttons event) (value qt:+left-button+))

+ (when (and (logand (cxx:buttons event) (value qt:+left-button+))

+ (last-drag-pos widget))

(incf (pixmap-offset widget)

(- (complex (cxx:x event)

(cxx:y event))