Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | One fix for DVCS sync problem |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
62e7a3d87df8fdc9ee52059272585319 |
User & Date: | bernd 2019-09-10 13:24:32.098 |
Context
2019-09-12
| ||
14:54 | Bump version number check-in: 481ac56330 user: bernd tags: trunk, 0.9.1-20190912 | |
2019-09-10
| ||
13:24 | One fix for DVCS sync problem check-in: 62e7a3d87d user: bernd tags: trunk | |
2019-09-09
| ||
22:20 | Move code for presentation support over to Gforth check-in: f9c72d378d user: bernd tags: trunk | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
801 802 803 804 805 806 807 | dvcs:dispose-dvcs-log o> ; : .posting-log ( -- ) dvcs:new-dvcs >o config>dvcs project:project$ $@ @/ 2drop 2dup load-msg display-posting dvcs:dispose-dvcs o> ; : open-posting { d: prj -- } | | | 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 | dvcs:dispose-dvcs-log o> ; : .posting-log ( -- ) dvcs:new-dvcs >o config>dvcs project:project$ $@ @/ 2drop 2dup load-msg display-posting dvcs:dispose-dvcs o> ; : open-posting { d: prj -- } >dir "posts" ~net2o-cache/ chat-keys $[]free ." open " prj .posting cr prj 2dup keysize /string [: type '@' emit key| .key-id? ;] $tmp nick>chat handle-clone prj keysize /string set-dir throw .posting-log next-slide posting-vp 0.01e [: >o vp-top box-flags box-touched# invert and to box-flags o> fdrop +sync +resize ;] >animate |
︙ | ︙ |