apply-style ( style gadget key quot -- style gadget )

Vocabulary

ui.gadgets.panes.private

Inputs

style	an object
gadget	an object
key	an object
quot	an object

Outputs

style	an object
gadget	an object

Definition

USING: assocs kernel ;

IN: ui.gadgets.panes.private

: apply-style ( style gadget key quot -- style gadget )
    [ pick at ] dip when* ; inline