Sun May 24 23:29:56 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Work around null pointer for references bug
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-23 22:57:14.000000000 +0200
+++ new-kde.examples/src/mandelbrot/mandelbrot.lisp 2014-10-23 22:57:14.000000000 +0200
@@ -19,7 +19,7 @@
(defun make-aboutdata ()
(let ((app-name "kmandelbrot")
- (catalog-name (cffi:null-pointer))
+ (catalog-name "") ;; not (null-pointer) (see smoke::conversion-pointer)
(program-name (kde:ki18n "KMandelbrot"))
(version "0.0.1")
(description (kde:ki18n "KDE Mandelbrot program."))
@@ -28,15 +28,16 @@
(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
- version description
- kde:about-data.+license-lgpl-v2+
- copyright text homepage email))))
+ (make-instance 'kde:about-data
+ :args (list
+ app-name catalog-name program-name
+ version description
+ kde:about-data.+license-lgpl-v2+
+ copyright text homepage email))))
(cxx:add-author aboutdata
- (kde:ki18n "Tobias Rautenkranz")
- (make-instance 'kde:localized-string)
- "tobias@rautenkranz.ch")
+ (kde:ki18n "Tobias Rautenkranz")
+ (make-instance 'kde:localized-string)
+ "tobias@rautenkranz.ch")
aboutdata)))
(defun mandelbrot ()
@@ -71,9 +72,8 @@
(cxx:set-focus mandelbrot)
(setup-slot mandelbrot)
- (cxx:add-resource-dir (kde:global.dirs)
- "data" resource-dir)
+ (cxx:add-resource-dir (kde:global.dirs) "data" resource-dir)
(cxx:setup-gui window)
(cxx:show window)
- (qt:exec))))
+ (qt:exec window))))