[mcclim-cvs] CVS mcclim

[thenriksen]

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]