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: |
2efb192efa7635563d874562777518a0 |
| User & Date: | bernd 2019-11-28 16:54:47.736 |
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
Changes to gui.fs.
| ︙ | ︙ | |||
1043 1044 1045 1046 1047 1048 1049 |
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>
| | | 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
|
| ︙ | ︙ |