Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [Bug 3381002]: Applied patch from to fix the capabilities version string. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
956152c68bf403b257750ca7ce0e9f6e |
| User & Date: | patthoyts 2012-01-23 20:35:17 |
Context
|
2012-02-07
| ||
| 13:10 | We don't have an image for "offline", so use "disabled" for now. check-in: 95108a0b84 user: rmax tags: trunk | |
|
2012-01-23
| ||
| 20:35 | [Bug 3381002]: Applied patch from to fix the capabilities version string. check-in: 956152c68b user: patthoyts tags: trunk | |
|
2011-09-29
| ||
| 19:03 | * tkchat.tcl: [Bug 3379933]: Accepted and applied patch by Mark Janssen to display history through a text peer, should peering be available (Tk 8.5+) check-in: 843593d315 user: andreas_kupries tags: trunk | |
Changes
Changes to apps/tkchat/ChangeLog.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
2011-09-29 Andreas Kupries <[email protected]> * tkchat.tcl: [Bug 3379933]: Accepted and applied patch by Mark Janssen to display history through a text peer, should peering be available (Tk 8.5+) 2011-03-23 Reinhard Max <[email protected]> * tkchat.tcl (::tkchat::parseStr): Render words of 10..40 characters as links to fossil artifact IDs on core.tcl.tk. 2011-01-06 Reinhard Max <[email protected]> * askleo/askleo.tcl: Complete the API adjustments and add support for running askleo.tcl as a standalone application. 2010-11-16 Reinhard Max <[email protected]> |
> > > > > | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
2012-01-23 Pat Thoyts <patthoy[email protected]> * tkchat.tcl: [Bug 3381002]: Applied patch from to fix the capabilities version string. 2011-09-29 Andreas Kupries <[email protected]> * tkchat.tcl: [Bug 3379933]: Accepted and applied patch by Mark Janssen to display history through a text peer, should peering be available (Tk 8.5+) 2011-03-23 Reinhard Max <[email protected]> * tkchat.tcl (::tkchat::parseStr): Render words of 10..40 characters as links to fossil artifact IDs on core.tcl.tk. 2011-01-06 Reinhard Max <[email protected]> * askleo/askleo.tcl: Complete the API adjustments and add support for running askleo.tcl as a standalone application. 2010-11-16 Reinhard Max <[email protected]> |
Changes to apps/tkchat/tkchat.tcl.
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
....
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
|
::http::register http 80 ::socket_inet4
}
namespace eval ::tkchat {
variable chatWindowTitle "The Tcler's Chat"
variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
variable rcsid {$Id: tkchat.tcl,v 1.487 2011/09/29 19:03:10 andreas_kupries Exp $}
variable MSGS
set MSGS(entered) [list \
"%user% has entered the chat!" \
"Out of a cloud of smoke, %user% appears!" \
"%user% saunters in." \
"%user% wanders in." \
................................................................................
global Features tcl_platform
set tkchatver [regexp -inline -- {\d+(?:\.\d+)?} $::tkchat::rcsid]
set S "client/pc//tkchat<"
foreach feature [lsort $Features] { append S $feature "<" }
# extended feature processing as well (order counts)
append S "urn:xmpp:dataforms:softwareinfo<"
append S "os<$tcl_platform(os)<"
append S "os_version<$tcl_platform(osVersion)"
append S "software<tkchat<software_version<$tkchatver<"
return [base64::encode -maxlen 0 [sha1::sha1 -bin $S]]
}
proc ::tkjabber::get_caps {} {
set tkchatver [regexp -inline -- {\d+(?:\.\d+)?} $::tkchat::rcsid]
set caps [wrapper::createtag c -attrlist \
|
|
|
|
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
....
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
|
::http::register http 80 ::socket_inet4
}
namespace eval ::tkchat {
variable chatWindowTitle "The Tcler's Chat"
variable HEADUrl {http://tcllib.cvs.sourceforge.net/*checkout*/tcllib/tclapps/apps/tkchat/tkchat.tcl?revision=HEAD}
variable rcsid {$Id: tkchat.tcl,v 1.488 2012/01/23 20:35:17 patthoyts Exp $}
variable MSGS
set MSGS(entered) [list \
"%user% has entered the chat!" \
"Out of a cloud of smoke, %user% appears!" \
"%user% saunters in." \
"%user% wanders in." \
................................................................................
global Features tcl_platform
set tkchatver [regexp -inline -- {\d+(?:\.\d+)?} $::tkchat::rcsid]
set S "client/pc//tkchat<"
foreach feature [lsort $Features] { append S $feature "<" }
# extended feature processing as well (order counts)
append S "urn:xmpp:dataforms:softwareinfo<"
append S "os<$tcl_platform(os)<"
append S "os_version<$tcl_platform(osVersion)<"
append S "software<tkchat<software_version<$tkchatver<"
return [base64::encode -maxlen 0 [sha1::sha1 -bin $S]]
}
proc ::tkjabber::get_caps {} {
set tkchatver [regexp -inline -- {\d+(?:\.\d+)?} $::tkchat::rcsid]
set caps [wrapper::createtag c -attrlist \
|