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

Diff of /mcclim/medium.lisp

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

revision 1.58 by crhodes, Fri Mar 10 10:56:01 2006 UTC revision 1.59 by tmoore, Fri Mar 10 21:58:13 2006 UTC
# Line 61  Line 61 
61    
62  (in-package :clim-internals)  (in-package :clim-internals)
63    
 ;; This must come early, because of implementation quirks:  
   
 (define-protocol-class medium ()  
   ())  
   
64  ;;;;  ;;;;
65  ;;;; 11 Text Styles  ;;;; 11 Text Styles
66  ;;;;  ;;;;
67    
68  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
69    
 (define-protocol-class text-style ()  
   ())  
   
70  (defgeneric text-style-components (text-style))  (defgeneric text-style-components (text-style))
71  (defgeneric text-style-family (text-style))  (defgeneric text-style-family (text-style))
72  (defgeneric text-style-face (text-style))  (defgeneric text-style-face (text-style))
# Line 447  Line 439 
439    
440  ;;; Line-Style class  ;;; Line-Style class
441    
 (define-protocol-class line-style ())  
   
442  (defgeneric line-style-equalp (arg1 arg2))  (defgeneric line-style-equalp (arg1 arg2))
443    
444  (defclass standard-line-style (line-style)  (defclass standard-line-style (line-style)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5