suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/gui cocoa: fix `list-box%' visble-cell calculations

Browse Source 
There were especially problems with header columns, but
also intercell spacing was not taken into account.

Merge to v5.3.4
This commit is contained in:
Matthew Flatt 2013-04-15 16:37:08 -06:00
parent d4927e917b
commit 44d59702c0
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/mred/private/wx/cocoa/list-box.rkt
View File

@ -191,13 +191,32 @@
[else (cons i (loop (tell #:type _NSInteger v
indexGreaterThanIndex: #:type _NSInteger i)))])))))))
(define/private (header-height)
(let ([hv (tell content-cocoa headerView)])
(if hv
(NSSize-height (NSRect-size (tell #:type _NSRect hv frame)))
0)))
(define/public (number-of-visible-items)
(define doc (tell #:type _NSRect cocoa documentVisibleRect))
(define h (tell #:type _CGFloat content-cocoa rowHeight))
(max 1 (inexact->exact (floor (/ (NSSize-height (NSRect-size doc)) h)))))
(define h (+ (tell #:type _CGFloat content-cocoa rowHeight)
(NSSize-height (tell #:type _NSSize content-cocoa intercellSpacing))))
(define doc-h (- (NSSize-height (NSRect-size doc))
(header-height)))
(define n (floor (/ doc-h h)))
(if (rational? n)
(max 1 (inexact->exact n))
1))
(define/public (get-first-item)
(define doc (tell #:type _NSRect cocoa documentVisibleRect))
(NSRange-location (tell #:type _NSRange content-cocoa rowsInRect: #:type _NSRect doc)))
(define h (header-height))
(NSRange-location (tell #:type _NSRange content-cocoa
rowsInRect: #:type _NSRect
(if (zero? h)
doc
(make-NSRect (NSRect-origin doc)
(make-NSSize (NSSize-width (NSRect-size doc))
(- (NSSize-height (NSRect-size doc)) h)))))))
(define/public (set-first-visible-item i)
(define num-vis (number-of-visible-items))