Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Avoid posting when in lurk mode (handle the bindings too) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
0b2a63e2e33e07a0493d1650fa101289 |
User & Date: | patthoyts 2009-07-02 21:59:28.000 |
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 | } } 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} | | | 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 | } } 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." \ |
︙ | ︙ | |||
4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 | $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 { | > | 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 | $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 { |
︙ | ︙ |