Changeset main,89 for main/form.lisp

Timestamp:

08/08/2008 08:25:09 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080808202509-1i22vbtxoghmjld1

Message:

Minor fixes

File:

• main/form.lisp (modified) (1 diff)

main/form.lisp

@@ -287 +287 @@
              (refresh form)
              (let ((key (activate (f-peer) :key-callback #'callback)))
-               (case key
-                 ((#\Return #\Newline #\Tab :key-down)
-                  (incf focus)
-                  (boundf focus 0 (1- n)))
-                 ((:key-btab :key-up)
-                  (decf focus)
-                  (boundf focus 0 (1- n)))
+               (cond
+                 ((and (member key '(#\Return #\Newline #\Tab :key-down))
+                       (< focus (1- n)))
+                  (incf focus))
+                 ((and (member key '(:key-btab :key-up))
+                       (> focus 0))
+                  (decf focus))
                  (t
                   (return-from activate key))))))))))