ui.tools.listener: change set-listener-font to modify style-stream.

diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor
index 99f781f8f1d820ff480a4679cb054f3c00a34702..7b735ecee7fcf98e8f4a45c3b67f948d597a9d8f 100644 (file)
--- a/basis/ui/tools/listener/listener.factor
+++ b/basis/ui/tools/listener/listener.factor
@@ -487,26 +487,16 @@ M: listener-gadget graft*
 M: listener-gadget ungraft*
     [ com-end ] [ call-next-method ] bi ;
 
-<PRIVATE
-
-:: make-font-style ( family size -- assoc )
-    H{ } clone
-        family font-name pick set-at
-        size font-size pick set-at ;
-
-PRIVATE>
-
 :: set-listener-font ( family size -- )
-    get-listener input>> :> inter
-    family size make-font-style
-    inter output>> make-span-stream :> ostream
-    ostream inter output<<
-    inter [
+    get-listener input>> :> interactor
+    interactor output>> :> output
+    interactor [
         clone
         family >>name
         size >>size
     ] change-font f >>line-height drop
-    ostream output-stream set ;
+    family font-name output style>> set-at
+    size font-size output style>> set-at ;
 
 <PRIVATE