pause-audio-gadget ( audio-gadget -- )


Vocabulary
audio.gadget.private

Inputs
audio-gadgetan object


Outputs
None

Definition
USING: accessors audio.engine kernel ;

IN: audio.gadget.private

: pause-audio-gadget ( audio-gadget -- )
[ dup play-label>> relabel-audio-gadget ]
[ paused swap state<< ] [ audio-clip>> pause-clip ] tri ;