touchbar-commands ( -- commands/f gadget )

Vocabulary

ui.backend.cocoa.views

Inputs

None

Outputs

commands/f	an object
gadget	an object

Definition

USING: accessors assocs classes kernel namespaces sequences
ui.gadgets.worlds words ;

IN: ui.backend.cocoa.views

: touchbar-commands ( -- commands/f gadget )
    world get-global [
        children>> [
            class-of "commands" word-prop "touchbar" of dup
            [ commands>> ] when
        ] map-find
    ] [ f f ] if* ;