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>.

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-format ] 2curry split-pane ] 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-write ] curry split-pane ] 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 ;