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

Diff of /mcclim/medium.lisp

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

revision 1.16 by rouanet, Thu Aug 23 11:25:33 2001 UTC revision 1.17 by strandh, Fri Aug 24 10:49:51 2001 UTC
# Line 49  Line 49 
49     (device-region :type region     (device-region :type region
50                    :initform nil                    :initform nil
51                    :accessor medium-device-region)                    :accessor medium-device-region)
52     ;; always use this slot through its accessor, since ther may     ;; always use this slot through its accessor, since there may
53     ;; be an :after method on it     ;; be secondary methods on it -RS 2001-08-23
54     (line-style :initarg :line-style     (line-style :initarg :line-style
55                 :initform (make-line-style)                 :initform (make-line-style)
56                 :accessor medium-line-style)                 :accessor medium-line-style)
57     ;; always use this slot through its accessor, since ther may     ;; always use this slot through its accessor, since there may
58     ;; be an :after method on it     ;; be secondary methods on it -RS 2001-08-23
59     (text-style :initarg :text-style     (text-style :initarg :text-style
60                 :initform (make-text-style :fix :roman :normal)                 :initform (make-text-style :fix :roman :normal)
61                 :accessor medium-text-style)                 :accessor medium-text-style)

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

  ViewVC Help
Powered by ViewVC 1.1.5