/[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.16 by thenriksen, Mon Mar 12 17:36:52 2007 UTC revision 1.17 by ahefner, Tue Mar 20 01:41:17 2007 UTC
# Line 173  Line 173 
173    
174  (defmacro %%line-style-for-method ()  (defmacro %%line-style-for-method ()
175    `(or line-style    `(or line-style
176      (merge-line-styles      (let ((mls (medium-line-style stream)))
177       (make-line-style        (make-line-style
178        :unit      (or line-unit :point)         :unit      (or line-unit (line-style-unit mls))
179        :thickness (or line-thickness 1)         :thickness (or line-thickness (line-style-thickness mls))
180        :cap-shape (or line-cap-shape :butt)         :cap-shape (or line-cap-shape (line-style-cap-shape mls))
181        :dashes    line-dashes)         :dashes    (or line-dashes (line-style-dashes mls))))))
      (medium-line-style stream))))  
182    
183  (defmacro %%adjusting-for-padding (&body body)  (defmacro %%adjusting-for-padding (&body body)
184    `(let ((left   (- left   padding-left))    `(let ((left   (- left   padding-left))
# Line 201  Line 200 
200    ;; The Franz User guide implies that &key isn't needed.    ;; The Franz User guide implies that &key isn't needed.
201    (pushnew '&key arglist)    (pushnew '&key arglist)
202    `(progn    `(progn
203      (pushnew ,shape *border-types*)      (pushnew ',shape *border-types*)
204      (defmethod draw-output-border-over ((shape (eql ',shape)) stream record      (defmethod draw-output-border-over ((shape (eql ',shape)) stream record
205                                          &rest drawing-options)                                          &rest drawing-options)
206        (with-border-edges (stream record)        (with-border-edges (stream record)
# Line 675  Line 674 
674                                                      new-drawing-options)                                                      new-drawing-options)
675                     ;; Great, this again..                     ;; Great, this again..
676                     (queue-repaint stream                     (queue-repaint stream
677                       (make-instance 'window-repaint-event                        (make-instance 'window-repaint-event
678                                      :sheet stream                                      :sheet stream
679                                      :region (transform-region                                      :region (transform-region
680                                               (sheet-native-transformation stream)                                               (sheet-native-transformation stream)

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

  ViewVC Help
Powered by ViewVC 1.1.5