4f9d726d7ea6

put-ext
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 23 Oct 2017 08:47:30 -0400
parents e0811ef78cce
children da7d65a30255 51118a74bea4
branches/tags (none)
files src/high-level/bearlibterminal.lisp

Changes

diff -r e0811ef78cce -r 4f9d726d7ea6 src/high-level/bearlibterminal.lisp
--- a/src/high-level/bearlibterminal.lisp	Sat Oct 14 13:03:30 2017 -0400
+++ b/src/high-level/bearlibterminal.lisp	Mon Oct 23 08:47:30 2017 -0400
@@ -502,12 +502,14 @@
     (when code (code-point-to-character code))))
 
 
-(defun (setf cell-code) (code-point x y)
-  (blt/ll:terminal-put x y code-point)
+(defun (setf cell-code) (code-point x y &optional (dx 0) (dy 0))
+  (blt/ll:terminal-put-ext x y dx dy code-point (cffi:null-pointer))
   code-point)
 
-(defun (setf cell-char) (character x y)
-  (blt/ll:terminal-put x y (character-to-code-point character))
+(defun (setf cell-char) (character x y &optional (dx 0) (dy 0))
+  (blt/ll:terminal-put-ext x y dx dy
+                           (character-to-code-point character)
+                           (cffi:null-pointer))
   character)