From 543f70f63be414b7dc90b73b56da6d3c6185144e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 24 Oct 2000 15:36:31 +0000 Subject: [PATCH] ... original commit: eab1a0e73fd732d48d3e9198a687ab971966cf94 --- collects/framework/prefs.ss | 1 + collects/framework/text.ss | 9 ++++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/framework/prefs.ss b/collects/framework/prefs.ss index bd2bd940..27f7dc14 100644 --- a/collects/framework/prefs.ss +++ b/collects/framework/prefs.ss @@ -173,6 +173,7 @@ (hash-table-put! saved-defaults p (make-pref pref)) pref)] [(pref? saved-default) + (printf "3~n") (pref-value saved-default)])))] [default-okay? (checker default-value)]) (unless default-okay? diff --git a/collects/framework/text.ss b/collects/framework/text.ss index fa003fbd..e70fb2e0 100644 --- a/collects/framework/text.ss +++ b/collects/framework/text.ss @@ -28,6 +28,7 @@ (define basic-mixin (mixin (editor:basic<%> (class->interface text%)) (basic<%>) args (inherit get-canvases get-admin split-snip get-snip-position + begin-edit-sequence end-edit-sequence set-autowrap-bitmap delete find-snip invalidate-bitmap-cache set-file-format get-file-format @@ -273,6 +274,7 @@ (rename [super-on-change-style on-change-style] [super-after-change-style after-change-style] + [super-on-insert on-insert] [super-after-insert after-insert]) (override [on-change-style @@ -280,13 +282,18 @@ (when styles-fixed? (set! styles-fixed-edit-modified? (is-modified?))) (super-on-change-style start len))] + [on-insert + (lambda (start len) + (begin-edit-sequence) + (super-on-insert start len))] [after-insert (lambda (start len) (when styles-fixed? (change-style (send (get-style-list) find-named-style "Standard") start (+ start len))) - (super-after-insert start len))] + (super-after-insert start len) + (end-edit-sequence))] [after-change-style (lambda (start len) (super-after-change-style start len)