Sun May 24 23:29:37 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cleanup: remove static-call
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:31.000000000 +0100
+++ new-kde.ui/src/kde.lisp 2014-10-30 06:57:31.000000000 +0100
@@ -33,6 +33,3 @@
(eval-when (:load-toplevel :compile-toplevel :execute)
(disable-dr-konqi))
-
-(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/standard-action.lisp new-kde.ui/src/standard-action.lisp
--- old-kde.ui/src/standard-action.lisp 2014-10-30 06:57:31.000000000 +0100
+++ new-kde.ui/src/standard-action.lisp 2014-10-30 06:57:31.000000000 +0100
@@ -3,8 +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
+ (let ((std-action (standard-action.create action
(null-pointer)
(null-pointer)
action-collection)))