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

Diff of /mcclim/medium.lisp

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

revision 1.4 by cvs, Mon Sep 11 06:58:33 2000 UTC revision 1.5 by cvs, Mon Sep 11 09:53:32 2000 UTC
# Line 115  Line 115 
115  (defun family-key (family)  (defun family-key (family)
116    (ecase family    (ecase family
117      ((nil) 0)      ((nil) 0)
118      ((:fix) 1)      ((:fix :fixed) 1)
119      ((:serif) 2)      ((:serif) 2)
120      ((:sans-serif) 3)))      ((:sans-serif) 3)))
121    
# Line 126  Line 126 
126          ((nil) 0)          ((nil) 0)
127          ((:roman) 1)          ((:roman) 1)
128          ((:bold) 2)          ((:bold) 2)
129          ((:italic 3)))))          ((:italic) 3))))
130    
131  (defun size-key (size)  (defun size-key (size)
132    (if (numberp size)    (if (numberp size)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5