restore focus ring on text-field% (by chaining to superclass on-set/kill-fpcus in editor-canvas%)

svn: r15846
This commit is contained in:
Matthew Flatt 2009-09-01 14:31:58 +00:00
parent 47efa1c6fb
commit 941d8c47c3

View File

@ -356,12 +356,14 @@
(thunk)))
(define/override (on-set-focus)
(super on-set-focus)
(if (eq? 'windows (system-type))
(queue-window-callback
this
(lambda () (on-focus #t)))
(on-focus #t)))
(define/override (on-kill-focus)
(super on-kill-focus)
(if (eq? 'windows (system-type))
(queue-window-callback
this