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.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
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 |
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[]
{{
| > | | | | < | | | 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+
|
| ︙ | ︙ |