From 45240df5c0565d3598dd93224e59420d9db2e5e0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 24 Jan 2002 00:37:17 +0000 Subject: [PATCH] ... original commit: 9e83b31ae959bf5059a4cf42554e29ff1ea4439c --- collects/framework/private/text.ss | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 60b39f13..2019e25d 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -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)