From c2d9b0dc3ee15031323c780308e4f12a7c875f86 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 5 Mar 2010 19:43:50 +0000 Subject: [PATCH] set the locked state flags during the initialization of a text% object (this bug found by random test case generation) svn: r18475 --- collects/mred/private/wxme/text.ss | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss index c2344d5352..21d3115c7d 100644 --- a/collects/mred/private/wxme/text.ss +++ b/collects/mred/private/wxme/text.ss @@ -111,14 +111,10 @@ on-edit-sequence after-edit-sequence on-display-size) - - (define is-locked-for-read? #f) - (define is-locked-for-flow? #f) - (define is-locked-for-write? #f) - (define read-locked? #f) - (define flow-locked? #f) - (define write-locked? #f) + (define read-locked? #t) + (define flow-locked? #t) + (define write-locked? #t) (define hilite-on? #t) @@ -333,7 +329,15 @@ (define tabs (list->vector tab-stops)) (make-only-snip) - + + (set! read-locked? #f) + (set! flow-locked? #f) + (set! write-locked? #f) + ;;; from here on, it is only method definitions, + ;;; so we can unlock the editor now. If code with + ;;; effects is added below, be sure to move the + ;;; unlocking. + (def/override (~) (set! word-break-map standard-wordbreak) (let loop ([snip snips])