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