Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv663

Modified Files: stream-output.lisp package.lisp decls.lisp Log Message: Made `stream-set-cursor-position' a generic function and exported it, as seen in CLIM 2.2.

--- /project/mcclim/cvsroot/mcclim/stream-output.lisp 2006/05/05 10:24:02 1.60 +++ /project/mcclim/cvsroot/mcclim/stream-output.lisp 2006/12/10 23:35:12 1.61 @@ -223,7 +223,7 @@ (defmethod* (setf stream-cursor-position) (x y (stream standard-extended-output-stream)) (setf (cursor-position (stream-text-cursor stream)) (values x y)))

-(defun stream-set-cursor-position (stream x y) +(defmethod stream-set-cursor-position ((stream standard-extended-output-stream) x y) (setf (stream-cursor-position stream) (values x y)))

(defmethod stream-increment-cursor-position ((stream standard-extended-output-stream) dx dy) --- /project/mcclim/cvsroot/mcclim/package.lisp 2006/06/29 08:16:02 1.55 +++ /project/mcclim/cvsroot/mcclim/package.lisp 2006/12/10 23:35:12 1.56 @@ -353,6 +353,8 @@ ;; this list of exported symbols was automatically generated from the ;; specification as of version 1.17 of this very file, please think twice ;; before fiddling with it. thanks! --gb 2002-11-10 + ;; A good reason for fiddling with with it is to add symbols from + ;; CLIM 2.2. --thenriksen 2006-12-11

#:*abort-gestures* ;variable #:*accelerator-gestures* ;variable @@ -1417,6 +1419,7 @@ #:stream-replay ;generic function #:stream-rescanning-p ;generic function #:stream-scan-pointer ;generic function + #:stream-set-cursor-position ;generic function #:stream-set-input-focus ;generic function #:stream-start-line-p ;generic function #:stream-start-line-p ;generic function --- /project/mcclim/cvsroot/mcclim/decls.lisp 2006/12/04 22:31:19 1.42 +++ /project/mcclim/cvsroot/mcclim/decls.lisp 2006/12/10 23:35:12 1.43 @@ -429,6 +429,7 @@ (defgeneric (setf stream-text-cursor) (cursor stream)) (defgeneric stream-cursor-position (stream)) ;; (defgeneric (setf* stream-cursor-position) (x y stream)) unsure how to declare this, can somebody help? --GB +(defgeneric stream-set-cusor-position (stream x y)) ; This is actually in 19.3.1 in CLIM 2.2 (defgeneric stream-increment-cursor-position (stream dx dy))

;;; 15.4 Text Protocol [complete]