/[cmucl]/src/clx/text.lisp
ViewVC logotype

Diff of /src/clx/text.lisp

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

revision 1.6 by pw, Tue Mar 16 23:37:49 1999 UTC revision 1.7 by emarsden, Sun Jul 20 15:55:23 2003 UTC
# Line 260  Line 260 
260    
261  (defun text-extents-server (font string start end)  (defun text-extents-server (font string start end)
262    (declare (type font font)    (declare (type font font)
263             (type string string)             (type sequence string)
264             (type array-index start end))             (type array-index start end))
265    (declare (clx-values width ascent descent left right font-ascent font-descent direction))    (declare (clx-values width ascent descent left right font-ascent font-descent direction))
266    (let ((display (font-display font))    (let ((display (font-display font))
# Line 287  Line 287 
287    
288  (defun text-width-server (font string start end)  (defun text-width-server (font string start end)
289    (declare (type (or font gcontext) font)    (declare (type (or font gcontext) font)
290             (type string string)             (type sequence string)
291             (type array-index start end))             (type array-index start end))
292    (declare (clx-values integer))    (declare (clx-values integer))
293    (let ((display (font-display font))    (let ((display (font-display font))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5