Check-in [2a562578fe]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:jni-based volume control only on Android
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2a562578feae0f317c181aca5560f2490b579f07
User & Date: bernd 2020-06-28 22:32:16
Context
2020-07-06
12:48
Replace rectype-name with recognizer rev. D suggested rectype-nt check-in: bfdb6f7821 user: bernd tags: trunk
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to gui.fs.

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
....
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
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
................................................................................
    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








|



>
|
|
|
|
>

|


|







 







|







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
....
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
text-chat-cmd-o to chat-cmd-o

\ top box

box-actor class
end-class net2o-actor

also [IFDEF] jni jni [THEN]

:noname ( ekey -- )
    case
	[IFDEF] jni
	    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
	[THEN]
	k-f5 of  color-theme 0=  IF  anim-end 0.25e o
		[:             fdup f>s to color-theme 1/2 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 1/2 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
................................................................................
    THEN
    secret-keys# IF  show-nicks  ELSE
	lacks-key?  IF
	    0e 0 [: drop k-enter id-toggler .act .ekeyed ;] >animate
	THEN
    THEN
    1config  !widgets
    0.1e o [: fdrop color-theme s>f 1/2 f+ ColorMode! +sync +vpsync ;] >animate
    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