/[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.6 by hefner1, Thu May 1 08:29:33 2003 UTC revision 1.7 by gilbert, Wed May 28 18:46:02 2003 UTC
# Line 45  Line 45 
45      (let ((record (with-new-output-record (stream)      (let ((record (with-new-output-record (stream)
46                      (funcall cont stream))))                      (funcall cont stream))))
47        (with-bounding-rectangle* (left top right bottom) record        (with-bounding-rectangle* (left top right bottom) record
48          (letf (((medium-transformation medium) +identity-transformation+))          (with-identity-transformation (medium)
49            (funcall (gethash shape *border-types*)            (funcall (or (gethash shape *border-types*)
50                           (error "Border shape ~S not defined." shape))
51                     :stream stream                     :stream stream
52                     :record record                     :record record
53                     :left left :top top                     :left left :top top

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

  ViewVC Help
Powered by ViewVC 1.1.5