/[mcclim]/mcclim/bordered-output.lisp
ViewVC logotype

Diff of /mcclim/bordered-output.lisp

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

revision 1.7 by gilbert, Wed May 28 18:46:02 2003 UTC revision 1.8 by gilbert, Sun Jun 8 02:55:52 2003 UTC
# Line 30  Line 30 
30                                             &key (shape :rectangle) (move-cursor t))                                             &key (shape :rectangle) (move-cursor t))
31                                            &body body)                                            &body body)
32    (declare (ignore shape move-cursor))    (declare (ignore shape move-cursor))
33    (orf stream '*standard-output*)    (setf stream (stream-designator-symbol stream))
34    (check-type stream symbol)    (gen-invoke-trampoline 'invoke-surrounding-output-with-border
35    (let ((continuation-name (gensym)))                           (list stream)
36      `(flet ((,continuation-name (,stream) ,@body))                           drawing-options
37         (invoke-surrounding-output-with-border ,stream                           body))
                                               #',continuation-name  
                                               ,@drawing-options))))  
38    
39  (defun invoke-surrounding-output-with-border (stream cont  (defun invoke-surrounding-output-with-border (stream cont
40                                                &rest drawing-options                                                &rest drawing-options

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5