Index: main/simple-table.lisp
===================================================================
--- main/simple-table.lisp	(revision main,83)
+++ main/simple-table.lisp	(revision main,89)
@@ -62,4 +62,5 @@
                      (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,4 +71,5 @@
       (loop
          (draw tbl)
+         (refresh window)
          (let ((key (read-key window)))
            (case key