Check-in [94c05f1985]
Not logged in

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: 94c05f19858f52dc9a6a23f89934f50612b7cbe1
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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