ui.gadgets.panes: fix #1661.

Using old "split-lines" behavior that was needed by documents vocabulary,
rather than the new "string-lines" behavior that doesn't indicate if the
string is newline terminated.
char-rename
John Benediktsson 2016-07-16 07:37:15 -07:00
parent 5fb8ca95fa
commit e8a9582400
1 changed files with 13 additions and 15 deletions

View File

@ -1,15 +1,16 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes combinators destructors fonts USING: accessors assocs classes combinators destructors
fry io io.styles kernel locals math.rectangles math.vectors documents.private fonts fry io io.styles kernel locals
memoize models namespaces sequences sorting splitting strings math.rectangles math.vectors memoize models namespaces sequences
ui.baseline-alignment ui.clipboards ui.gadgets sorting splitting strings ui.baseline-alignment ui.clipboards
ui.gadgets.borders ui.gadgets.grid-lines ui.gadgets.grids ui.gadgets ui.gadgets.borders ui.gadgets.grid-lines
ui.gadgets.icons ui.gadgets.incremental ui.gadgets.labels ui.gadgets.grids ui.gadgets.icons ui.gadgets.incremental
ui.gadgets.menus ui.gadgets.packs ui.gadgets.paragraphs ui.gadgets.labels ui.gadgets.menus ui.gadgets.packs
ui.gadgets.presentations ui.gadgets.private ui.gadgets.scrollers ui.gadgets.paragraphs ui.gadgets.presentations
ui.gadgets.tracks ui.gestures ui.images ui.pens.solid ui.render ui.gadgets.private ui.gadgets.scrollers ui.gadgets.tracks
ui.theme ui.traverse ; ui.gestures ui.images ui.pens.solid ui.render ui.theme
ui.traverse ;
FROM: io.styles => foreground background ; FROM: io.styles => foreground background ;
FROM: ui.gadgets.wrappers => <wrapper> ; FROM: ui.gadgets.wrappers => <wrapper> ;
IN: ui.gadgets.panes IN: ui.gadgets.panes
@ -99,9 +100,6 @@ 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 ;
@ -120,10 +118,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
[ [ pane-lines ] dip pane-write ] do-pane-stream ; [ [ split-lines ] dip pane-write ] do-pane-stream ;
M: pane-stream stream-format M: pane-stream stream-format
[ [ pane-lines ] 2dip pane-format ] do-pane-stream ; [ [ split-lines ] 2dip pane-format ] do-pane-stream ;
M: pane-stream dispose drop ; M: pane-stream dispose drop ;