ui.gadgets.panes: add gadget-alt-text

Provide a default implementation of write-gadget that writes plain text to a stream that doesn't support gadgets.

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 7752ae2ed6d54412f7c11f865f1f220af3a01645..24a7b661f835794a22980dc680c3a926659994eb 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -10,7 +10,7 @@ ui.gadgets.paragraphs ui.gadgets.incremental ui.gadgets.packs
 ui.gadgets.menus ui.clipboards ui.gestures ui.traverse ui.render
 ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks
 ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment
-colors io.styles ;
+colors io.styles classes ;
 FROM: io.styles => foreground background ;
 IN: ui.gadgets.panes
 
@@ -142,8 +142,16 @@ PRIVATE>
 
 : <pane> ( -- pane ) f pane new-pane ;
 
+GENERIC: gadget-alt-text ( gadget -- string )
+
+M: object gadget-alt-text
+    class-of name>> "( " " )" surround ;
+
 GENERIC: write-gadget ( gadget stream -- )
 
+M: object write-gadget
+    [ gadget-alt-text ] dip stream-write ;
+
 M: filter-writer write-gadget
     stream>> write-gadget ;