suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
original commit: 3aac6ec7152130046fca86ab272a1e5da4d3fdd3
This commit is contained in:
Robby Findler 2012-11-16 07:26:06 -06:00
parent 67660d780d
commit 5963c92d63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/common/queue.rkt
View File

@ -453,7 +453,7 @@
(define before (current-inexact-milliseconds)) (define before (current-inexact-milliseconds))
(when (log-level? event-logger 'debug) (when (log-level? event-logger 'debug)
(log-message 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)))) (gui-event before #f (object-name thunk))))
(let ([b (box thunk)]) (let ([b (box thunk)])
;; use the event-dispatch handler: ;; use the event-dispatch handler: