steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
db4
Joe Groff 2012-02-18 21:55:59 -08:00
parent ee721d1811
commit 4db4b3e171
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/gadgets/panes/panes.factor
View File

@ -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.gadgets.menus ui.clipboards ui.gestures ui.traverse ui.render
ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks
ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment
colors io.styles ; colors io.styles classes ;
FROM: io.styles => foreground background ; FROM: io.styles => foreground background ;
IN: ui.gadgets.panes IN: ui.gadgets.panes
@ -142,8 +142,16 @@ PRIVATE>
: <pane> ( -- pane ) f pane new-pane ; : <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 -- ) GENERIC: write-gadget ( gadget stream -- )
M: object write-gadget
[ gadget-alt-text ] dip stream-write ;
M: filter-writer write-gadget M: filter-writer write-gadget
stream>> write-gadget ; stream>> write-gadget ;