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

Timestamp:

11/16/2007 09:23:48 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116212348-g0y85h0so1fralzf

Message:

Created a new mix-in architecture for grids.
Converted the test.

File:

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

main/grid/test.lisp

@@ -7 +7 @@
 
 
-(defclass test () ())
+(defclass test (nice-header row-selectable column-padding column-formats)
+  ())
 
 (defmethod rows ((gd test)) 10)
-
-(defmethod header-rows ((gd test))
-  1)
 
 (defmethod columns ((gd test)) 10)
@@ -19 +17 @@
   1)
 
-(defmethod column-width ((gd test) column)
-  5)
-
 (defmethod item ((gd test) row column)
   (assert (and (<= 0 row 9)
                (<= 0 column 9)))
-  (cond
-    ((= row 0)
-     (concatenate 'string "`B`U " (string (aref "*ABCDEFGHI" column)) " `u`b"))
-    ((= column 0)
-     (format nil " `B~A`b " row))
-    (t
-     (format nil (if (= row column 2) "`R~A,~A`r" "~A,~A") row column))))
-
-(defmethod uses-display-strings ((gd test) row column)
-  t)
+  (* (1+ row) (1+ column)))
 
 
@@ -42 +28 @@
   (refresh screen))
 
+(defconstant +format+ (first (parse-format-specs '(:number 3))))
+(defconstant +formats+ (make-sequence 'vector 10 :initial-element +format+))
+
 (defun test-draw ()
-  (let ((data (make-instance 'test)))
+  (let ((data (make-instance 'test
+                             :format-specs +formats+
+                             :column-heads #("   *" "   A" "   B" "   C" "   D"
+                                             "   E" "   F" "   G" "   H"
+                                             "   I"))))
+    (setf (selected-row data) 1)
     (with-screen (screen)
       (clear screen)