Changeset main,71

Timestamp:

11/27/2007 09:07:41 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071127210741-7uodnp886dp5yn3l

Message:

Improved ENSURE-ROW-VISIBLE.

File:

• main/grid/display.lisp (modified) (1 diff)

main/grid/display.lisp

@@ -134 +134 @@
 (defun ensure-row-visible (grid row)
   "Returns T when scrolling was necessary."
-  (with-slots (data) grid
-    (setf (row-scroll grid) (- row (header-rows data)))))
+  (with-slots (data window) grid
+    (let ((data-row (- row (header-rows data))))
+      (when (>= data-row 0)
+        (boundf (row-scroll grid)
+                (- row (size window) -1)
+                data-row)))))