Changeset main,26 for main/grid/display.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/display.lisp (modified) (1 diff)

main/grid/display.lisp

@@ -81 +81 @@
 
 (defun draw-cell (grid row column y x)
-  (with-slots (window) grid
-    (cdk::move-and-add-string window y x (item grid row column))))
+  (with-slots (data window) grid
+    (let ((text (item data row column)))
+      (unless (uses-display-strings data row column)
+        (setf text (enquote text)))
+      (render text window y x))))
 
 (defun draw-column (grid column x)