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 06:56:54.000000000 +0100
+++ new-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-30 06:56:54.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 06:56:54.000000000 +0100
+++ new-kde.examples/src/mandelbrot/mandelbrotwidget.lisp 2014-10-30 06:56:54.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))))