Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add ?fetch-pks to GUI stuff |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
347dd4d1f3d565a7128e0b95426dadc6 |
| User & Date: | bernd 2020-02-26 22:30:12 |
Context
|
2020-02-27
| ||
| 12:26 | Bump version number check-in: 4ecf9f79f5 user: bernd tags: trunk, 0.9.7-20200227 | |
|
2020-02-26
| ||
| 22:30 | Add ?fetch-pks to GUI stuff check-in: 347dd4d1f3 user: bernd tags: trunk | |
|
2020-02-25
| ||
| 23:49 | Fix way overcomplicated write-groups check-in: 87d74c78da user: bernd tags: trunk | |
Changes
Changes to gui.fs.
1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 |
reset-time
64#0 to last-tick last-bubble-pk $free
0 to msg-par 0 to msg-box
msgs-box .dispose-childs
load-msg msg-log@ { log u }
log u gen-calendar ?dup-IF msgs-box .child+ THEN
glue*lll }}glue msgs-box .child+
u gui-msgs# cells - 0 max { u' } log u' wmsg-o .?search-lock
log u u' /string bounds ?DO
I log - cell/ to log#
I $@ { d: msgt }
msgt ['] msg-tdisplay wmsg-o .catch nothrow IF
<err> ." invalid entry" cr <default> 2drop
THEN
cell +LOOP
|
| > > |
1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 |
reset-time
64#0 to last-tick last-bubble-pk $free
0 to msg-par 0 to msg-box
msgs-box .dispose-childs
load-msg msg-log@ { log u }
log u gen-calendar ?dup-IF msgs-box .child+ THEN
glue*lll }}glue msgs-box .child+
u gui-msgs# cells - 0 max { u' }
log u ?scan-pks ?fetch-pks \ activate ?fetch-pks
log u' wmsg-o .?search-lock
log u u' /string bounds ?DO
I log - cell/ to log#
I $@ { d: msgt }
msgt ['] msg-tdisplay wmsg-o .catch nothrow IF
<err> ." invalid entry" cr <default> 2drop
THEN
cell +LOOP
|