[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Horizontal Scrolling in sequence-dialog-item
- To: firstname.lastname@example.org
- Subject: Horizontal Scrolling in sequence-dialog-item
- From: email@example.com
- Date: Wed, 5 Feb 1992 12:39:25 -0600
Horizontal scrolling seems rather brain-dead...
Does anyone have a fix so that scrolling horizontally will "page" through
the remainder of the contents of a cell when
(point-h cell-size) >> (point-h view-size) ?
Example of what I don't want follows.
(defclass sample-sequence (sequence-dialog-item)
:view-size #@(200 100)
:cell-size #@(1000 16)))
(add-subviews (make-instance 'window)
:table-sequence (list (make-string 200 :initial-element #\A)
(make-string 200 :initial-element #\B))))
;Try to scroll to the right to see the other A's and B's.
"TANSTAAFL" Rich firstname.lastname@example.org