TclApps Library Source Code
Check-in [95108a0b84]
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:We don't have an image for "offline", so use "disabled" for now.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 95108a0b84ac941f1160df7969b3d3f5630c0921
User & Date: rmax 2012-02-07 13:10:20
Context
2012-07-10
17:18
* choosefont/choose_w32.tcl: Fixed non-static string array used in call of Tcl_GetIndexFromObj(). Memory smash waiting to happen. Thanks to Brian Griffin for alerting us all to the problem. check-in: 2d059e0ca3 user: andreas_kupries tags: trunk
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to apps/tkchat/ChangeLog.






1
2
3
4
5
6
7




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

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2012-02-07  Reinhard Max  <[email protected]>

	* tkchat.tcl (::tkchat::updateRosterDisplay): We don't have an
	image for "offline", so use "disabled" for now.

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

Changes to apps/tkchat/tkchat.tcl.

264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
....
9170
9171
9172
9173
9174
9175
9176

9177
9178
9179
9180
9181
9182
9183
    ::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." \
................................................................................
        set resource [$roster gethighestresource $user]
        foreach pres [$roster getpresence $user] {
            array set a [linsert $pres 0 -show online -type unavailable]
            if {$resource eq $a(-resource)} {
                if {$a(-type) eq ""} {set img online}
                if {$a(-show) ne ""} {set img $a(-show)}
                if {$a(-type) eq "unavailable"} {set img "disabled"}

                .pane.names image create roster -image ::tkchat::roster::$img
            }
        }

        set link URL-[incr ::URLID]
        set tags [list ROSTER ROSTER-$user URL $link]
        .pane.names insert roster $name $tags "\n" NICK






|







 







>







264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
....
9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180
9181
9182
9183
9184
    ::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.489 2012/02/07 13:10:20 rmax 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." \
................................................................................
        set resource [$roster gethighestresource $user]
        foreach pres [$roster getpresence $user] {
            array set a [linsert $pres 0 -show online -type unavailable]
            if {$resource eq $a(-resource)} {
                if {$a(-type) eq ""} {set img online}
                if {$a(-show) ne ""} {set img $a(-show)}
                if {$a(-type) eq "unavailable"} {set img "disabled"}
                if {$img eq "offline"} {set img "disabled"}
                .pane.names image create roster -image ::tkchat::roster::$img
            }
        }

        set link URL-[incr ::URLID]
        set tags [list ROSTER ROSTER-$user URL $link]
        .pane.names insert roster $name $tags "\n" NICK