Changeset main,58 for main/grid/display.lisp

Timestamp:

11/16/2007 09:22:15 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116212215-8drk5zylbwy4me0v

Message:

Fix: force grid data to string to display it.

File:

• main/grid/display.lisp (modified) (1 diff)

main/grid/display.lisp

@@ -77 +77 @@
 (defun draw-cell (grid row column y x)
   (with-slots (data window) grid
-    (let ((text (item data row column)))
+    (let ((text (format nil "~A" (item data row column))))
       (unless (uses-display-strings data row column)
         (setf text (enquote text)))