TclApps Library Source Code
Check-in [956152c68b]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 956152c68bf403b257750ca7ce0e9f6ea8b19270
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
Hide Diffs Unified Diffs 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  <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 \