Index: main/grid/display.lisp
===================================================================
--- main/grid/display.lisp	(revision main,58)
+++ main/grid/display.lisp	(revision main,62)
@@ -118,5 +118,5 @@
 
 (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,2 +129,8 @@
 (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)))))