Changeset main,85

Timestamp:

02/15/2008 09:27:06 PM (15 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080215212706-q3uj2dl3ia87yazp

Message:

Better control of cursor visibility.

File:

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

main/cursor.lisp

@@ -1 +1 @@
 (defpackage #:tui-cursor
   (:use #:cl #:cffi #:tui-window)
-  (:export #:cursor-position #:set-cursor-visible))
+  (:export #:cursor-position #:cursor-visible #:set-cursor-visible
+           #:let-cursor-visible))
 
 (in-package #:tui-cursor)
@@ -37 +38 @@
   (visibility :int))
 
+(defvar *cursor-visibility* t)
+
+(defun cursor-visible ()
+  *cursor-visibility*)
+
 (defun set-cursor-visible (flag)
   (curs-set (if flag 1 0))
-  flag)
+  (setf *cursor-visibility* flag))
+
+(defsetf cursor-visible set-cursor-visible)
+
+(defmacro let-cursor-visible (flag &body body)
+  (dso-util:with-gensyms (old)
+    `(let ((,old (cursor-visible)))
+       (setf (cursor-visible) ,flag)
+       (unwind-protect (progn ,@body)
+         (setf (cursor-visible) ,old)))))