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 |
Context
|
2019-09-12
| ||
| 14:54 | Bump version number Leaf 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 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/
." 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
|
| |
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
|