SHA1 Hash:	45f9af32408fc54ee7e7e6042b7e7536f809b282
Date:	2007-09-24 22:13:23
User:	mjanssen
Comment:	Fossil chat client entry widget will not lose focus on Win32 when receiving a message.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/fossil_chat.tcl from [8a1ca9df00] to [facd17494d].

@@ -219,14 +219,16 @@
   } elseif {$cmd=="message"||$cmd=="private_message"} {
     set time [clock format [clock seconds] -format {%H:%M} -gmt 1]
     set from [lindex $line 1]
     .msg.t insert end "\[$time $from\] " meta [lindex $line 2]\n norm
     .msg.t see end
+    set current_focus [focus]
     bell
     wm deiconify .
     update
     raise .
+    focus $current_focus
   } elseif {$cmd=="noop"} {
     # do nothing
   } elseif {$cmd=="meta"} {
     set now [clock seconds]
     set time [clock format $now -format {%H:%M} -gmt 1]