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

Timestamp:

11/03/2007 05:27:59 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071103172759-aacwcew0kzliob1n

Message:

Grid now uses display strings.

File:

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

main/grid/test.lisp

@@ -18 +18 @@
   (cond
     ((= row 0)
-     (string (aref "*ABCDEFGHI" column)))
+     (concatenate 'string "`B`U " (string (aref "*ABCDEFGHI" column)) " `u`b"))
     ((= column 0)
-     (format nil "~A" row))
+     (format nil " `B~A`b " row))
     (t
-     (format nil "~A,~A" row column))))
+     (format nil (if (= row column 2) "`R~A,~A`r" "~A,~A") row column))))
+
+(defmethod uses-display-strings ((gd test) row column)
+  t)
 
 
@@ -35 +38 @@
     (with-screen (screen)
       (clear screen)
-      (with-der-window (window screen 5 17 0 0)
+      (with-der-window (window screen 5 16 0 0)
         (let ((grid (make-grid window data widths :header-columns 1 :header-rows 1)))
           (flet ((try (i)