Changeset main,56 for main

Timestamp:

11/16/2007 04:57:59 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116165759-z7bwp6amaic0blw4

Message:

Moved header-rows into the data model.

Location:

main/grid

Files:

• display.lisp (modified) (5 diffs)
• model.lisp (modified) (1 diff)
• package.lisp (modified) (1 diff)
• test.lisp (modified) (3 diffs)

main/grid/display.lisp

@@ -5 +5 @@
 (defclass grid ()
   ((data :initarg :data)
-   (header-rows :type (integer 0) :initarg :header-rows)
    (header-columns :type (integer 0) :initarg :header-columns)
    (window :initarg :window)
@@ -11 +10 @@
    (column-scroll :type (integer 0) :initform 0 :accessor column-scroll)))
 
-(defun make-grid (window data &key (header-rows 0) (header-columns 0))
+(defun make-grid (window data &key (header-columns 0))
   (make-instance 'grid
                  :data data
-                 :header-rows header-rows
                  :header-columns header-columns
                  :window window))
@@ -49 +47 @@
 
 (defun row-split (grid row)
-  (with-slots (header-rows) grid
-    (saturate header-rows row)))
+  (with-slots (data) grid
+    (saturate (header-rows data) row)))
 
 (defun row-offset (grid row)
-  (with-slots (header-rows) grid
-    (multiple-value-bind (in-header in-data) (row-split grid row)
-      (+ in-header in-data))))
+  (multiple-value-bind (in-header in-data) (row-split grid row)
+    (+ in-header in-data)))
 
 (defun draw-header-corner-item (grid row column)
@@ -87 +84 @@
 
 (defun draw-column (grid column x)
-  (with-slots (data header-rows window row-scroll) grid
-    (dotimes (i header-rows)
-      (draw-cell grid i column i x))
-    (dotimes (i (- (size window) header-rows))
-      (let* ((y (+ i header-rows))
-             (row (+ y row-scroll)))
-        (when (>= row (rows data))
-          (return))
-        (draw-cell grid row column y x)))))
+  (with-slots (data window row-scroll) grid
+    (let ((header-rows (header-rows data)))
+      (dotimes (i header-rows)
+        (draw-cell grid i column i x))
+      (dotimes (i (- (size window) header-rows))
+        (let* ((y (+ i header-rows))
+               (row (+ y row-scroll)))
+          (when (>= row (rows data))
+            (return))
+          (draw-cell grid row column y x))))))
 
 (defun draw (grid)
@@ -113 +111 @@
 
 (defmethod max-row-scroll ((grid grid))
-  (with-slots (data header-rows window) grid
+  (with-slots (data window) grid
     (max 0 (- (rows data) (size window)))))
 

main/grid/model.lisp

@@ -7 +7 @@
    "Returns the number of rows of data."))
 
-#|(defgeneric header-rows (grid-data)
+(defgeneric header-rows (grid-data)
   (:documentation
    "Returns the number of rows that contain header data, and may be
 considered for locking in place during scrolling operations.  Header
 rows are always at the top of the grid (from row 0).")
-  (:method (grid-data) 0))|#
+  (:method (grid-data) 0))
 
 (defgeneric columns (grid-data)

main/grid/package.lisp

@@ -1 +1 @@
 (defpackage #:grid
   (:use #:cl #:dso-util #:tui-display-string #:tui-output #:tui-window)
-  (:export #:rows #:columns #:column-width #:item #:uses-display-strings
-           #:row-scroll #:column-scroll #:make-grid #:draw))
+  (:export #:rows #:header-rows #:columns #:column-width #:item
+           #:uses-display-strings #:row-scroll #:column-scroll #:make-grid
+           #:draw))

main/grid/test.lisp

@@ -10 +10 @@
 
 (defmethod rows ((gd test)) 10)
+
+(defmethod header-rows ((gd test))
+  1)
 
 (defmethod columns ((gd test)) 10)
@@ -41 +44 @@
       (clear screen)
       (with-subwindow (window screen 5 16 0 0)
-        (let ((grid (make-grid window data :header-columns 1 :header-rows 1)))
+        (let ((grid (make-grid window data :header-columns 1)))
           (flet ((try (i)
                    (setf (row-scroll grid) i)
@@ -57 +60 @@
             (try 99))))
       (clear screen)
-      (let ((grid (make-grid screen data :header-columns 1 :header-rows 1)))
+      (let ((grid (make-grid screen data :header-columns 1)))
         (draw grid)
         (read-key screen)))))