fix app repl prompt

ghostandthemachine · Sep 7, 2012 · 3997eec · 3997eec
1 parent 292c3d4
commit 3997eec
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/src/sketchpad/repl/app/component.clj b/src/sketchpad/repl/app/component.clj
@@ -16,10 +16,13 @@
     (read-string (.take q)))
 
 (defn- sketchpad-prompt [rsta]
-  (buffer.action/append-text rsta (str \newline (ns-name *ns*) "=> ")))
+  (seesaw/invoke-later
+    (let [prompt-ns (ns-name *ns*)]
+      (buffer.action/append-text rsta (str \newline prompt-ns "=> ")))))
 
 (defn- sketchpad-printer [rsta value]
-  (buffer.action/append-text rsta (str value)))
+  (seesaw/invoke-later
+    (buffer.action/append-text rsta (str value))))
 
 (defn- create-application-repl [repl-rsta]
   (let [application-repl-q (LinkedBlockingDeque. )

diff --git a/src/sketchpad/repl/app/sketchpad_repl.clj b/src/sketchpad/repl/app/sketchpad_repl.clj
@@ -31,10 +31,12 @@
 
 		(write
 		([c]
-			(buffer.action/append-text rsta (str c))
+			(seesaw/invoke-later
+				(buffer.action/append-text rsta (str c)))
 			(proxy-super write c))
 		([cbuf off len]
-			(buffer.action/append-text rsta (str cbuf))
+			(seesaw/invoke-later
+				(buffer.action/append-text rsta (str cbuf)))
 			(proxy-super write cbuf off len))))]
 		writer))