Fossil

Check-in [45f9af32]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fossil chat client entry widget will not lose focus on Win32 when receiving a message.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:45f9af32408fc54ee7e7e6042b7e7536f809b282
User & Date: mjanssen 2007-09-24 22:13:23
Context
2007-09-24
23:19
Accidently changed time format in timeline_query_for_tty output in checkin [aad573b31c] reverted so that timeline shows local timestamps again. check-in: d54731da user: mjanssen tags: trunk
22:13
Fossil chat client entry widget will not lose focus on Win32 when receiving a message. check-in: 45f9af32 user: mjanssen tags: trunk
21:05
Use tcl_platform to determine username, this is platform independent check-in: e0232ce1 user: mjanssen tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/fossil_chat.tcl.

217
218
219
220
221
222
223

224
225
226
227

228
229
230
231
232
233
234
    }
    .who.list config -text [string trim $ulist]
  } 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

    bell
    wm deiconify .
    update
    raise .

  } elseif {$cmd=="noop"} {
    # do nothing
  } elseif {$cmd=="meta"} {
    set now [clock seconds]
    set time [clock format $now -format {%H:%M} -gmt 1]
    .msg.t insert end "\[$time\] [lindex $line 1]\n" meta
    .msg.t see end







>




>







217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
    }
    .who.list config -text [string trim $ulist]
  } 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]
    .msg.t insert end "\[$time\] [lindex $line 1]\n" meta
    .msg.t see end