pane-stream
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Pane gadgets

Prev:	<pane-control> ( model quot -- pane )
Next:	<pane-stream> ( pane -- pane-stream )

Vocabulary
ui.gadgets.panes

Class description
Pane streams implement the portion of the Stream protocol responsible for output of text, including full support for Text styles. Pane streams also support direct output of gadgets via write-gadget and print-gadget. Pane streams are created by calling <pane-stream>.

Notes
Long ASCII strings without control characters use a simpler line-splitting path. Output remains a snapshot of the supplied string. Unicode and newline handling are the same on all UI backends.

Definition

IN: ui.gadgets.panes

TUPLE: pane-stream pane parent ;

Methods

USING: accessors destructors kernel ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane-stream dispose
    dup parent>>
    [ [ pane>> smash-pane ] dip write-gadget ] [ drop ] if* ;


USING: io.styles ui.gadgets.panes ui.gadgets.panes.private ;

M: pane-stream make-block-stream <styled-pane-stream> ;


USING: io.styles kernel ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane-stream make-cell-stream drop f <styled-pane-stream> ;


USING: io.styles kernel ui.gadgets.panes ;

M: pane-stream make-span-stream
    swap <style-stream> <ignore-close-stream> ;


USING: io kernel ui.gadgets.panes ;

M: pane-stream stream-element-type drop +character+ ;


USING: io kernel ui.gadgets.panes ;

M: pane-stream stream-flush drop ;


USING: io.styles kernel ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane-stream stream-format
    [ [ pane-lines ] 2dip pane-format ] do-pane-stream ;


USING: io ui.gadgets.panes ui.gadgets.panes.private ;

M: pane-stream stream-nl [ pane-nl ] do-pane-stream ;


USING: io kernel ui.gadgets.panes ui.gadgets.panes.private ;

M: pane-stream stream-write
    [ [ pane-lines ] dip pane-write ] do-pane-stream ;


USING: accessors io.styles kernel sequences ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane-stream stream-write-table
    [
        swap [ [ stream>> pane>> smash-pane ] map ] map
        <styled-grid>
    ] dip write-gadget ;


USING: io ui.gadgets.panes ui.gadgets.panes.private ;

M: pane-stream stream-write1 [ pane-write1 ] do-pane-stream ;


USING: accessors kernel ui.gadgets ui.gadgets.panes
ui.gadgets.panes.private ;

M: pane-stream write-gadget
    [ current>> swap add-gadget drop ] do-pane-stream ;