From 5963c92d63e4b77d48ba9546c4e80e28ceef2ee4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 16 Nov 2012 07:26:06 -0600 Subject: [PATCH] add the name of the function to the message string in the gui-event logger original commit: 3aac6ec7152130046fca86ab272a1e5da4d3fdd3 --- collects/mred/private/wx/common/queue.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/common/queue.rkt b/collects/mred/private/wx/common/queue.rkt index 35ba24af..b445134e 100644 --- a/collects/mred/private/wx/common/queue.rkt +++ b/collects/mred/private/wx/common/queue.rkt @@ -453,7 +453,7 @@ (define before (current-inexact-milliseconds)) (when (log-level? event-logger 'debug) (log-message event-logger 'debug - "starting to handle an event" + (format "starting to handle an event from ~a" (object-name thunk)) (gui-event before #f (object-name thunk)))) (let ([b (box thunk)]) ;; use the event-dispatch handler: