diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor index 4e2cb0b1e9..250fc371c7 100644 --- a/basis/ui/tools/listener/listener.factor +++ b/basis/ui/tools/listener/listener.factor @@ -25,7 +25,7 @@ TUPLE: listener-gadget < track input output ; : listener-input, ( listener -- listener ) dup - [ >>input ] [ 1 { 0 0 } >>align f track-add ] bi ; + [ >>input ] [ 1 { 1 1 } >>fill f track-add ] bi ; : welcome. ( -- ) "If this is your first time with Factor, please read the " print diff --git a/basis/ui/tools/search/search.factor b/basis/ui/tools/search/search.factor index 033aacc1b3..cf980cfc23 100644 --- a/basis/ui/tools/search/search.factor +++ b/basis/ui/tools/search/search.factor @@ -66,7 +66,7 @@ search-field H{ >>field seq limited? init-search-model presenter over >>list - dup field>> 1 { 0 0 } >>align f track-add + dup field>> 1 { 1 1 } >>fill f track-add dup list>> 1 track-add string over field>> set-editor-string dup field>> end-of-document ;