has-focus? in editor:basic<%>

This function returns #t when the editor has the keyboard focus. It is implemented using: on-focus