<inspector-gadget> ( model -- gadget )

Vocabulary

ui.tools.inspector

Inputs

model

an object

Outputs

gadget

an object

Definition

USING: accessors kernel ui.gadgets ui.gadgets.labeled
ui.gadgets.scrollers ui.gadgets.toolbar ui.gadgets.tracks
ui.theme ui.tools.common ;

IN: ui.tools.inspector

: <inspector-gadget> ( model -- gadget )
    vertical inspector-gadget new-track
    with-lines add-toolbar swap >>model
    dup model>> <inspector-table> >>table
    dup model>> <summary-gadget> margins white-interior "Object"
    object-color <colored-labeled-gadget> f track-add
    dup table>> <scroller> margins white-interior "Contents"
    contents-color <colored-labeled-gadget> 1 track-add ;