[mcclim-cvs] CVS mcclim/Goatee

[thenriksen]

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

Modified Files:
	editing-stream.lisp 
Log Message:
When Goatee's insertion-pointer is set, actually move point.


--- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp	2006/11/22 14:15:52	1.22
+++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp	2006/11/22 14:23:22	1.23
@@ -263,6 +263,9 @@
     (setf (point* buffer) (location*-offset buffer pointer))
     (redisplay-area area)))
 
+(defmethod (setf stream-insertion-pointer) :after
+    ((new-value integer) (stream goatee-input-editing-mixin))
+  (set-editing-stream-insertion-pointer stream new-value))
 
 (defun %replace-input (stream new-input start end buffer-start
 		       rescan rescan-supplied-p