/[mcclim]/mcclim/input-editing-drei.lisp
ViewVC logotype

Diff of /mcclim/input-editing-drei.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by thenriksen, Wed Jan 30 17:08:01 2008 UTC revision 1.9 by thenriksen, Wed Jan 30 21:21:43 2008 UTC
# Line 154  activated with GESTURE")) Line 154  activated with GESTURE"))
154                                        initial-contents                                        initial-contents
155                                        class)                                        class)
156    (let ((editing-stream (make-instance class    (let ((editing-stream (make-instance class
157                                         :stream stream                           :stream stream)))
158                                         :initial-contents initial-contents)))      (if (stringp initial-contents)
159            (replace-input editing-stream initial-contents)
160            (presentation-replace-input editing-stream
161                                        (first initial-contents)
162                                        (second initial-contents)
163                                        (stream-default-view editing-stream)))
164      (unwind-protect      (unwind-protect
165           (loop           (loop
166              (block rescan            (block rescan
167                (handler-bind ((rescan-condition              (handler-bind ((rescan-condition
168                                #'(lambda (c)                              #'(lambda (c)
169                                    (declare (ignore c))                                  (declare (ignore c))
170                                    (reset-scan-pointer editing-stream)                                  (reset-scan-pointer editing-stream)
171                                    (return-from rescan nil))))                                  (return-from rescan nil))))
172                  (return-from invoke-with-input-editing                (return-from invoke-with-input-editing
173                    (funcall continuation editing-stream)))))                  (funcall continuation editing-stream)))))
174        (finalize editing-stream input-sensitizer))))        (finalize editing-stream input-sensitizer))))
175    
176  (defmethod immediate-rescan ((stream standard-input-editing-stream))  (defmethod immediate-rescan ((stream standard-input-editing-stream))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5