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

Diff of /mcclim/recording.lisp

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

revision 1.133 by dlichteblau, Sun Jul 15 12:38:37 2007 UTC revision 1.134 by rstrandh, Wed Jul 18 16:31:27 2007 UTC
# Line 1083  were added." Line 1083  were added."
1083    
1084  (defmethod replay-output-record :around  (defmethod replay-output-record :around
1085      ((record gs-ink-mixin) stream &optional region x-offset y-offset)      ((record gs-ink-mixin) stream &optional region x-offset y-offset)
1086      (declare (ignore region x-offset y-offset))
1087    (with-drawing-options (stream :ink (graphics-state-ink record))    (with-drawing-options (stream :ink (graphics-state-ink record))
1088      (call-next-method)))      (call-next-method)))
1089    
# Line 1111  were added." Line 1112  were added."
1112    
1113  (defmethod replay-output-record :around  (defmethod replay-output-record :around
1114      ((record gs-clip-mixin) stream &optional region x-offset y-offset)      ((record gs-clip-mixin) stream &optional region x-offset y-offset)
1115      (declare (ignore region x-offset y-offset))
1116    (with-drawing-options (stream :clipping-region (graphics-state-clip record))    (with-drawing-options (stream :clipping-region (graphics-state-clip record))
1117      (call-next-method)))      (call-next-method)))
1118    
# Line 1140  were added." Line 1142  were added."
1142    
1143  (defmethod replay-output-record :around  (defmethod replay-output-record :around
1144      ((record gs-line-style-mixin) stream &optional region x-offset y-offset)      ((record gs-line-style-mixin) stream &optional region x-offset y-offset)
1145      (declare (ignore region x-offset y-offset))
1146    (with-drawing-options (stream :line-style (graphics-state-line-style record))    (with-drawing-options (stream :line-style (graphics-state-line-style record))
1147      (call-next-method)))      (call-next-method)))
1148    
# Line 1166  were added." Line 1169  were added."
1169    
1170  (defmethod replay-output-record :around  (defmethod replay-output-record :around
1171      ((record gs-text-style-mixin) stream &optional region x-offset y-offset)      ((record gs-text-style-mixin) stream &optional region x-offset y-offset)
1172      (declare (ignore region x-offset y-offset))
1173    (with-drawing-options (stream :text-style (graphics-state-text-style record))    (with-drawing-options (stream :text-style (graphics-state-text-style record))
1174      (call-next-method)))      (call-next-method)))
1175    
# Line 1688  were added." Line 1692  were added."
1692                                          :text-style text-style)) )                                          :text-style text-style)) )
1693          (ascent (text-style-ascent text-style (sheet-medium stream)))          (ascent (text-style-ascent text-style (sheet-medium stream)))
1694          (descent (text-style-descent text-style (sheet-medium stream)))          (descent (text-style-descent text-style (sheet-medium stream)))
         (height (+ ascent descent))  
1695          (transform (medium-transformation medium)))          (transform (medium-transformation medium)))
1696     (setf (values point-x point-y)     (setf (values point-x point-y)
1697           (transform-position transform point-x point-y))           (transform-position transform point-x point-y))

Legend:
Removed from v.1.133  
changed lines
  Added in v.1.134

  ViewVC Help
Powered by ViewVC 1.1.5