Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Avoid posting when in lurk mode (handle the bindings too) |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0b2a63e2e33e07a0493d1650fa101289 |
| User & Date: | patthoyts 2009-07-02 21:59:28 |
Context
|
2009-08-12
| ||
| 00:51 | Minor bugfix in appearance of "User info" dialog. check-in: fb51058b80 user: eee tags: trunk | |
|
2009-07-02
| ||
| 21:59 | Avoid posting when in lurk mode (handle the bindings too) check-in: 0b2a63e2e3 user: patthoyts tags: trunk | |
|
2009-06-02
| ||
| 11:41 | * tkchat.tcl (::tkchat::Progress): Improved progress bar handling. This hopefully fixes the occasional spinning of the progress bar when the associated action has long finished. check-in: 5b5ef6bf79 user: rmax tags: trunk | |
Changes
Changes to apps/tkchat/ChangeLog.
1 2 3 4 5 6 7 |
2009-06-02 Reinhard Max <[email protected]> * tkchat.tcl (::tkchat::Progress): Improved progress bar handling. This hopefully fixes the occasional spinning of the progress bar when the associated action has long finished. 2009-05-25 Pat Thoyts <[email protected]> |
> > > > |
1 2 3 4 5 6 7 8 9 10 11 |
2009-07-02 Pat Thoyts <[email protected]> * tkchat.tcl: Do not post when in lurk mode (handle bindings). 2009-06-02 Reinhard Max <[email protected]> * tkchat.tcl (::tkchat::Progress): Improved progress bar handling. This hopefully fixes the occasional spinning of the progress bar when the associated action has long finished. 2009-05-25 Pat Thoyts <[email protected]> |
Changes to apps/tkchat/tkchat.tcl.
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
....
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
|
}
}
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.471 2009/06/02 11:41:30 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." \
................................................................................
$p.tMsg delete 1.0 end
}
proc ::tkchat::userPost {{jid ""}} {
global Options
if {[winfo ismapped .eMsg]} {
set str [.eMsg get]
} else {
set str [.tMsg get 1.0 end]
}
set msg [string trim $str]
switch -glob -- $msg {
|
|
>
|
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
....
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113
4114
4115
4116
4117
4118
|
}
}
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.472 2009/07/02 21:59:29 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." \
................................................................................
$p.tMsg delete 1.0 end
}
proc ::tkchat::userPost {{jid ""}} {
global Options
if {[winfo ismapped .eMsg]} {
if {[.eMsg cget -state] eq "disabled"} { return }
set str [.eMsg get]
} else {
set str [.tMsg get 1.0 end]
}
set msg [string trim $str]
switch -glob -- $msg {
|