Changeset main,55 for main/grid/test.lisp

Timestamp:

11/16/2007 04:52:26 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116165226-urvzht93m31b4n1t

Message:

Made column-widths part of the data model.

File:

• main/grid/test.lisp (modified) (3 diffs)

main/grid/test.lisp

@@ -12 +12 @@
 
 (defmethod columns ((gd test)) 10)
+
+(defmethod column-width ((gd test) column)
+  5)
 
 (defmethod item ((gd test) row column)
@@ -34 +37 @@
 
 (defun test-draw ()
-  (let ((data (make-instance 'test))
-        (widths (make-sequence 'vector 10 :initial-element 5)))
+  (let ((data (make-instance 'test)))
     (with-screen (screen)
       (clear screen)
       (with-subwindow (window screen 5 16 0 0)
-        (let ((grid (make-grid window data widths :header-columns 1 :header-rows 1)))
+        (let ((grid (make-grid window data :header-columns 1 :header-rows 1)))
           (flet ((try (i)
                    (setf (row-scroll grid) i)
@@ -55 +57 @@
             (try 99))))
       (clear screen)
-      (let ((grid (make-grid screen data widths :header-columns 1 :header-rows 1)))
+      (let ((grid (make-grid screen data :header-columns 1 :header-rows 1)))
         (draw grid)
         (read-key screen)))))