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+ |
︙ | ︙ |