Changeset main,61

Timestamp:

11/16/2007 11:47:21 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116234721-0re0n1w2e8xs1i10

Message:

Can turn the cursor on and off.

File:

• main/cursor.lisp (modified) (2 diffs)

main/cursor.lisp

@@ -1 +1 @@
 (defpackage #:tui-cursor
   (:use #:cl #:cffi #:tui-window)
-  (:export #:cursor-position))
+  (:export #:cursor-position #:set-cursor-visible))
 
 (in-package #:tui-cursor)
@@ -31 +31 @@
       (let ((ptr (window-pointer window)))
         (wmove ptr row column)))))
+
+
+
+(defcfun "curs_set" :int
+  (visibility :int))
+
+(defun set-cursor-visible (flag)
+  (curs-set (if flag 1 0))
+  flag)