steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/tools/listener/listener.factor
View File

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