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

get the line number from the paragraph

Browse Source
This commit is contained in:
Jon Rafkind 2010-11-03 17:16:34 -06:00
parent 68c197f639
commit 1093b4a430
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/text.rkt
View File

@ -3715,6 +3715,7 @@ designates the character that triggers autocompletion
get-visible-position-range get-visible-position-range
find-position find-position
line-location line-location
line-paragraph
line-start-position line-start-position
line-end-position) line-end-position)
@ -3763,7 +3764,7 @@ designates the character that triggers autocompletion
(for ([line (in-range start-line end-line)]) (for ([line (in-range start-line end-line)])
(define y (line-location line)) (define y (line-location line))
(when (between top y bottom) (when (between top y bottom)
(draw-text (number->string (add1 line)) 0 (+ dy y))))) (draw-text (number->string (add1 (line-paragraph line))) 0 (+ dy y)))))
;; draw the line between the line numbers and the actual text ;; draw the line between the line numbers and the actual text
(define (draw-separator dc top bottom dy x) (define (draw-separator dc top bottom dy x)