Usability tweak: focus on listener input area when input presentation is clicked

db4
Slava Pestov 2008-11-11 11:46:35 -06:00
parent fed799a32c
commit d7dd084b8d
1 changed files with 2 additions and 1 deletions

View File

@ -50,7 +50,8 @@ M: listener-gadget tool-scroller
listener>> input>> interactor-busy? ;
: listener-input ( string -- )
get-workspace listener>> input>> set-editor-string ;
get-workspace listener>> input>>
[ set-editor-string ] [ request-focus ] bi ;
: (call-listener) ( quot listener -- )
input>> interactor-call ;