demo-split

Vocabulary

ui-demo

Definition

USING: ui.gadgets.tracks ;

IN: ui-demo

TUPLE: demo-split < track ;

Methods

USING: accessors arrays math models ui-demo ui.gadgets ;

M:: demo-split model-changed ( model split -- )
    model value>> 100 / :> share split share f 1 share - 3array
    >>sizes relayout ;