Changeset main,76 for main/grid/row-selectable.lisp

Timestamp:

12/03/2007 11:24:55 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071203232455-upqyck0bg76k3m9o

Message:

Don't use NIL when now rows to be selected (causes math problems).

File:

• main/grid/row-selectable.lisp (modified) (2 diffs)

main/grid/row-selectable.lisp

@@ -4 +4 @@
 
 (defclass row-selectable ()
-  ((selected-row :type (or null (integer 0))
+  ((selected-row :type (integer 0)
                  :initform 0
                  :accessor selected-row)))
@@ -13 +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 (if i i 0) 0 (- (rows d) (header-rows d) 1)) d))
+  (call-next-method (or (bound i 0 (- (rows d) (header-rows d) 1)) 0) d))
 
 (defvar *recursive* nil)