Index: main/simple-table.lisp
===================================================================
--- main/simple-table.lisp	(revision main,75)
+++ main/simple-table.lisp	(revision main,77)
@@ -2,5 +2,5 @@
   (:use #:cl #:dso-util #:grid #:tui-input #:tui-widget #:tui-window)
   (:export #:simple-table #:data #:selected-row #:scroll-percent
-           #:make-simple-table #:activate))
+           #:make-simple-table #:draw #:activate))
 
 (in-package #:tui-simple-table)
@@ -49,4 +49,7 @@
                    :window window :keys keys :model model :grid grid)))
 
+(defmethod draw ((tbl simple-table))
+  (draw (grid tbl)))
+
 (defun page-size (tbl)
   (max 1 (- (size (window tbl)) 2)))
@@ -62,5 +65,5 @@
       (notify)
       (loop
-         (draw grid)
+         (draw tbl)
          (let ((key (read-key window)))
            (case key