Check-in [a0d9aba664]
Not logged in

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

Overview
Comment:Flip mic/kb
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a0d9aba664c42307eb2272c03db6322f18c3763b
User & Date: bernd 2020-05-14 17:21:10
Context
2020-05-15
21:18
Start better want protocol check-in: fe0413d449 user: bernd tags: trunk
2020-05-14
17:21
Flip mic/kb check-in: a0d9aba664 user: bernd tags: trunk
15:16
Bump version number check-in: 1d0e845d49 user: bernd tags: trunk, 0.9.7-20200514
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to gui.fs.

1363
1364
1365
1366
1367
1368
1369


1370
1371
1372
1373
1374
1375
1376
....
1560
1561
1562
1563
1564
1565
1566










1567
1568
1569
1570
1571
1572
1573
....
1585
1586
1587
1588
1589
1590
1591

1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
    msg-tdisplay re-msg-box ;
' wmsg-display wmsg-class is msg:display

#200 Value gui-msgs# \ display last 200 messages
0 Value chat-edit-box
0 Value chat-record-button
0 Value chat-recording-button


0 Value chat-edit    \ chat edit field
0 Value chat-edit-bg \ chat edit background

: >ymd ( ticks -- year month day )
    64>f 1n f* >day fdrop unix-day0 + day2ymd ;
: day'>i ( day -- index )
    #86400 * #1000000000 um* d>64 date>i ;
................................................................................
    ELSE  2drop  THEN
    64#-1 line-date 64!  $lastline $free ;

\ +db click( \ )
\ +db click-o( \ )
\ +db gui( \ )











{{ chat-bg-col# pres-frame
    {{
	{{
	    glue*l black# slide-frame dup .button1
	    {{
		\large realwhite
		"⬅" }}text 40%b [: in-group? 0= ?EXIT  false to in-group?
................................................................................
		tex: vp-chats vp-chats glue*lll ' vp-chats }}vp vp[]
		dup to msgs-box
		dup font-size# 66% f* fdup vslider
	    over >r }}h box[] r>
	    font-size# 66% f* fdup hslider
	}}v box[]
	{{

	    {{ blackish \normal \regular !i18n l" Mic" }}text' !lit
	    }}h box[] 40%b
	    {{ blackish \normal \regular !i18n l" Keyboard" }}text' !lit
	    }}h box[] 40%b /flip
	    [:  chat-edit-box chat-record-button data IF  swap  THEN
		data 0= to data /flop drop /flip drop
		chat-recording-button /flip drop +resize +sync +lang ;] 0 click[]
	    {{
		glue*l send-color x-color font-size# 40% f* }}frame dup .button2
		!i18n blackish l" Record" }}text' !lit 25%b /center
	    }}z box[] /flip dup to chat-record-button
	    [:  chat-record-button /flip drop
		chat-recording-button /flop drop +resize +sync +lang
		"recording" .net2o-cache/ open-rec+







>
>







 







>
>
>
>
>
>
>
>
>
>







 







>
|
|
|
|
<
|
|







1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
....
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
....
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

1609
1610
1611
1612
1613
1614
1615
1616
1617
    msg-tdisplay re-msg-box ;
' wmsg-display wmsg-class is msg:display

#200 Value gui-msgs# \ display last 200 messages
0 Value chat-edit-box
0 Value chat-record-button
0 Value chat-recording-button
0 Value chat-mic-icon
0 Value chat-keyboard-icon
0 Value chat-edit    \ chat edit field
0 Value chat-edit-bg \ chat edit background

: >ymd ( ticks -- year month day )
    64>f 1n f* >day fdrop unix-day0 + day2ymd ;
: day'>i ( day -- index )
    #86400 * #1000000000 um* d>64 date>i ;
................................................................................
    ELSE  2drop  THEN
    64#-1 line-date 64!  $lastline $free ;

\ +db click( \ )
\ +db click-o( \ )
\ +db gui( \ )

: flip-mic/kb ( -- )
    chat-edit-box chat-record-button data IF  swap  THEN
    /flop drop /flip drop
    chat-mic-icon chat-keyboard-icon data IF  swap  THEN
    /flop drop /flip drop
    chat-recording-button /flip drop
    data IF  chat-edit engage  THEN
    data 0= to data
    +resize +sync +lang ;

{{ chat-bg-col# pres-frame
    {{
	{{
	    glue*l black# slide-frame dup .button1
	    {{
		\large realwhite
		"⬅" }}text 40%b [: in-group? 0= ?EXIT  false to in-group?
................................................................................
		tex: vp-chats vp-chats glue*lll ' vp-chats }}vp vp[]
		dup to msgs-box
		dup font-size# 66% f* fdup vslider
	    over >r }}h box[] r>
	    font-size# 66% f* fdup hslider
	}}v box[]
	{{
	    {{
		{{ blackish \normal \regular !i18n l" Mic" }}text' !lit
		}}h box[] 40%b dup to chat-mic-icon
		{{ blackish \normal \regular !i18n l" Keyboard" }}text' !lit
		}}h box[] 40%b /flip dup to chat-keyboard-icon

	    }}z box[]
	    ' flip-mic/kb 0 click[]
	    {{
		glue*l send-color x-color font-size# 40% f* }}frame dup .button2
		!i18n blackish l" Record" }}text' !lit 25%b /center
	    }}z box[] /flip dup to chat-record-button
	    [:  chat-record-button /flip drop
		chat-recording-button /flop drop +resize +sync +lang
		"recording" .net2o-cache/ open-rec+