Changeset main,89 for main/simple-table.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/simple-table.lisp (modified) (2 diffs)

main/simple-table.lisp

@@ -62 +62 @@
                      (select-callback 'nothing) (scroll-callback 'nothing))
   (with-slots (window data model grid) tbl
+    (cdk::c-keypad (window-pointer window) t)
     (flet ((notify ()
              (funcall select-callback)
@@ -70 +71 @@
       (loop
          (draw tbl)
+         (refresh window)
          (let ((key (read-key window)))
            (case key