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

add some highlighting to the line numbers to show where

Browse Source 
the insertion point currently is

closes PR 12976

original commit: 94a448413ee9b371bc7822f27ac422776cf1ca3a
This commit is contained in:
Robby Findler 2012-08-06 12:12:24 -05:00
parent 6d8cf91696
commit 22fee824e5
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4081,7 +4081,7 @@ designates the character that triggers autocompletion
(get-highlight-background-color)
(if (preferences:get 'framework:white-on-black?)
"lime"
"forestgreen"))
"forestgreen"))
'solid)
(send dc draw-rectangle ls final-y (- right-space single-w) single-h)
@ -4171,13 +4171,22 @@ designates the character that triggers autocompletion
(define old-position #f)
(define/augment (after-set-position)
(when old-position
(invalidate-at-position old-position))
(set! old-position (and (= (get-start-position)
(get-end-position))
(get-start-position)))
(when old-position
(invalidate-at-position old-position))
(cond
[(and old-position
(= (get-start-position)
(get-end-position))
(= (position-line old-position)
(position-line (get-start-position))))
;; when the line stays the same, don't invalidate anything
(set! old-position (get-start-position))]
[else
(when old-position
(invalidate-at-position old-position))
(set! old-position (and (= (get-start-position)
(get-end-position))
(get-start-position)))
(when old-position
(invalidate-at-position old-position))])
(inner (void) after-set-position))
(define/private (invalidate-at-position pos)