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

Diff of /mcclim/medium.lisp

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

revision 1.40 by adejneka, Sat Jul 20 06:46:29 2002 UTC revision 1.41 by moore, Wed Jul 31 07:44:30 2002 UTC
# Line 265  Line 265 
265            (merge-text-styles text-style (medium-merged-text-style medium))))            (merge-text-styles text-style (medium-merged-text-style medium))))
266      (funcall continuation medium)))      (funcall continuation medium)))
267    
268    ;;; For compatibility with real CLIM, which apparently lets you call this
269    ;;; on non-CLIM streams.
270    
271    (defmethod invoke-with-text-style ((medium t) continuation text-style)
272      (declare (ignore text-style))
273      (funcall continuation medium))
274    
275  (defmacro with-text-family ((medium family) &body body)  (defmacro with-text-family ((medium family) &body body)
276    (declare (type symbol medium))    (declare (type symbol medium))
277    (when (eq medium t)    (when (eq medium t)

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5