From 5280ef15175cdcd93fb8d4d6bd4cb9cbc9d5f386 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Mar 2012 17:25:48 -0500 Subject: [PATCH] clear the interactions text's undos from the drracket thread, not from the user thread --- collects/drracket/private/unit.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 95dec42ed3..83e32277ed 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -2813,7 +2813,10 @@ module browser threading seems wrong. text-port #t (λ () - (send interactions-text clear-undos))))) + (parameterize ([current-eventspace drracket:init:system-eventspace]) + (queue-callback + (λ () + (send interactions-text clear-undos)))))))) (inherit revert save) (define/private (check-if-save-file-up-to-date)