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

Diff of /mcclim/decls.lisp

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

revision 1.17 by adejneka, Thu Jul 4 06:57:43 2002 UTC revision 1.18 by adejneka, Tue Jul 9 17:27:35 2002 UTC
# Line 240  rendered on MEDIUM with the style LINE-S Line 240  rendered on MEDIUM with the style LINE-S
240    
241  ;;;  ;;;
242    
 (defmacro with-special-choices ((sheet) &body body)  
   "Macro for optimizing drawing with graphical system dependant mechanisms."  
   (let ((fn (gensym "FN.")))  
     `(labels ((,fn (,sheet)  
                ,@body))  
       (declare (dynamic-extent #',fn))  
       (invoke-with-special-choices #',fn ,sheet))))  
   
 (defgeneric invoke-with-special-choices (continuation sheet))  
   
 ;; fall back, where to put this?  
   
 (defmethod invoke-with-special-choices (continuation (sheet T))  
   (funcall continuation sheet))  
   
 ;;;  
   
243  ;; Used in stream-input.lisp, defined in frames.lisp  ;; Used in stream-input.lisp, defined in frames.lisp
244  (defgeneric frame-event-queue (frame))  (defgeneric frame-event-queue (frame))
245    

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

  ViewVC Help
Powered by ViewVC 1.1.5