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

Timestamp:

11/24/2007 02:53:24 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071124025324-dt3goz189v10338r

Message:

Defining behavior for ENSURE-ROW-VISIBLE.

File:

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

main/grid/display.lisp

@@ -133 +133 @@
 
 (defun ensure-row-visible (grid row)
+  "Returns T when scrolling was necessary."
   (with-slots (data) grid
     (setf (row-scroll grid) (- row (header-rows data)))))