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.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
Unified Diff 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