Sun May 24 17:11:10 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * cleanup new
diff -rN -u old-kde.ui/src/application.lisp new-kde.ui/src/application.lisp
--- old-kde.ui/src/application.lisp	2014-10-30 07:23:00.000000000 +0100
+++ new-kde.ui/src/application.lisp	2014-10-30 07:23:00.000000000 +0100
@@ -42,9 +42,9 @@
     (qt:application.close-all-windows)
     (setf qt::*widgets* nil)
     ;; FIXME make it work without mem-faults
-    (cxx:delete-later (app))
     (trivial-garbage:cancel-finalization (app))
-    (smoke::delete-pointer (smoke::pointer (app)) (class-of (app)))
+    (cxx:delete-later (app))
+    ;(smoke::delete-pointer (smoke::pointer (app)) (class-of (app)))
     (setf (slot-value (app) 'pointer) (null-pointer))))
 
 (defmacro with-app (about-data &body body)
diff -rN -u old-kde.ui/src/kde.lisp new-kde.ui/src/kde.lisp
--- old-kde.ui/src/kde.lisp	2014-10-30 07:23:00.000000000 +0100
+++ new-kde.ui/src/kde.lisp	2014-10-30 07:23:00.000000000 +0100
@@ -34,9 +34,5 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (disable-dr-konqi))
 
-
-(defun new (class-name method-name &rest args)
-   (apply #'new-object (smoke::binding *kde-smoke*) class-name method-name args))
-
 (defun static-call (class-name method-name &rest args)
    (apply #'smoke::static-call *kde-smoke* class-name method-name args))
diff -rN -u old-kde.ui/src/package.lisp new-kde.ui/src/package.lisp
--- old-kde.ui/src/package.lisp	2014-10-30 07:23:00.000000000 +0100
+++ new-kde.ui/src/package.lisp	2014-10-30 07:23:00.000000000 +0100
@@ -1,10 +1,6 @@
 (defpackage :kde
   (:use :cl :smoke :cffi :cxx-support)
-  (:export #:new
-           #:call
-           #:static-call
-
-           #:make-aboutdata
+  (:export #:make-aboutdata
            #:make-standard-action
            #:init-app
            #:with-kde
diff -rN -u old-kde.ui/src/standard-action.lisp new-kde.ui/src/standard-action.lisp
--- old-kde.ui/src/standard-action.lisp	2014-10-30 07:23:00.000000000 +0100
+++ new-kde.ui/src/standard-action.lisp	2014-10-30 07:23:00.000000000 +0100
@@ -3,6 +3,7 @@
 (defun make-standard-action (action action-collection &optional slot)
   "Adds the standard-action ACTION to ACTION-COLLECTION and connects
 the \"triggered()\" signal to SLOT when specified."
+  ;; FIXME make overload resolution for standard-action.create work
   (let ((std-action (static-call "KStandardAction" "create$#$#" action
                                  (null-pointer)
                                  (null-pointer)