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

Diff of /mcclim/ports.lisp

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

revision 1.13 by rouanet, Thu Aug 9 17:01:12 2001 UTC revision 1.14 by strandh, Thu Aug 23 05:33:33 2001 UTC
# Line 170  returns a list in CLIM X11 format (:x11 Line 170  returns a list in CLIM X11 format (:x11
170  (defmethod make-medium ((port port) sheet)  (defmethod make-medium ((port port) sheet)
171    (make-instance 'medium :port port :graft (graft sheet) :sheet sheet))    (make-instance 'medium :port port :graft (graft sheet) :sheet sheet))
172    
173  (defmethod line-height ((port port) text-style)  (defmethod port-line-height ((port port) text-style)
174    (declare (ignore text-style))    (declare (ignore text-style))
175    (error "LINE-HEIGHT fell thru to a generic PORT"))    (error "LINE-HEIGHT fell thru to a generic PORT"))
176    
177  (defmethod character-width ((port port) char text-style)  (defmethod port-character-width ((port port) text-style char)
178    (declare (ignore char text-style))    (declare (ignore text-style char))
179    (error "CHARACTER-WIDTH fell thru to a generic PORT"))    (error "PORT-CHARACTER-WIDTH fell thru to a generic PORT"))
180    
181  (defmethod port-copy-area ((port port) sheet from-x from-y width height to-x to-y)  (defmethod port-copy-area ((port port) sheet from-x from-y width height to-x to-y)
182    (declare (ignore sheet from-x from-y width height to-x to-y))    (declare (ignore sheet from-x from-y width height to-x to-y))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5