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: |
95108a0b84ac941f1160df7969b3d3f5 |
| 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
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
|