Check-in [62e7a3d87d]
Not logged in

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: 62e7a3d87df8fdc9ee520592725853191e4cab56
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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