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

ui.gadgets.panes: fix use of string-lines that prevented icons from showing in help browser.

locals-and-roots
John Benediktsson 2016-03-20 15:56:02 -07:00
parent e2a339cb60
commit c04ce00b45
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,6 +99,9 @@ M: pane selected-children
: smash-pane ( pane -- gadget ) [ pane-nl ] [ output>> smash-line ] bi ; : smash-pane ( pane -- gadget ) [ pane-nl ] [ output>> smash-line ] bi ;
: pane-lines ( str -- lines )
string-lines [ { "" } ] when-empty ;
: pane-write ( seq pane -- ) : pane-write ( seq pane -- )
[ pane-nl ] [ current>> stream-write ] [ pane-nl ] [ current>> stream-write ]
bi-curry interleave ; bi-curry interleave ;
@ -117,10 +120,10 @@ M: pane-stream stream-write1
[ current>> stream-write1 ] do-pane-stream ; [ current>> stream-write1 ] do-pane-stream ;
M: pane-stream stream-write M: pane-stream stream-write
[ [ string-lines ] dip pane-write ] do-pane-stream ; [ [ pane-lines ] dip pane-write ] do-pane-stream ;
M: pane-stream stream-format M: pane-stream stream-format
[ [ string-lines ] 2dip pane-format ] do-pane-stream ; [ [ pane-lines ] 2dip pane-format ] do-pane-stream ;
M: pane-stream dispose drop ; M: pane-stream dispose drop ;