audio-gadget

Vocabulary

audio.gadget

Definition

USING: ui.gadgets.buttons ;

IN: audio.gadget

TUPLE: audio-gadget < button
    play-label pause-label audio audio-clip state ;

Methods

USING: accessors audio.engine audio.gadget audio.gadget.private
generic kernel namespaces ui.gadgets ;

M: audio-gadget graft*
    [ M\ audio-gadget graft* (call-next-method) ] [
        dup audio>> [ gadget-audio-engine get-global f ] dip
        f <static-audio-clip> >>audio-clip drop
    ] bi ;


USING: accessors audio.gadget audio.gadget.private destructors
generic kernel ui.gadgets ;

M: audio-gadget ungraft*
    [ pause-audio-gadget ] [ audio-clip>> dispose ]
    [ M\ audio-gadget ungraft* (call-next-method) ] tri ;