From ecb6fd62c275af03a07d892313ab3914d81cd40e Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Thu, 23 Nov 2017 10:06:22 +0100 Subject: Added text functions --- screen.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'screen.ml') diff --git a/screen.ml b/screen.ml index 8279c62..c61efea 100755 --- a/screen.ml +++ b/screen.ml @@ -280,8 +280,8 @@ let editor ?position ?(prefix=UTF8.empty) ?(init=UTF8.empty) t = begin and delete_previous hd = begin let y, x = Curses.getyx t.status in let length = UTF8.length hd in + ignore @@ Curses.wmove t.status y (x - length); for position = 1 to length do - ignore @@ Curses.wmove t.status y (x - position); ignore @@ Curses.wdelch t.status done; end in -- cgit v1.2.3