[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	input-editing-drei.lisp input-editing.lisp 
Log Message:
Fixed some random input-editor bugs.


--- /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp	2008/02/01 20:28:46	1.12
+++ /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp	2008/02/04 19:06:17	1.13
@@ -135,7 +135,7 @@
                                          :input-sensitizer input-sensitizer
                                          :initial-contents initial-contents
                                          :class class)
-                      (funcall continuation editing-stream))
+                      (input-editing-rescan-loop editing-stream continuation))
       (finalize editing-stream input-sensitizer))))
 
 (defmethod immediate-rescan ((stream standard-input-editing-stream))
--- /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/03 12:11:13	1.71
+++ /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/04 19:06:17	1.72
@@ -336,9 +336,9 @@
     (loop (block rescan
             (handler-bind ((rescan-condition
                             #'(lambda (c)
+                                (declare (ignore c))
                                 (reset-scan-pointer editing-stream start-scan-pointer)
                                 ;; Input-editing contexts above may be interested...
-                                (signal c)
                                 (return-from rescan nil))))
               (return-from input-editing-rescan-loop
                 (funcall continuation editing-stream)))))))
@@ -372,7 +372,7 @@
                                     (first initial-contents)
                                     (second initial-contents)
                                     (stream-default-view stream))))
-  (input-editing-rescan-loop stream continuation))
+  (call-next-method))
 
 (defmethod invoke-with-input-editing :around ((stream extended-output-stream)
 					      continuation