Changeset main,62

Timestamp:

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

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071116234822-y2fhymxzzi20qdnu

Message:

Fix: Round scroll-percentage to a whole number.
Added ENSURE-ROW-VISIBLE (dumb behavior, but works).
Fix: Row-counting in row-selectable was off when combined with nice-header.

Location:

main/grid

Files:

• display.lisp (modified) (2 diffs)
• package.lisp (modified) (1 diff)
• row-selectable.lisp (modified) (1 diff)

main/grid/display.lisp

@@ -118 +118 @@
 
 (defmethod row-scroll-percent ((grid grid))
-  (/ (1+ (row-scroll grid)) (1+ (max-row-scroll grid))))
+  (floor (/ (1+ (row-scroll grid)) (1+ (max-row-scroll grid))) 1/100))
 
 (defmethod max-column-scroll ((grid grid))
@@ -129 +129 @@
 (defmethod column-scroll-percent ((grid grid))
   (/ (1+ (column-scroll grid)) (1+ (max-column-scroll grid))))
+
+
+
+(defun ensure-row-visible (grid row)
+  (with-slots (data) grid
+    (setf (row-scroll grid) (- row (header-rows data)))))

main/grid/package.lisp

@@ -8 +8 @@
 
    ;; Display
-   #:row-scroll #:column-scroll #:make-grid #:draw
+   #:row-scroll #:row-scroll-percent #:column-scroll #:column-scroll-percent
+   #:make-grid #:draw #:ensure-row-visible
 
    ;; Extra

main/grid/row-selectable.lisp

@@ -9 +9 @@
 
 (defmethod (setf selected-row) :around (i (d row-selectable))
-  (call-next-method (bound i 0 (rows d)) d))
+  ;; TODO: This was hacked to take out header rows from other classes
+  ;; that I wish didn't affect the call.
+  (call-next-method (bound i 0 (- (rows d) (header-rows d) 1)) d))
 
 (defvar *recursive* nil)