?attributes ( gadget title/attributes -- attributes )

Vocabulary

ui.private

Inputs

gadget	an object
title/attributes	an object

Outputs

attributes

an object

Definition

USING: accessors arrays kernel strings ui.gadgets.worlds ;

IN: ui.private

: ?attributes ( gadget title/attributes -- attributes )
    dup string? [ <world-attributes> swap >>title ] [ clone ] if
    swap [ [ [ 1array ] [ f ] if* ] curry unless* ] curry
    change-gadgets ;