Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Audio player volume |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
05fbc5d044ac858da1bf1f69490157bc |
User & Date: | bernd 2020-06-28 14:26:49.010 |
Context
2020-06-28
| ||
22:32 | jni-based volume control only on Android check-in: 2a562578fe user: bernd tags: trunk | |
14:26 | Audio player volume check-in: 05fbc5d044 user: bernd tags: trunk | |
2020-06-25
| ||
15:30 | GUI for android play and recording check-in: 528d240a4a user: bernd tags: trunk | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 | ELSE 128 128 glue*thumb dummy-thumb }}thumb >r r@ [n:h update-thumb ;] { w^ xt } xt cell hash key| fetch-finish# #+! hash key| ?fetch THEN {{ glue*ll }}glue r> }}v 40%bv box[] ; Hash: audio# [IFDEF] linux also require minos2/pulse-audio.fs pulse-init require minos2/opus-codec.fs previous ' bye is net2o-bye [ELSE] | > | 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 | ELSE 128 128 glue*thumb dummy-thumb }}thumb >r r@ [n:h update-thumb ;] { w^ xt } xt cell hash key| fetch-finish# #+! hash key| ?fetch THEN {{ glue*ll }}glue r> }}v 40%bv box[] ; Hash: audio# 0 Value audio-playing [IFDEF] linux also require minos2/pulse-audio.fs pulse-init require minos2/opus-codec.fs previous ' bye is net2o-bye [ELSE] |
︙ | ︙ | |||
1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 | : audio-play[] ( addr u o -- o ) [: current-player @ ?dup-IF caller-w <> IF play$ $@ current-player @ >o to text$ o> +sync THEN THEN caller-w .text$ play$ $@ str= IF addr data $@ ['] >msg-audio-player catch 0= IF pause$ $@ caller-w >o to text$ o> +sync ELSE 2drop THEN ELSE [IFDEF] android opensles:pause-play [ELSE] pause-play [THEN] play$ $@ caller-w >o to text$ o> +sync | > | 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 | : audio-play[] ( addr u o -- o ) [: current-player @ ?dup-IF caller-w <> IF play$ $@ current-player @ >o to text$ o> +sync THEN THEN caller-w .text$ play$ $@ str= dup to audio-playing IF addr data $@ ['] >msg-audio-player catch 0= IF pause$ $@ caller-w >o to text$ o> +sync ELSE 2drop THEN ELSE [IFDEF] android opensles:pause-play [ELSE] pause-play [THEN] play$ $@ caller-w >o to text$ o> +sync |
︙ | ︙ | |||
1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 | text-chat-cmd-o to chat-cmd-o \ top box box-actor class end-class net2o-actor :noname ( ekey -- ) case k-f5 of color-theme 0= IF anim-end 0.25e o [: fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof k-f6 of color-theme 0<> IF anim-end 0.25e o [: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof k-f7 of >normalscreen endof k-f8 of >fullscreen endof [ box-actor :: ekeyed ] EXIT endcase ; net2o-actor to ekeyed : net2o[] ( o -- o ) >o net2o-actor new !act o o> ; 0 Value invitations 0 Value invitations-list 0 Value invitations-notify | > > > > > > > > | 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 | text-chat-cmd-o to chat-cmd-o \ top box box-actor class end-class net2o-actor also jni :noname ( ekey -- ) case k-volup of audio-playing IF 1 1 clazz .audioManager .adjustVolume ELSE k-up [ box-actor :: ekeyed ] THEN endof k-voldown of audio-playing IF -1 1 clazz .audioManager .adjustVolume ELSE k-down [ box-actor :: ekeyed ] THEN endof k-f5 of color-theme 0= IF anim-end 0.25e o [: fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof k-f6 of color-theme 0<> IF anim-end 0.25e o [: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;] >animate THEN endof k-f7 of >normalscreen endof k-f8 of >fullscreen endof [ box-actor :: ekeyed ] EXIT endcase ; net2o-actor to ekeyed previous : net2o[] ( o -- o ) >o net2o-actor new !act o o> ; 0 Value invitations 0 Value invitations-list 0 Value invitations-notify |
︙ | ︙ | |||
1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 | THEN secret-keys# IF show-nicks ELSE lacks-key? IF 0e 0 [: drop k-enter id-toggler .act .ekeyed ;] >animate THEN THEN 1config !widgets get-order n>r ['] /chat >body 1 set-order ['] widgets-loop catch text-chat-cmd-o to chat-cmd-o nr> set-order throw ; ' net2o-gui is run-gui | > | 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 | THEN secret-keys# IF show-nicks ELSE lacks-key? IF 0e 0 [: drop k-enter id-toggler .act .ekeyed ;] >animate THEN THEN 1config !widgets color-theme 0.5e f+ ColorMode! +sync get-order n>r ['] /chat >body 1 set-order ['] widgets-loop catch text-chat-cmd-o to chat-cmd-o nr> set-order throw ; ' net2o-gui is run-gui |
︙ | ︙ |