/[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.3 by ram, Tue Aug 11 15:17:34 1992 UTC revision 1.3.2.1 by pw, Tue Jun 23 11:21:28 1998 UTC
# Line 154  Line 154 
154          (declare (type buffer-text16 wbuf)          (declare (type buffer-text16 wbuf)
155                   (type array-index src-start src-end end buf-end)                   (type array-index src-start src-end end buf-end)
156                   (type int16 font-ascent font-descent)                   (type int16 font-ascent font-descent)
157                   (type boolean stop-p))                   (type generalized-boolean stop-p))
158          ;; Translate the text          ;; Translate the text
159          (multiple-value-setq (buf-end new-font)          (multiple-value-setq (buf-end new-font)
160            (funcall (or translate #'translate-default)            (funcall (or translate #'translate-default)
# Line 246  Line 246 
246                (setq next-start src-start)))                (setq next-start src-start)))
247          (declare (type buffer-text16 wbuf)          (declare (type buffer-text16 wbuf)
248                   (type array-index src-start src-end end buf-end)                   (type array-index src-start src-end end buf-end)
249                   (type boolean stop-p))                   (type generalized-boolean stop-p))
250          ;; Translate the text          ;; Translate the text
251          (multiple-value-setq (buf-end new-font)          (multiple-value-setq (buf-end new-font)
252            (funcall (or translate #'translate-default)            (funcall (or translate #'translate-default)
# Line 313  Line 313 
313    (declare (type font font)    (declare (type font font)
314             (type sequence sequence)             (type sequence sequence)
315             (type integer start end)             (type integer start end)
316             (type boolean width-only-p))             (type generalized-boolean width-only-p))
317    (declare (clx-values width ascent descent overall-left overall-right))    (declare (clx-values width ascent descent overall-left overall-right))
318    (let* ((char-infos (font-char-infos font))    (let* ((char-infos (font-char-infos font))
319           (font-info (font-font-info font)))           (font-info (font-font-info font)))
# Line 465  Line 465 
465             (dynamic-extent translate)             (dynamic-extent translate)
466             #+(and lispm (not clx-ansi-common-lisp))             #+(and lispm (not clx-ansi-common-lisp))
467             (sys:downward-funarg #+Genera * #-Genera translate))             (sys:downward-funarg #+Genera * #-Genera translate))
468    (declare (clx-values boolean (or null int32)))    (declare (clx-values generalized-boolean (or null int32)))
469    (let* ((display (gcontext-display gcontext))    (let* ((display (gcontext-display gcontext))
470           (result t)           (result t)
471           (opcode *x-polytext8*))           (opcode *x-polytext8*))
# Line 578  Line 578 
578    
579              (declare (type array-index src-chunk dst-chunk offset)              (declare (type array-index src-chunk dst-chunk offset)
580                       (type (or null int32) overall-width)                       (type (or null int32) overall-width)
581                       (type boolean stop-p))                       (type generalized-boolean stop-p))
582              (setq src-chunk (index-min length *max-string-size*))              (setq src-chunk (index-min length *max-string-size*))
583              (multiple-value-bind (new-start new-font translated-width)              (multiple-value-bind (new-start new-font translated-width)
584                  (funcall translate                  (funcall translate
# Line 683  Line 683 
683    
684              (declare (type array-index boffset src-chunk dst-chunk offset)              (declare (type array-index boffset src-chunk dst-chunk offset)
685                       (type (or null int32) overall-width)                       (type (or null int32) overall-width)
686                       (type boolean stop-p))                       (type generalized-boolean stop-p))
687              (setq src-chunk (index-min length *max-string-size*))              (setq src-chunk (index-min length *max-string-size*))
688              (multiple-value-bind (new-start new-font translated-width)              (multiple-value-bind (new-start new-font translated-width)
689                  (funcall translate                  (funcall translate
# Line 746  Line 746 
746             (dynamic-extent translate)             (dynamic-extent translate)
747             #+(and lispm (not clx-ansi-common-lisp))             #+(and lispm (not clx-ansi-common-lisp))
748             (sys:downward-funarg #+Genera * #-Genera translate))             (sys:downward-funarg #+Genera * #-Genera translate))
749    (declare (clx-values boolean (or null int32)))    (declare (clx-values generalized-boolean (or null int32)))
750    (let* ((display (gcontext-display gcontext))    (let* ((display (gcontext-display gcontext))
751           (result t)           (result t)
752           (opcode *x-imagetext8*))           (opcode *x-imagetext8*))
# Line 956  Line 956 
956            (display-max-keycode display)))            (display-max-keycode display)))
957    
958  ;; Should this signal device-busy like the pointer-mapping setf, and return a  ;; Should this signal device-busy like the pointer-mapping setf, and return a
959  ;; boolean instead (true for success)?  Alternatively, should the  ;; generalized-boolean instead (true for success)?  Alternatively, should the
960  ;; pointer-mapping setf be changed to set-pointer-mapping with a (member  ;; pointer-mapping setf be changed to set-pointer-mapping with a (member
961  ;; :success :busy) result?  ;; :success :busy) result?
962    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

  ViewVC Help
Powered by ViewVC 1.1.5