Check-in [cb09e21072]
Not logged in

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: cb09e210725a2efebd4139a294e02df82917805e
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
Unified Diff Ignore Whitespace Patch
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
	{{