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
(cherry picked from commit 44d59702c0)
This commit is contained in:
Matthew Flatt 2013-04-15 16:37:08 -06:00 committed by Ryan Culpepper
parent f9cc17670c
commit 95b20193c3
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))