/[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.11 by moore, Thu Nov 13 22:54:07 2003 UTC revision 1.12 by moore, Wed Oct 6 12:03:56 2004 UTC
# Line 29  Line 29 
29                                             &key (shape :rectangle) (move-cursor t))                                             &key (shape :rectangle) (move-cursor t))
30                                            &body body)                                            &body body)
31    (declare (ignore shape move-cursor))    (declare (ignore shape move-cursor))
32    (setf stream (stream-designator-symbol stream))    (setf stream (stream-designator-symbol stream '*standard-output*))
33    (gen-invoke-trampoline 'invoke-surrounding-output-with-border    (gen-invoke-trampoline 'invoke-surrounding-output-with-border
34                           (list stream)                           (list stream)
35                           drawing-options                           drawing-options

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

  ViewVC Help
Powered by ViewVC 1.1.5