Changeset main,77 for main/simple-table.lisp

Timestamp:

12/05/2007 03:04:42 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071205030442-7u9gs0gh91hb7knx

Message:

Added a DRAW method to simple-tables.

File:

• main/simple-table.lisp (modified) (3 diffs)

main/simple-table.lisp

@@ -2 +2 @@
   (: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 +49 @@
                    :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 +65 @@
       (notify)
       (loop
-         (draw grid)
+         (draw tbl)
          (let ((key (read-key window)))
            (case key