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

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.

File:

• main/grid/display.lisp (modified) (2 diffs)

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)))))