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

*** empty log message ***

Browse Source 
original commit: 3cd30a8fcd41509e60f1074c36acf462802d22aa
This commit is contained in:
Robby Findler 2001-09-03 17:58:56 +00:00
parent 6e1b52b1d5
commit c2d222ebec
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/keymap.ss
View File

@ -265,7 +265,7 @@
(send edit get-start-position))] (send edit get-start-position))]
[bt (box 0)] [bt (box 0)]
[bb (box 0)]) [bb (box 0)])
(send edit get-visible-line-range bt bb) (send edit get-visible-line-range bt bb #f)
(let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))] (let* ([half (sub1 (quotient (- (unbox bb) (unbox bt)) 2))]
[last-pos (send edit position-line (send edit last-position))] [last-pos (send edit position-line (send edit last-position))]
[top-pos (send edit line-start-position [top-pos (send edit line-start-position