Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Thumbnail support |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
94c05f19858f52dc9a6a23f89934f506 |
User & Date: | bernd 2019-03-21 18:35:33.381 |
Context
2019-03-21
| ||
18:37 | Bump version number check-in: 7a68f3bae4 user: bernd tags: trunk, 0.8.8-20190321 | |
18:35 | Thumbnail support check-in: 94c05f1985 user: bernd tags: trunk | |
2019-03-20
| ||
13:13 | Markdown viewer update check-in: ea0d5baddd user: bernd tags: trunk | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
404 405 406 407 408 409 410 | 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 2dup ?read-enc-hashed patch-in$ $@ mem>thumb atlas-region 2swap avatar# #! ELSE 2drop THEN | < < < | < | 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 | 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 2dup ?read-enc-hashed patch-in$ $@ mem>thumb atlas-region 2swap avatar# #! ELSE 2drop THEN glue*avatar last# cell+ $@ drop }}thumb >r {{ r> }}v 40%b ; : ?avatar ( addr u -- o / ) key# #@ IF cell+ .ke-avatar $@ dup IF show-avatar ELSE 2drop THEN |
︙ | ︙ |