click-audio-gadget ( audio-gadget -- )

Vocabulary

audio.gadget.private

Inputs

audio-gadget

an object

Outputs

None

Definition

USING: accessors audio.engine.private combinators kernel
namespaces ;

IN: audio.gadget.private

: click-audio-gadget ( audio-gadget -- )
    gadget-audio-engine get make-engine-current dup state>> {
        { playing [ pause-audio-gadget ] }
        { paused [ play-audio-gadget ] }
    } case ;