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

Diff of /mcclim/medium.lisp

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

revision 1.12 by boninfan, Wed Jul 25 13:44:36 2001 UTC revision 1.13 by rouanet, Thu Aug 9 17:01:12 2001 UTC
# Line 67  Line 67 
67    (typep x 'medium))    (typep x 'medium))
68    
69  (defmethod initialize-instance :after ((medium medium) &rest args)  (defmethod initialize-instance :after ((medium medium) &rest args)
70      (declare (ignore args))
71    ;; Initial CLIPPING-REGION is in coordinates, given by initial    ;; Initial CLIPPING-REGION is in coordinates, given by initial
72    ;; TRANSFORMATION, but we store it in SHEET's coords.    ;; TRANSFORMATION, but we store it in SHEET's coords.
73    (setf (medium-clipping-region medium)    (setf (medium-clipping-region medium)
# Line 537  Line 538 
538                      start end                      start end
539                      align-x align-y                      align-x align-y
540                      toward-x toward-y transform-glyphs))                      toward-x toward-y transform-glyphs))
541    
542    
543    ;;; Other Medium-specific Output Functions
544    
545    (defmethod medium-finish-output ((medium basic-medium))
546      nil)
547    
548    (defmethod medium-force-output ((medium basic-medium))
549      nil)
550    
551    (defmethod medium-clear-area ((medium basic-medium) left top right bottom)
552      (draw-rectangle* medium left top right bottom :ink +background-ink+))
553    
554    (defmethod medium-beep ((medium basic-medium))
555      nil)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5