TclApps Library Source Code
Check-in [95108a0b84]
Not logged in

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.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 95108a0b84ac941f1160df7969b3d3f5630c0921
User & Date: rmax 2012-02-07 13:10:20.000
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
Unified Diff 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
    ::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." \







|







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.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." \
9170
9171
9172
9173
9174
9175
9176

9177
9178
9179
9180
9181
9182
9183
        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







>







9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180
9181
9182
9183
9184
        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