Fri Apr 17 17:30:05 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Use C++ style overload resolution.
diff -rN -u old-kde.examples/src/mandelbrot/mandelbrot.lisp new-kde.examples/src/mandelbrot/mandelbrot.lisp
--- old-kde.examples/src/mandelbrot/mandelbrot.lisp	2014-10-30 07:19:37.000000000 +0100
+++ new-kde.examples/src/mandelbrot/mandelbrot.lisp	2014-10-30 07:19:37.000000000 +0100
@@ -18,17 +18,15 @@
 (declaim (optimize (debug 3)))
 
 (defun make-aboutdata ()
-  (let ((app-name (make-instance 'qt:byte-array :args '("kmandelbrot")))
-        (catalog-name (make-instance 'qt:byte-array))
+  (let ((app-name "kmandelbrot")
+        (catalog-name (cffi:null-pointer))
         (program-name (kde:ki18n "KMandelbrot"))
-        (version (make-instance 'qt:byte-array :args '("0.0.1")))
+        (version "0.0.1")
         (description (kde:ki18n "KDE Mandelbrot program."))
         (copyright (kde:ki18n "Copyright (c) 2009 Tobias Rautenkranz"))
         (text (kde:ki18n "TODO"))
-        (homepage (make-instance 'qt:byte-array
-                                 :args '("http://tobias.rautenkranz.ch")))
-        (email (make-instance 'qt:byte-array 
-                              :args '("bugs@tobias.rautenkranz.ch"))))
+        (homepage "http://tobias.rautenkranz.ch/lisp/cl-smoke/")
+        (email "bugs@tobias.rautenkranz.ch"))
     (let ((aboutdata
            (make-instance 'kde:about-data :args (list
                                              app-name catalog-name program-name
@@ -38,7 +36,7 @@
       (cxx:add-author aboutdata
                      (kde:ki18n "Tobias Rautenkranz")
                      (make-instance 'kde:localized-string)
-                     (make-instance 'qt:byte-array :args '("tobias@rautenkranz.ch")))
+                     "tobias@rautenkranz.ch")
       aboutdata)))
 
 (defun mandelbrot ()
diff -rN -u old-kde.examples/src/mandelbrot/mandelbrotwidget.lisp new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp
--- old-kde.examples/src/mandelbrot/mandelbrotwidget.lisp	2014-10-30 07:19:37.000000000 +0100
+++ new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp	2014-10-30 07:19:37.000000000 +0100
@@ -53,8 +53,7 @@
                qt:+queued-connection+))
 
 (defun draw-rendering (painter widget)
-  (cxx:set-pen painter (make-instance 'qt:color
-                                     :args (list qt:+white+)))
+  (cxx:set-pen painter #xFFFFFF) ;; FIXME make qt:+white+ work
   (cxx:draw-text painter (cxx:rect widget)
                  (value qt:+align-center+)
                  "Rendering initial image, please wait..."))
@@ -93,8 +92,7 @@
   (declare (ignore event))
   (qt:with-painter (painter widget)
     (cxx:fill-rect painter (cxx:rect widget)
-                  (make-instance 'qt:brush :args (list
-                  (make-instance 'qt:color :args (list qt:+black+)))))
+                   #x000) ;; FIXME qt:+black+
     (if (null (pixmap widget))
         (draw-rendering painter widget)
         (draw-pixmap painter widget))))