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