Changeset main,77


Ignore:
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.

Location:
main
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • main/grid/display.lisp

    r71 r77  
    9494          (draw-cell grid row column y x))))))
    9595
    96 (defun draw (grid)
     96(defmethod draw ((grid grid))
    9797  (with-slots (data window column-scroll) grid
    9898    (let ((header-columns (header-columns data)))

  • main/simple-table.lisp

    r75 r77  
    22  (:use #:cl #:dso-util #:grid #:tui-input #:tui-widget #:tui-window)
    33  (:export #:simple-table #:data #:selected-row #:scroll-percent
    4            #:make-simple-table #:activate))
     4           #:make-simple-table #:draw #:activate))
    55
    66(in-package #:tui-simple-table)
    … …  
    4949                   :window window :keys keys :model model :grid grid)))
    5050
     51(defmethod draw ((tbl simple-table))
     52  (draw (grid tbl)))
     53
    5154(defun page-size (tbl)
    5255  (max 1 (- (size (window tbl)) 2)))
    … …  
    6265      (notify)
    6366      (loop
    64          (draw grid)
     67         (draw tbl)
    6568         (let ((key (read-key window)))
    6669           (case key
Note: See TracChangeset for help on using the changeset viewer.