Check-in [347dd4d1f3]
Not logged in

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: 347dd4d1f3d565a7128e0b95426dadc6161a516b
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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