Fossil SCM
Fossil chat client entry widget will not lose focus on Win32 when receiving a message.
Commit
45f9af32408fc54ee7e7e6042b7e7536f809b282
Parent
e0232ce1a031718…
1 file changed
+2
| --- tools/fossil_chat.tcl | ||
| +++ tools/fossil_chat.tcl | ||
| @@ -219,14 +219,16 @@ | ||
| 219 | 219 | } elseif {$cmd=="message"||$cmd=="private_message"} { |
| 220 | 220 | set time [clock format [clock seconds] -format {%H:%M} -gmt 1] |
| 221 | 221 | set from [lindex $line 1] |
| 222 | 222 | .msg.t insert end "\[$time $from\] " meta [lindex $line 2]\n norm |
| 223 | 223 | .msg.t see end |
| 224 | + set current_focus [focus] | |
| 224 | 225 | bell |
| 225 | 226 | wm deiconify . |
| 226 | 227 | update |
| 227 | 228 | raise . |
| 229 | + focus $current_focus | |
| 228 | 230 | } elseif {$cmd=="noop"} { |
| 229 | 231 | # do nothing |
| 230 | 232 | } elseif {$cmd=="meta"} { |
| 231 | 233 | set now [clock seconds] |
| 232 | 234 | set time [clock format $now -format {%H:%M} -gmt 1] |
| 233 | 235 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -219,14 +219,16 @@ | |
| 219 | } elseif {$cmd=="message"||$cmd=="private_message"} { |
| 220 | set time [clock format [clock seconds] -format {%H:%M} -gmt 1] |
| 221 | set from [lindex $line 1] |
| 222 | .msg.t insert end "\[$time $from\] " meta [lindex $line 2]\n norm |
| 223 | .msg.t see end |
| 224 | bell |
| 225 | wm deiconify . |
| 226 | update |
| 227 | raise . |
| 228 | } elseif {$cmd=="noop"} { |
| 229 | # do nothing |
| 230 | } elseif {$cmd=="meta"} { |
| 231 | set now [clock seconds] |
| 232 | set time [clock format $now -format {%H:%M} -gmt 1] |
| 233 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -219,14 +219,16 @@ | |
| 219 | } elseif {$cmd=="message"||$cmd=="private_message"} { |
| 220 | set time [clock format [clock seconds] -format {%H:%M} -gmt 1] |
| 221 | set from [lindex $line 1] |
| 222 | .msg.t insert end "\[$time $from\] " meta [lindex $line 2]\n norm |
| 223 | .msg.t see end |
| 224 | set current_focus [focus] |
| 225 | bell |
| 226 | wm deiconify . |
| 227 | update |
| 228 | raise . |
| 229 | focus $current_focus |
| 230 | } elseif {$cmd=="noop"} { |
| 231 | # do nothing |
| 232 | } elseif {$cmd=="meta"} { |
| 233 | set now [clock seconds] |
| 234 | set time [clock format $now -format {%H:%M} -gmt 1] |
| 235 |