Changeset main,75 for main/simple-table.lisp

Timestamp:

11/30/2007 06:51:51 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071130185151-em9s4upwi2dwsles

Message:

Allow no row to be selected when there are no data rows.

File:

• main/simple-table.lisp (modified) (1 diff)

main/simple-table.lisp

@@ -57 +57 @@
     (flet ((notify ()
              (funcall select-callback)
-             (when (ensure-row-visible grid (1+ (selected-row model)))
-               (funcall scroll-callback))))
+             (let ((row (selected-row model)))
+               (when (and row (ensure-row-visible grid (1+ row)))
+                 (funcall scroll-callback)))))
       (notify)
       (loop