From d3dffc7e92c58fdfc4ed258b3e5aafc48f488f70 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 26 Nov 2003 23:49:42 +0000 Subject: [PATCH] *** empty log message *** original commit: 9b73a2cfac8f7807b815e80905700d9847d849f7 --- collects/framework/private/color.ss | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index 636e6658..b483e80e 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -247,7 +247,7 @@ (printf "colorer thread: ~s\n" exn) (break-enabled #f) (semaphore-wait mutex-lock)))) - (re-tokenize (open-input-text-editor this current-pos end-pos) + (re-tokenize (open-input-text-editor this current-pos end-pos (lambda (x) (values #f 1))) current-pos)) ;; Breaks should be disabled from exit of re-tokenize ;; lock will be held @@ -410,6 +410,13 @@ (do-insert/delete edit-start-pos (- change-length)) (super-after-delete edit-start-pos change-length)) + (rename (super-on-close on-close)) + (define/override (on-close) + (when remove-prefs-callback-thunk + (remove-prefs-callback-thunk) + (set! remove-prefs-callback-thunk #f)) + (super-on-close)) + (super-instantiate ()))) (define -text% (text-mixin text:keymap%))