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 |
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 411 412 413 414 415 416 417 418 419 420 421 422 |
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
thumbnail new >o
"avatar" to name$
white# to frame-color
last# cell+ $@ drop to frame#
glue*avatar to tile-glue o o>
>r {{ r> }}v 40%b ;
: ?avatar ( addr u -- o / )
key# #@ IF
cell+ .ke-avatar $@ dup IF
show-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
|