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

Timestamp:

12/05/2007 03:04:42 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071205030442-7u9gs0gh91hb7knx

Message:

Added a DRAW method to simple-tables.

File:

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

main/grid/display.lisp

@@ -94 +94 @@
           (draw-cell grid row column y x))))))
 
-(defun draw (grid)
+(defmethod draw ((grid grid))
   (with-slots (data window column-scroll) grid
     (let ((header-columns (header-columns data)))