Check-in [2efb192efa]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Typo
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2efb192efa7635563d874562777518a085f6d8af
User & Date: bernd 2019-11-28 16:54:47
Context
2019-11-28
17:04
Findable path for new images check-in: 4e13e6e703 user: bernd tags: trunk
16:54
Typo check-in: 2efb192efa user: bernd tags: trunk
16:15
Bump version number check-in: bcffa4f253 user: bernd tags: trunk, 0.9.4-20191128
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to gui.fs.

1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
    2dup thumbs# #@ nip 0= IF
	2dup read-avatar 2swap thumbs# #!
    ELSE  2drop  THEN  last# cell+ $@ drop ;

event: :>update-thumb { d: hash object -- }
    hash thumb-frame object .childs[] $@ drop @ >o to frame#
    frame# i.w frame# i.h tile-glue .wh-glue!  o>
    [: +sync +resize ;] msgs-box vpneeded +sync +resize ;

: ?thumb ( addr u -- o )
    2dup ['] thumb-frame catch 0= IF
	>r 2drop r@ i.w r@ i.h glue*thumb r> }}thumb
	EXIT  THEN
    128 128 glue*thumb dummy-thumb }}thumb >r
    <event r@ up@ [{: hash u1 object task :}h







|







1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
    2dup thumbs# #@ nip 0= IF
	2dup read-avatar 2swap thumbs# #!
    ELSE  2drop  THEN  last# cell+ $@ drop ;

event: :>update-thumb { d: hash object -- }
    hash thumb-frame object .childs[] $@ drop @ >o to frame#
    frame# i.w frame# i.h tile-glue .wh-glue!  o>
    [: +sync +resize ;] msgs-box vp-needed +sync +resize ;

: ?thumb ( addr u -- o )
    2dup ['] thumb-frame catch 0= IF
	>r 2drop r@ i.w r@ i.h glue*thumb r> }}thumb
	EXIT  THEN
    128 128 glue*thumb dummy-thumb }}thumb >r
    <event r@ up@ [{: hash u1 object task :}h