/[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.7 by thenriksen, Wed Jan 30 15:58:14 2008 UTC revision 1.8 by thenriksen, Wed Jan 30 17:08:01 2008 UTC
# Line 109  activated with GESTURE")) Line 109  activated with GESTURE"))
109    (setf (cursor-visibility stream) nil)    (setf (cursor-visibility stream) nil)
110    (let ((real-stream (encapsulating-stream-stream stream))    (let ((real-stream (encapsulating-stream-stream stream))
111          (record (drei:drei-instance stream)))          (record (drei:drei-instance stream)))
112      (when input-sensitizer      (cond (input-sensitizer
113        (erase-output-record record real-stream)             (erase-output-record record real-stream)
114        (funcall input-sensitizer             (funcall input-sensitizer
115                 real-stream                      real-stream
116                 #'(lambda ()                      #'(lambda ()
117                     (stream-add-output-record real-stream record)                          (stream-add-output-record real-stream record)
118                     (when (stream-drawing-p real-stream)                          (when (stream-drawing-p real-stream)
119                       (replay record real-stream)))))                            (replay record real-stream)))))
120              ;; We still want to replay it for the cursor visibility
121              ;; change...
122              ((stream-drawing-p real-stream)
123               (replay record real-stream) ))
124      (setf (stream-cursor-position real-stream)      (setf (stream-cursor-position real-stream)
125            (values 0 (nth-value 3 (input-editing-stream-bounding-rectangle stream))))))            (values 0 (nth-value 3 (input-editing-stream-bounding-rectangle stream))))))
126    

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

  ViewVC Help
Powered by ViewVC 1.1.5