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

Diff of /mcclim/recording.lisp

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

revision 1.119 by crhodes, Sat Aug 13 14:28:19 2005 UTC revision 1.120 by gbaumann, Thu Dec 1 11:10:55 2005 UTC
# Line 374  unspecified. ")) Line 374  unspecified. "))
374    (setq stream (stream-designator-symbol stream '*standard-output*))    (setq stream (stream-designator-symbol stream '*standard-output*))
375    (with-gensyms (continuation)    (with-gensyms (continuation)
376      `(flet ((,continuation  (,stream)      `(flet ((,continuation  (,stream)
377                (declare (ignorable ,stream))                ,(declare-ignorable-form* stream)
378                ,@body))                ,@body))
379         (declare (dynamic-extent #',continuation))         (declare (dynamic-extent #',continuation))
380         (invoke-with-output-recording-options         (invoke-with-output-recording-options
# Line 400  unspecified. ")) Line 400  unspecified. "))
400              (flet ((,constructor ()              (flet ((,constructor ()
401                       (make-instance ,record-type ,@m-i-args))                       (make-instance ,record-type ,@m-i-args))
402                     (,continuation (,stream ,record)                     (,continuation (,stream ,record)
403                       (declare (ignorable ,stream ,record))                       ,(declare-ignorable-form* stream record)
404                       ,@body))                       ,@body))
405                (declare (dynamic-extent #'constructor #'continuation))                (declare (dynamic-extent #'constructor #'continuation))
406                (,',func-name ,stream #',continuation ,record-type #',constructor                (,',func-name ,stream #',continuation ,record-type #',constructor
# Line 444  recording stream. If it is T, *STANDARD- Line 444  recording stream. If it is T, *STANDARD-
444    
445  (defmethod initialize-instance :after ((record basic-output-record)  (defmethod initialize-instance :after ((record basic-output-record)
446                                         &key (x-position 0.0d0)                                         &key (x-position 0.0d0)
447                                         (y-position 0.0d0))                                              (y-position 0.0d0))
   (declare (ignore args))  
448    (setf (rectangle-edges* record)    (setf (rectangle-edges* record)
449          (values x-position y-position x-position y-position)))          (values x-position y-position x-position y-position)))
450    
# Line 1267  were added." Line 1266  were added."
1266                    ,class-vars)                    ,class-vars)
1267                  (defmethod initialize-instance :after ((graphic ,class-name)                  (defmethod initialize-instance :after ((graphic ,class-name)
1268                                                         &key)                                                         &key)
                   (declare (ignore args))  
1269                    (with-slots (stream ink clipping-region                    (with-slots (stream ink clipping-region
1270                                 line-style text-style ,@args)                                 line-style text-style ,@args)
1271                        graphic                        graphic

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

  ViewVC Help
Powered by ViewVC 1.1.5