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

Diff of /mcclim/recording.lisp

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

revision 1.37 by strandh, Sun Apr 28 05:13:57 2002 UTC revision 1.38 by gilbert, Sun Apr 28 11:17:07 2002 UTC
# Line 675  recording stream. If it is T, *STANDARD- Line 675  recording stream. If it is T, *STANDARD-
675    (with-output-recording-options (stream :record nil)    (with-output-recording-options (stream :record nil)
676      (call-next-method)))      (call-next-method)))
677    
678  (defmethod repaint-sheet ((stream output-recording-stream) region)  (defmethod handle-repaint ((stream output-recording-stream) region)
679    (stream-replay stream region))    (stream-replay stream region))
680    
 (defmethod handle-event ((stream output-recording-stream) (event window-repaint-event))  
   (repaint-sheet stream (window-event-region event)))  
   
681  #|  #|
682  (defmethod handle-event :after ((stream output-recording-stream) (event pointer-button-press-event))  (defmethod handle-event :after ((stream output-recording-stream) (event pointer-button-press-event))
683    (highlight-output-record (stream-current-output-record stream) stream :highlight))    (highlight-output-record (stream-current-output-record stream) stream :highlight))

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5