Changeset 224

Show
Ignore:
Timestamp:
08/18/11 05:22:40 (21 months ago)
Author:
rjs
Message:

Version 13.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/lisp/lmwin/stream.lisp

    r223 r224  
    7979      (FERROR NIL "~S is not a known unit." UNITS))) 
    8080  (SHEET-SET-CURSORPOS SELF X Y)) 
     81 
     82(DEFMETHOD (STREAM-MIXIN :INCREMENT-CURSORPOS) (DX DY &OPTIONAL (UNITS ':PIXEL)) 
     83  (SELECTQ UNITS 
     84    (:PIXEL) 
     85    (:CHARACTER 
     86      (AND DX (SETQ DX (* DX CHAR-WIDTH))) 
     87      (AND DY (SETQ DY (* DY LINE-HEIGHT)))) 
     88    (OTHERWISE 
     89      (FERROR NIL "~S is not a known unit." UNITS))) 
     90  (SHEET-INCREMENT-BITPOS SELF DX DY)) 
    8191 
    8292(DEFMETHOD (STREAM-MIXIN :BASELINE) ()