Changeset 224


Ignore:
Timestamp:
08/18/11 12:22:40 (3 years ago)
Author:
rjs
Message:

Version 13.

File:
1 edited

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) ()
Note: See TracChangeset for help on using the changeset viewer.