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