Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | [Bug 3381002]: Applied patch from to fix the capabilities version string. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
956152c68bf403b257750ca7ce0e9f6e |
| User & Date: | patthoyts 2012-01-23 20:35:17.000 |
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 | 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. | > > > > > | | 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 <[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 |
::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}
| | | 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 |
::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." \
|
| ︙ | ︙ | |||
8489 8490 8491 8492 8493 8494 8495 |
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)<"
| | | 8489 8490 8491 8492 8493 8494 8495 8496 8497 8498 8499 8500 8501 8502 8503 |
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 \
|
| ︙ | ︙ |