restore focus ring on text-field% (by chaining to superclass on-set/kill-fpcus in editor-canvas%)
svn: r15846
This commit is contained in:
parent
47efa1c6fb
commit
941d8c47c3
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user