/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

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

revision 1.23 by rouanet, Mon Jul 30 14:08:41 2001 UTC revision 1.24 by adejneka, Tue Jul 31 04:49:52 2001 UTC
# Line 147  upper-left corner of the stream.")) Line 147  upper-left corner of the stream."))
147     "Returns the output record that is the parent of RECORD, or nil if     "Returns the output record that is the parent of RECORD, or nil if
148  RECORD has no parent."))  RECORD has no parent."))
149    
 (defgeneric replay (record stream &optional region)  
   (:documentation ""))  
   
150  (defgeneric replay-output-record (record stream  (defgeneric replay-output-record (record stream
151                                    &optional region x-offset y-offset)                                    &optional region x-offset y-offset)
152    (:documentation "Displays the output captured by RECORD on the    (:documentation "Displays the output captured by RECORD on the
# Line 246  Only those records that overlap REGION a Line 243  Only those records that overlap REGION a
243    (declare (ignore x y))    (declare (ignore x y))
244    nil)    nil)
245    
246  (defmethod replay (record stream &optional region)  (defun replay (record stream &optional region)
247    (stream-close-text-output-record stream)    (stream-close-text-output-record stream)
248    (when (stream-drawing-p stream)    (when (stream-drawing-p stream)
249      (with-cursor-off stream      (with-cursor-off stream

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5