Changeset main,65 for main

Timestamp:

11/19/2007 09:43:59 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071119214359-ae9jmvdvpqy8kx80

Message:

Fix: Show the cursor when and only when activated.

File:

• main/widget/textbox.lisp (modified) (2 diffs)

main/widget/textbox.lisp

@@ -92 +92 @@
                      &allow-other-keys)
   (with-slots (data window active) textbox
+    (set-cursor-visible t)
     (setf active t)
     (unwind-protect
@@ -128 +129 @@
                                (concatenate 'string left (string key) right))
                          (incf (insertion-point textbox)))))))))
-      (setf active nil))))
+      (setf active nil)
+      (set-cursor-visible nil))))