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.105
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
Unified Diff Ignore Whitespace Patch
Changes to gui.fs.
1363
1364
1365
1366
1367
1368
1369


1370
1371
1372
1373
1374
1375
1376
    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 ;







>
>







1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
    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 ;
1560
1561
1562
1563
1564
1565
1566










1567
1568
1569
1570
1571
1572
1573
    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?







>
>
>
>
>
>
>
>
>
>







1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
    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?
1585
1586
1587
1588
1589
1590
1591

1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
		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+







>
|
|
|
|
<
|
|







1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608

1609
1610
1611
1612
1613
1614
1615
1616
1617
		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+