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

from commentary following up in PR 11054

Browse Source 
original commit: 2309856e2a18e36c5bbedac346cd009ef798b3ad
This commit is contained in:
Robby Findler 2010-07-28 15:13:05 -05:00
parent 70fbd8e5b9
commit dbed637bfe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.rkt
View File

@ -1807,7 +1807,7 @@
[bt (box 0)]
[bb (box 0)])
(send text get-visible-line-range bt bb #f)
(unless (<= (unbox bt) search-result-line (unbox bb))
(unless (< (unbox bt) search-result-line (unbox bb))
(let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))]
[last-pos (send text position-line (send text last-position))]
[top-pos (send text line-start-position