Ignore:
Timestamp:
11/16/2007 11:48:22 PM (19 years ago)
Author:
David Owen <dsowen@…>
branch-nick:
tui
revision id:
dsowen@fugue88.ws-20071116234822-y2fhymxzzi20qdnu
Message:

Fix: Round scroll-percentage to a whole number.
Added ENSURE-ROW-VISIBLE (dumb behavior, but works).
Fix: Row-counting in row-selectable was off when combined with nice-header.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • main/grid/row-selectable.lisp

    r60 r62  
    99
    1010(defmethod (setf selected-row) :around (i (d row-selectable))
    11   (call-next-method (bound i 0 (rows d)) d))
     11  ;; TODO: This was hacked to take out header rows from other classes
     12  ;; that I wish didn't affect the call.
     13  (call-next-method (bound i 0 (- (rows d) (header-rows d) 1)) d))
    1214
    1315(defvar *recursive* nil)
Note: See TracChangeset for help on using the changeset viewer.