<audio-gadget> ( audio -- gadget )

Vocabulary

audio.gadget

Inputs

audio

an object

Outputs

gadget

an object

Definition

USING: accessors audio.gadget.private images.viewer namespaces
ui.gadgets.buttons ui.gadgets.buttons.private ;

IN: audio.gadget

:: <audio-gadget> ( audio -- gadget )
    initialize-audio-gadgets play-label-image get-global
    <image-gadget> :> play-label pause-label-image get-global
    <image-gadget> :> pause-label play-label
    [ click-audio-gadget ] audio-gadget new-button
    border-button-theme audio >>audio paused >>state
    play-label >>play-label pause-label >>pause-label ;