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

Diff of /mcclim/recording.lisp

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

revision 1.123 by afuchs, Thu Mar 9 10:44:28 2006 UTC revision 1.124 by tmoore, Fri Mar 10 21:58:13 2006 UTC
# Line 69  Line 69 
69    
70  (in-package :clim-internals)  (in-package :clim-internals)
71    
 (define-protocol-class output-record (bounding-rectangle)  
   ())  
   
 (define-protocol-class displayed-output-record (output-record)  
   ())  
   
72  ;;; 16.2.1. The Basic Output Record Protocol  ;;; 16.2.1. The Basic Output Record Protocol
73  #+:cmu(declaim (ftype (function (output-record) (values rational rational))  #+:cmu(declaim (ftype (function (output-record) (values rational rational))
74                        output-record-position))                        output-record-position))
# Line 203  unspecified. ")) Line 197  unspecified. "))
197  (defgeneric tree-recompute-extent (record))  (defgeneric tree-recompute-extent (record))
198    
199  ;;; 16.3. Types of Output Records  ;;; 16.3. Types of Output Records
 (define-protocol-class graphics-displayed-output-record  
     (displayed-output-record)  
   ())  
200    
 (define-protocol-class text-displayed-output-record (displayed-output-record)  
   ())  
201    
202  ;;; 16.3.3. Text Displayed Output Record  ;;; 16.3.3. Text Displayed Output Record
203  (defgeneric add-character-output-to-text-record  (defgeneric add-character-output-to-text-record
# Line 220  unspecified. ")) Line 209  unspecified. "))
209  (defgeneric text-displayed-output-record-string (text-record))  (defgeneric text-displayed-output-record-string (text-record))
210    
211  ;;; 16.4. Output Recording Streams  ;;; 16.4. Output Recording Streams
 (define-protocol-class output-recording-stream ()  
   ())  
212    
213  ;;; 16.4.1. The Output Recording Stream Protocol  ;;; 16.4.1. The Output Recording Stream Protocol
214  (defgeneric stream-recording-p (stream))  (defgeneric stream-recording-p (stream))

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

  ViewVC Help
Powered by ViewVC 1.1.5