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

Diff of /mcclim/sheets.lisp

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

revision 1.16 by boninfan, Mon Jul 23 13:57:07 2001 UTC revision 1.17 by rouanet, Thu Aug 9 16:45:05 2001 UTC
# Line 638  sheet-supports-only-one-child error to b Line 638  sheet-supports-only-one-child error to b
638    
639  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
640  ;;;  ;;;
641  ;;; standard repaint mixin  ;;; standard repainting mixin
642    
643  (defclass standard-repaint-mixin () ())  (defclass standard-repainting-mixin () ())
644    
645  (defmethod dispatch-repaint ((sheet standard-repaint-mixin) region)  (defmethod dispatch-repaint ((sheet standard-repainting-mixin) region)
646    (queue-repaint sheet region))    (queue-repaint sheet region))
647    
648  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
649  ;;;  ;;;
650  ;;; immediate repaint mixin  ;;; immediate repainting mixin
651    
652  (defclass immediate-repaint-mixin () ())  (defclass immediate-repainting-mixin () ())
653    
654  (defmethod dispatch-repaint ((sheet immediate-repaint-mixin) region)  (defmethod dispatch-repaint ((sheet immediate-repainting-mixin) region)
655    (handle-repaint sheet nil region))    (handle-repaint sheet nil region))
656    
657  (defmethod handle-repaint ((sheet immediate-repaint-mixin) medium region)  (defmethod handle-repaint ((sheet immediate-repainting-mixin) medium region)
658    (declare (ignore medium region))    (declare (ignore medium region))
659    (repaint-sheet sheet (sheet-region sheet))    (repaint-sheet sheet (sheet-region sheet))
660    (loop for child in (sheet-children sheet)    (loop for child in (sheet-children sheet)
# Line 663  sheet-supports-only-one-child error to b Line 663  sheet-supports-only-one-child error to b
663    
664  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
665  ;;;  ;;;
666  ;;; mute repaint mixin  ;;; sheet mute repainting mixin
667    
668  (defclass mute-repaint-mixin () ())  (defclass sheet-mute-repainting-mixin () ())
669    
670  (defmethod dispatch-repaint ((sheet mute-repaint-mixin) region)  (defmethod dispatch-repaint ((sheet sheet-mute-repainting-mixin) region)
671    (handle-repaint sheet nil region))    (handle-repaint sheet nil region))
672    
673  (defmethod repaint-sheet ((sheet mute-repaint-mixin) region)  (defmethod repaint-sheet ((sheet sheet-mute-repainting-mixin) region)
674    (declare (ignorable sheet region))    (declare (ignorable sheet region))
675    (format *debug-io* "repaint ~S~%" sheet)    (format *debug-io* "repaint ~S~%" sheet)
676    (values))    (values))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5