Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Avatar reload when thumbnails are ditched |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
d0bf2a8d6c957974d1a9b178202b8262 |
User & Date: | bernd 2019-03-26 21:24:19.587 |
Context
2019-03-26
| ||
21:39 | ?read-enc-hashed with good stack effect check-in: 0ab6fe4fbd user: bernd tags: trunk | |
21:24 | Avatar reload when thumbnails are ditched check-in: d0bf2a8d6c user: bernd tags: trunk | |
2019-03-21
| ||
18:37 | Bump version number check-in: 7a68f3bae4 user: bernd tags: trunk, 0.8.8-20190321 | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
399 400 401 402 403 404 405 406 407 | [: data >o ." clicked on " ke-nick $. cr o> ;] o click[] ; Hash: avatar# glue new Constant glue*avatar glue*avatar >o pixelsize# 64 fm* 0e 0g glue-dup hglue-c glue! vglue-c glue! 0glue dglue-c glue! o> : show-avatar ( addr u -- o ) 2dup avatar# #@ nip 0= IF | > > < | > > > > > > | 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 | [: data >o ." clicked on " ke-nick $. cr o> ;] o click[] ; Hash: avatar# glue new Constant glue*avatar glue*avatar >o pixelsize# 64 fm* 0e 0g glue-dup hglue-c glue! vglue-c glue! 0glue dglue-c glue! o> : read-avatar ( addr u -- addr' u' ) ?read-enc-hashed patch-in$ $@ mem>thumb atlas-region ; : show-avatar ( addr u -- o ) 2dup avatar# #@ nip 0= IF 2dup read-avatar 2swap avatar# #! ELSE 2drop THEN glue*avatar last# cell+ $@ drop }}thumb >r {{ r> }}v 40%b ; : re-avatar ( last# -- ) >r r@ $@ read-avatar r> cell+ $@ smove ; :noname defers free-thumbs avatar# ['] re-avatar #map ; is free-thumbs : ?avatar ( addr u -- o / ) key# #@ IF cell+ .ke-avatar $@ dup IF show-avatar ELSE 2drop THEN ELSE drop THEN ; |
︙ | ︙ | |||
702 703 704 705 706 707 708 | 2dup "file:" string-prefix? IF 0 to v-box 5 /string [: ." ~+/" type ;] $tmp markdown-parse v-box project-vp .child+ dpy-w @ 50% fm* p-format ELSE 2drop THEN ; : display-project ( addr u -- ) | | | 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 | 2dup "file:" string-prefix? IF 0 to v-box 5 /string [: ." ~+/" type ;] $tmp markdown-parse v-box project-vp .child+ dpy-w @ 50% fm* p-format ELSE 2drop THEN ; : display-project ( addr u -- ) project-vp >o dispose-childs free-thumbs 0 to active-w o> project:branch$ $@ { d: branch } dvcs:new-project-log >o ?msg-log last# msg-log@ 2dup { log u } bounds ?DO I $@ msg:display \ this will only set the URLs cell +LOOP glue*lll }}glue project-vp dup .act 0= IF vp[] THEN .child+ |
︙ | ︙ |
Changes to tools.fs.
︙ | ︙ | |||
797 798 799 800 801 802 803 804 805 806 | w/o create-file throw close-file throw ; \ copy files : throw?exists ( throwcode -- ) dup no-file# <> and throw ; $1F to tmps# \ need more temporaries : >backup ( addr u -- ) 2dup 2dup [: type '~' emit ;] $tmp rename-file >r | > > > > > | | | 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 | w/o create-file throw close-file throw ; \ copy files : throw?exists ( throwcode -- ) dup no-file# <> and throw ; $1F to tmps# \ need more temporaries Variable tmp-file$ : $tmp-file ( addr u -- addr' u' ) [: type '+' emit getpid 0 .r ;] tmp-file$ $set tmp-file$ $@ ; : >backup ( addr u -- ) 2dup 2dup [: type '~' emit ;] $tmp rename-file >r tmp-file$ $@ 2swap rename-file r> throw?exists throw?exists ; : >new ( addr u -- fd ) $tmp-file r/w create-file throw ; : >copy ( addr u -- fd ) 2dup >new { fd1 } r/o open-file dup no-file# = IF 2drop ELSE throw 0 { fd0 w^ cpy } |
︙ | ︙ |