From ff990717f8b843e43a95f04bdc128cad4f2443b3 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 20 Feb 2012 23:49:01 -0800
Subject: [PATCH] audio.gadget: printable audio play button

---
 extra/audio/gadget/gadget.factor |  74 +++++++++++++++++++++++++++++++
 extra/audio/gadget/pause.png     | Bin 0 -> 957 bytes
 extra/audio/gadget/play.png      | Bin 0 -> 1078 bytes
 3 files changed, 74 insertions(+)
 create mode 100644 extra/audio/gadget/gadget.factor
 create mode 100644 extra/audio/gadget/pause.png
 create mode 100644 extra/audio/gadget/play.png

diff --git a/extra/audio/gadget/gadget.factor b/extra/audio/gadget/gadget.factor
new file mode 100644
index 0000000000..28d4d75290
--- /dev/null
+++ b/extra/audio/gadget/gadget.factor
@@ -0,0 +1,74 @@
+USING: accessors audio audio.engine combinators images.loader
+images.viewer init kernel locals namespaces ui.gadgets
+ui.gadgets.buttons ui.gadgets.panes ;
+FROM: ui.gadgets.buttons.private => border-button-theme ;
+FROM: audio.engine.private => make-engine-current ;
+IN: audio.gadget
+
+TUPLE: audio-gadget < button
+    play-label pause-label
+    audio-clip state ;
+
+<PRIVATE
+
+CONSTANT: play-label-image-path "vocab:audio/gadget/play.png"
+CONSTANT: pause-label-image-path "vocab:audio/gadget/pause.png"
+
+SYMBOLS: play-label-image pause-label-image gadget-audio-engine ;
+
+[
+    f play-label-image set-global
+    f pause-label-image set-global
+    f gadget-audio-engine set-global
+] "audio.gadget" add-startup-hook
+
+: initialize-audio-gadgets ( -- )
+    gadget-audio-engine get-global [
+        play-label-image-path load-image
+        play-label-image set-global
+
+        pause-label-image-path load-image
+        pause-label-image set-global
+
+        <standard-audio-engine> dup start-audio*
+        gadget-audio-engine set-global
+    ] unless ;
+
+SYMBOLS: playing paused ;
+
+: relabel-audio-gadget ( audio-gadget label -- )
+    [ drop clear-gadget ] [ add-gadget drop ] 2bi ;
+
+: pause-audio-gadget ( audio-gadget -- )
+    [ dup play-label>> relabel-audio-gadget ]
+    [ paused swap state<< ]
+    [ audio-clip>> pause-clip ] tri ;
+
+: play-audio-gadget ( audio-gadget -- )
+    [ dup pause-label>> relabel-audio-gadget ]
+    [ playing swap state<< ]
+    [ audio-clip>> play-clip ] tri ;
+
+: click-audio-gadget ( audio-gadget -- )
+    gadget-audio-engine get make-engine-current
+    dup state>> {
+        { playing [ pause-audio-gadget ] }
+        { paused [ play-audio-gadget ] }
+    } case ;
+
+PRIVATE>
+
+:: <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
+        gadget-audio-engine get-global f audio t <static-audio-clip>
+           >>audio-clip
+        paused >>state
+        play-label >>play-label
+        pause-label >>pause-label ;
+
+: audio. ( audio -- )
+    <audio-gadget> gadget. ;
diff --git a/extra/audio/gadget/pause.png b/extra/audio/gadget/pause.png
new file mode 100644
index 0000000000000000000000000000000000000000..aa51155314ff9dfa9f378b64a69820a4ab5ad5a5
GIT binary patch
literal 957
zcmaJ=zi-n(7<H+Hs!Bx&mO_V~T!pEz@9ZRQte7;36B-FeQ5vZc1FB<R5-YXO*cakt
zD&6|eATcw*%EAZ|Y)otn1hF8(IZaXqf~E8Q(0lKD-*?|#)@zTpHt%n89Jf_H(i?2P
z9gmHh?7#bcYO?7bEw|_~>CmAWV6I@3HU?GK?BWJC?a{M$ILC48z-hK<%Xq9>#1+gK
zBSfyx*c_M3N4{zGF$Hbhbv%v#_WBJE99!d0(grmA67D%i;{YFzYfWq1x3V^$e+Y7s
z$^=|YO%S<fUZ_SIKhss&IzAS8FoV#(#$TCg8Ff%10S0LSCM}qOAcF)XrxZom2NFb3
zgp!D)BvMpaQXvHMk7v;WyQ4Pr$~+d^X?%}TUlqmSa3~CAfdpL<WwY5>Lz0pVkqk#3
zHKU{#?kyB_99n_nQ-^pURy5mWKsBB@y-LCLm$F_sFB2=67@59^1Q@5Z02;>sp{~0`
zhqQsO{r*!pY>s>^HgHG=fyFMavloZ*)lz^>N`fXKXNxM<dxVm(M|@B^PJ<K2v&k@=
zp$$W=dLcDE3s-fGXMDkNY!wzHr07{0rBYdh%J866sFa{wEXx@rSD>=s>ckqj*rN-s
zea%g+<i?HQ`Yf`J1LrxmD*<uAEMe7I?FFsWn{(~eUZj;=k(m+WYyIn*7e}mj;^new
z*=E`H*kipOu%`a}`{M`pAmplEXhxsfzoygtdgA=@Me*>}+WyxYiA2KB|CmhRmpePT
lr`ze%*7n<jiG26)e2v?9a%<<o&-WMcgQ}Km`pe?!#UCPAD6#+m

literal 0
HcmV?d00001

diff --git a/extra/audio/gadget/play.png b/extra/audio/gadget/play.png
new file mode 100644
index 0000000000000000000000000000000000000000..7375018aca8134357e0a29357c566d554159b178
GIT binary patch
literal 1078
zcmaJ=-%Aux7#&wkleQ#!&>*^uh*0j%%)0CD4z9X8qwbm`vM%gGWX;apbtj#<)6CT!
zC1jOIg`yY#2_u5&DI%0os5f6C4Dvx=dJE~X!0xE4J+uwnxj#7PeCPY_cUMM72EC0}
z8!3wNrjlZs%uViSI7j~1e;&$YYQg<EJcbImBwLV*t0)gaN|z^K8p`VIgHN!VqH2Mb
z$>E$d%qvLu%Pz+6=q6!PRCljq%E~0fAP*-rBS!ytyG{d5jnUbV#7d?Bi&}Edf@5<d
z8D(x#iK=vO59oGyBA`Po14o}SY~G2{N4h*&yT=R-jv#n4MjxBXNuxkO76c(b>r>b+
z7Iblbt}_@8hdV%k<yeLdFkHaLh560^&$8g;qe(PNE%0e^;3O8=#poi&CeJXXQpsQH
z^doD6;iA!~s}TtJ2*PL28d!FGhTU3G5TUJDnu#@J09R4YqiGzYiPPg0bn{f!uusZF
z3dT6H$#8zwO{oHur2j*8{S<BEG(7YBPhmSVYeFUsZ8U8u<l+jgZYYx%EGT1SWe}RG
zRB^P3FtUrt1j1MdWHm!YCHn|1Nqow%v1}+XCB|sN_iLKU2gHQXnTSTYU@*#Y{cI#2
z42wcYhzN;zJP_)ya7Cm{>(Iazu6o9eSLM2mpqnJJ2rX>}ssk3%!BN7zR^3aus@@4#
zt?ngKmCFz_jC-wrU32A#^p3kcZCbK9ZF^{tUbje7zkB~-pFD^cDKVaLzUF@)9`@F@
zl~)!LeXnXdzI)cz)|SevH=0T{2hVq2PxQ8ZuDe^#d6s{box1IfW>9F|qSWjTb<hFE
z&j&Z3<Z8FKA`1~}`HRQ9R-5lhd&@N~z@YZNJ-V`gtNGc2<K4||$Qy%T_rj*Mk$WS3
zEUy<IU#s6s^*z10GE|?;XUopTCZ_KGynqv)#oK)kFD<uIq4BoW%PmXu1y2J@%_O;@
T_B+X8_a&$LN5q$jdy9VnpUqdd

literal 0
HcmV?d00001