<split-panes-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors kernel models ui.gadgets ui.gadgets.buttons
ui.gadgets.labels ui.gadgets.tracks ui.pens.solid ui.theme ;

IN: ui-demo

:: <split-panes-section> ( -- gadget )
    50 <model> :> ratio horizontal demo-split new-track
    ratio >>model
    :> split split "Left pane" <label> <framed> 1 track-add
    demo-divider new split >>split { 8 0 } >>dim
    toolbar-background <solid> >>interior f track-add
    "Right pane" <label> <framed> 1 track-add drop
    <section>
    "Drag the divider to resize the two panes. This example compos..."
    <prose> add-gadget split { 520 180 } <stage> add-gadget
    "Left share (%):" ratio <readout> <labeled-row> add-gadget
    "Reset split" [ drop 50 ratio set-model ] <border-button>
    <pref-width> add-gadget <page> ;