Wed May 27 14:26:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* cleanup
diff -rN -u old-qt.gui/src/signal-slot/signal.lisp new-qt.gui/src/signal-slot/signal.lisp
--- old-qt.gui/src/signal-slot/signal.lisp 2014-09-27 15:14:43.000000000 +0200
+++ new-qt.gui/src/signal-slot/signal.lisp 2014-09-27 15:14:44.000000000 +0200
@@ -103,16 +103,6 @@
"Failed to disconnect ~S to the slot ~S of ~S."
qsignal slot receiver))))
-(defmethod smoke::push-lisp-object (stack object class)
- (let ((cxx-object (make-cxx-lisp-object object)))
- (smoke::push-cleanup stack
-
- #'(lambda ()
- (qt-smoke-free-lisp-object cxx-object)))
- (smoke::push-stack2 stack
- cxx-object
- 0)))
-
(defun make-lisp-object (object)
(smoke::make-cleanup-pointer (make-cxx-lisp-object object)
#'qt-smoke-free-lisp-object))
diff -rN -u old-qt.gui/src/signal-slot/slot.lisp new-qt.gui/src/signal-slot/slot.lisp
--- old-qt.gui/src/signal-slot/slot.lisp 2014-09-27 15:14:43.000000000 +0200
+++ new-qt.gui/src/signal-slot/slot.lisp 2014-09-27 15:14:44.000000000 +0200
@@ -27,15 +27,6 @@
"Returns the sender that invoked the slot."
`*sender*)
-(defun method-argument-count (metaobject index)
- "Returns the number of arguments for the method INDEX of METAOBJECT."
- (let ((signature (cxx:signature (cxx:method metaobject index))))
- (setf signature (subseq signature (1+ (position #\( signature))
- (position #\) signature :from-end t)))
- (if (= 0 (length signature))
- 0
- (1+ (count #\, signature)))))
-
(defmethod cxx:qt-metacall ((slot qslot) call id arguments)
"Invoke the slots function when it is called. The return value
of the invoked slot function is ignored."
diff -rN -u old-qt.gui/src/signal-slot/translate.lisp new-qt.gui/src/signal-slot/translate.lisp
--- old-qt.gui/src/signal-slot/translate.lisp 2014-09-27 15:14:43.000000000 +0200
+++ new-qt.gui/src/signal-slot/translate.lisp 2014-09-27 15:14:44.000000000 +0200
@@ -1,14 +1,5 @@
(in-package :qt)
-(defun method-argument-count (metaobject index)
- "Returns the number of arguments the method INDEX of METAOBJECT."
- (let ((signature (cxx:signature (cxx:method metaobject index))))
- (setf signature (subseq signature (1+ (position #\( signature))
- (position #\) signature :from-end t)))
- (if (= 0 (length signature))
- 0
- (1+ (count #\, signature)))))
-
(defun find-type (name &optional start end)
(smoke::make-smoke-type *qt-smoke* (subseq name start end)))