TclApps Library Source Code
Check-in [956152c68b]
Not logged in

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: 956152c68bf403b257750ca7ce0e9f6ea8b19270
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
Unified Diff Ignore Whitespace Patch
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  <[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
    ::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." \







|







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
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 \







|







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 \