com-edit-slot ( inspector -- )

Vocabulary

ui.tools.inspector

Inputs

inspector

an object

Outputs

None

Definition

USING: accessors kernel mirrors ui ui.gadgets ui.gadgets.tables
ui.tools.inspector.slots ;

IN: ui.tools.inspector

: com-edit-slot ( inspector -- )
    [ close-window ] swap
    [ [ com-refresh ] curry ] [ control-value make-mirror ]
    [ table>> (selected-row) ] tri
    [ [ key>> ] [ key-string>> ] bi slot-editor-window ]
    [ 4drop ] if ;