Changeset main,55 for main/grid/model.lisp

Timestamp:

11/16/2007 04:52:26 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116165226-urvzht93m31b4n1t

Message:

Made column-widths part of the data model.

File:

• main/grid/model.lisp (modified) (3 diffs)

main/grid/model.lisp

@@ -2 +2 @@
 
 
+
+(defgeneric rows (grid-data)
+  (:documentation
+   "Returns the number of rows of data."))
 
 #|(defgeneric header-rows (grid-data)
@@ -10 +14 @@
   (:method (grid-data) 0))|#
 
+(defgeneric columns (grid-data)
+  (:documentation
+   "Returns the number of columns of data."))
+
 #|(defgeneric header-columns (grid-data)
   (:documentation
@@ -17 +25 @@
   (:method (grid-data) 0))|#
 
-#|(defgeneric column-width (grid-data column)
+(defgeneric column-width (grid-data column)
   (:documentation
    "Returns the width of the column, as the total number of characters
 requested for this column.  The count may be less than the length of
-the maximal item in the column."))|#
-
-(defgeneric rows (grid-data)
-  (:documentation
-   "Returns the number of rows of data."))
-
-(defgeneric columns (grid-data)
-  (:documentation
-   "Returns the number of columns of data."))
+the maximal item in the column."))
 
 (defgeneric item (grid-data row column)