From 495f2d82be0ad7a7cabb42f325e56982829f7131 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 22 May 2008 01:16:12 -0500
Subject: [PATCH] Clear input area when grafting listener

---
 extra/ui/tools/listener/listener.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/extra/ui/tools/listener/listener.factor b/extra/ui/tools/listener/listener.factor
index 48800c0918..013bc57584 100755
--- 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 ;