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

...

Browse Source 
original commit: 9e83b31ae959bf5059a4cf42554e29ff1ea4439c
This commit is contained in:
Robby Findler 2002-01-24 00:37:17 +00:00
parent ec1976b5c1
commit 45240df5c0
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/text.ss
View File

@ -680,10 +680,19 @@
(enqueue-for-frame
(lambda (x) (send x editor-position-changed))
'framework:editor-position-changed))
(field (callback-running? #f))
(define (after-insert start len)
(super-after-insert start len)
(enqueue-for-frame
(lambda (x) (send x editor-position-changed))
(lambda (x)
(unless callback-running?
(set! callback-running? #t)
(queue-callback
(lambda ()
(send x editor-position-changed)
(set! callback-running? #f))
#f)))
'framework:editor-position-changed))
(define (after-delete start len)
(super-after-delete start len)