Sun Apr 12 15:12:20 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* get rid of &args for "defmethod cxx:"
hunk ./src/object.lisp 5
- (defmethod cxx:static-meta-object ((class (eql (find-class 'object))) &rest args)
+ (defmethod cxx:static-meta-object ((class (eql (find-class 'object))))
hunk ./src/object.lisp 7
- (declare (ignore args))
hunk ./src/object.lisp 8
- (defmethod cxx:static-meta-object ((class smoke::smoke-wrapper-class) &rest args)
- (declare (ignore args))
+ (defmethod cxx:static-meta-object ((class smoke::smoke-wrapper-class))
hunk ./src/object.lisp 116
-(defun cxx-gc ()
- "Delete the C++ object that have been queued for deletion when
-QT:CORE-APPLICATION.EXEC is run."
- (core-application.send-posted-events [_$_]
- (make-instance 'object :pointer (null-pointer))
-event.+deferred-delete+))
-
-
-;(defmethod upcast-object ((objeckt qobject))
-; (let ((class-name (cxx:classname (cxx:metaobject object))))
-; (if (string= class-name (name (get-class object)))
-; object
-; (let ((real-class (lispify class-name)))
-;;FIXME get smoke module from class name
-; (make-instance
-; :pointer upcast (object class))))))))
- [_$_]
- [_$_]
-;(defmethod upcast-object ((event qevent))
-; (case (cxx:type event)
-; (#.qevent.+childadded+
hunk ./src/qstring.lisp 46
- (defmethod cxx:data ((array byte-array) &rest args)
- (declare (ignore args))
+ (defmethod cxx:data ((array byte-array))
hunk ./src/signal-slot/slot.lisp 39
-(defmethod cxx::qt-metacall ((slot qslot) &rest args
- &aux (a (third args)))
+(defmethod cxx:qt-metacall ((slot qslot) call id arguments)
hunk ./src/signal-slot/slot.lisp 45
- (if (enum= (first args) meta-object.+invoke-meta-method+)
+ (if (enum= call meta-object.+invoke-meta-method+)
hunk ./src/signal-slot/slot.lisp 50
- (arguments-to-lisp a (arguments slot))))))
+ (arguments-to-lisp arguments (arguments slot))))))
hunk ./src/timer.lisp 4
- ((function :initarg :function)
- (timer-id))
+ ((function :initarg :function
+ :type function)
+ (timer-id :type integer))
hunk ./src/timer.lisp 13
-have been processed when TIMEOUT is 0."
+have been processed when TIMEOUT is 0. Equivalent to QTimer::singleShot,
+but calls a function instead of a slot."
hunk ./src/timer.lisp 27
-(defmethod cxx:timer-event ((timer single-shot-timer) &rest args)
- (declare (ignore args))
+(defmethod cxx:timer-event ((timer single-shot-timer) event)