Clear input area when grafting listener

2008-05-22 01:16:12 -05:00 · 2008-05-22 01:16:12 -05:00 · 495f2d82be
parent 230e9476a7
commit 495f2d82be
1 changed files with 1 additions and 0 deletions
--- a/extra/ui/tools/listener/listener.factor
+++ b/extra/ui/tools/listener/listener.factor
@ -160,6 +160,7 @@ M: stack-display tool-scroller
    {
        [ com-end ]
        [ clear-output ]
+        [ input>> clear-input ]
        [ start-listener-thread ]
        [ wait-for-listener ]
    } cleave ;