Fix missing static-call function.
Fri May 15 18:09:40 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix missing static-call function.
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:34.000000000 +0100
+++ new-kde.ui/src/kde.lisp 2014-10-30 06:57:34.000000000 +0100
@@ -33,3 +33,10 @@
(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))