Sun May 24 23:29:37 CEST 2009 Tobias Rautenkranz * 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 07:22:54.000000000 +0100 +++ new-kde.ui/src/kde.lisp 2014-10-30 07:22:54.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 07:22:54.000000000 +0100 +++ new-kde.ui/src/standard-action.lisp 2014-10-30 07:22:54.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)))