add the name of the function to the message string in the gui-event logger

original commit: 3aac6ec7152130046fca86ab272a1e5da4d3fdd3
2012-11-16 07:26:06 -06:00 · 2012-11-16 07:26:06 -06:00 · 5963c92d63
commit 5963c92d63
parent 67660d780d
1 changed files with 1 additions and 1 deletions
--- 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: