[mcclim-cvs] CVS mcclim
crhodes
crhodes at common-lisp.net
Wed May 3 09:39:06 UTC 2006
Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv24921
Modified Files:
incremental-redisplay.lisp
Log Message:
Delete definitely not needed method.
--- /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp 2006/05/03 09:33:08 1.61
+++ /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp 2006/05/03 09:39:06 1.62
@@ -434,12 +434,6 @@
(let ((state (end-graphics-state record)))
(setf (values (cursor-x state) (cursor-y state)) (values x y))))
-;;; XXX still needed?
-(defmethod add-output-record :after
- ((child updating-output-record-mixin) record)
- (declare (ignore record child)))
-
-
;;; Prevent deleted output records from coming back from the dead.
(defmethod delete-output-record :after ((child updating-output-record-mixin)
record
More information about the Mcclim-cvs
mailing list