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

Diff of /mcclim/sheets.lisp

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

revision 1.9 by cvs, Mon Sep 4 07:26:48 2000 UTC revision 1.10 by cvs, Tue Sep 5 11:34:59 2000 UTC
# Line 386  sheet-supports-only-one-child error to b Line 386  sheet-supports-only-one-child error to b
386  (defmethod map-sheet-rectangle*-to-child ((sheet sheet-parent-mixin) x1 y1 x2 y2)  (defmethod map-sheet-rectangle*-to-child ((sheet sheet-parent-mixin) x1 y1 x2 y2)
387    (transform-rectangle* (invert-transformation (sheet-transformation sheet)) x1 y1 x2 y2))    (transform-rectangle* (invert-transformation (sheet-transformation sheet)) x1 y1 x2 y2))
388    
 (defmethod raise-sheet ((sheet sheet-parent-mixin))  
   (when (not (sheet-parent sheet))  
     (error 'sheet-is-not-child))  
   (raise-sheet-internal sheet (sheet-parent sheet)))  
   
 (defmethod bury-sheet ((sheet sheet-parent-mixin))  
   (when (not (sheet-parent sheet))  
     (error 'sheet-is-not-child))  
   (bury-sheet-internal sheet (sheet-parent sheet)))  
   
   
389  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
390  ;;;  ;;;
391  ;;; sheet leaf mixin  ;;; sheet leaf mixin
# Line 608  sheet-supports-only-one-child error to b Line 597  sheet-supports-only-one-child error to b
597  (defmethod dispatch-repaint ((sheet mute-repaint-mixin) region)  (defmethod dispatch-repaint ((sheet mute-repaint-mixin) region)
598    (handle-repaint sheet nil region))    (handle-repaint sheet nil region))
599    
 (defmethod dispatch-repaint ((sheet standard-repaint-mixin) region)  
   (queue-repaint sheet region))  
   
600  (defmethod repaint-sheet ((sheet mute-repaint-mixin) region)  (defmethod repaint-sheet ((sheet mute-repaint-mixin) region)
601    (declare (ignorable sheet region))    (declare (ignorable sheet region))
602    (values))    (values))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5