Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Leave chat session on close |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
cb09e210725a2efebd4139a294e02df8 |
User & Date: | bernd 2018-06-12 18:55:42.020 |
Context
2018-06-13
| ||
21:10 | Bump version number check-in: b8b04ec18b user: bernd tags: trunk, 0.7.2-20180613 | |
2018-06-12
| ||
18:55 | Leave chat session on close check-in: cb09e21072 user: bernd tags: trunk | |
18:00 | History fur GUI chat check-in: 3ed6bccde9 user: bernd tags: trunk | |
Changes
Changes to gui.fs.
︙ | ︙ | |||
269 270 271 272 273 274 275 276 277 278 279 280 281 282 | [: top-widget >r data $@ group-name >o to text$ o> data cell+ $@ drop cell+ >o groups:id$ groups:member[] o> [: [: 2over type '@' emit type ;] $tmp chat-keys $+[]! ;] $[]map gui-msgs chat-frame to top-widget refresh-top gui-chat-connects widgets-loop \ connection .send-leave r> to top-widget +sync +config ;] swap click[] ; : show-group ( last# -- ) dup { g -- } cell+ $@ drop cell+ >o {{ glue*l $CCAA44FF slide-frame dup .button1 {{ | > | 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 | [: top-widget >r data $@ group-name >o to text$ o> data cell+ $@ drop cell+ >o groups:id$ groups:member[] o> [: [: 2over type '@' emit type ;] $tmp chat-keys $+[]! ;] $[]map gui-msgs chat-frame to top-widget refresh-top gui-chat-connects widgets-loop \ connection .send-leave leave-chats r> to top-widget +sync +config ;] swap click[] ; : show-group ( last# -- ) dup { g -- } cell+ $@ drop cell+ >o {{ glue*l $CCAA44FF slide-frame dup .button1 {{ |
︙ | ︙ |