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 06:57:32.000000000 +0100
+++ new-kde.ui/src/application.lisp 2014-10-30 06:57:32.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 06:57:32.000000000 +0100
+++ new-kde.ui/src/kde.lisp 2014-10-30 06:57:32.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 06:57:32.000000000 +0100
+++ new-kde.ui/src/package.lisp 2014-10-30 06:57:32.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 06:57:32.000000000 +0100
+++ new-kde.ui/src/standard-action.lisp 2014-10-30 06:57:32.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)