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
 | 
| ︙ | ︙ |