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

tweak to avoid re-complete when typing a character from the completed text

Browse Source 
svn: r3174
This commit is contained in:
Eli Barzilay 2006-06-01 22:59:14 +00:00
parent caeb40004f
commit abf83c1c37
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mred/private/path-dialog.ss
View File

@ -441,14 +441,18 @@
;; a b c d| => typed a character from completed text
(and last-text-completed?
(= len start end)
(< last-text-start len last-text-end)
(<= last-text-start len last-text-end)
(prefix? value last-text-value #t))
(send completion-timer stop)
;; => shrink the completed part
(send text set-value last-text-value)
(set! change? #f)
(send text* set-position start last-text-end #f #f 'local)
(set! last-text-start start)]
;; in some situations this is called with the same text before
;; the new character is inserted -- do nothing in that case,
;; not even set-ok?
(when (< last-text-start len last-text-end)
(send completion-timer stop)
;; => shrink the completed part
(send text set-value last-text-value)
(send text* set-position start last-text-end #f #f 'local)
(set! last-text-start start))
(set! change? #f)]
[;; a b c d
;; a b c => removed text
(prefix? value last-text-value #t)