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: |
a0d9aba664c42307eb2272c03db6322f |
| 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
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+
|