Changeset main,75

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.

Location:

main

Files:

• grid/row-selectable.lisp (modified) (2 diffs)
• simple-table.lisp (modified) (1 diff)

main/grid/row-selectable.lisp

@@ -4 +4 @@
 
 (defclass row-selectable ()
-  ((selected-row :type (integer 0) :initform 0 :accessor selected-row)))
+  ((selected-row :type (or null (integer 0))
+                 :initform 0
+                 :accessor selected-row)))
 
 
@@ -11 +13 @@
   ;; TODO: This was hacked to take out header rows from other classes
   ;; that I wish didn't affect the call.
-  (call-next-method (bound i 0 (- (rows d) (header-rows d) 1)) d))
+  (call-next-method (bound (if i i 0) 0 (- (rows d) (header-rows d) 1)) d))
 
 (defvar *recursive* nil)

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