Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Make tkchatrc.tcl handling work on Windows |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f633128a94aa6fd76a7daec706adbec9 |
| User & Date: | mistachkin 2009-02-25 10:30:08.000 |
Context
|
2009-02-25
| ||
| 17:04 | changed ::tkchat::findCommonRoot proc to find a case-insensitive common root, to match the case-insensitivity of ::tkchat::nickComplete. check-in: b43825c299 user: eee tags: trunk | |
| 10:30 | Make tkchatrc.tcl handling work on Windows check-in: f633128a94 user: mistachkin tags: trunk | |
| 05:10 | Made tab-completion of nicknames case-insensitive. check-in: e7d7b39f4e user: eee tags: trunk | |
Changes
Changes to apps/tkchat/ChangeLog.
1 2 3 4 5 6 7 | 2009-01-14 Reinhard Max <[email protected]> * tkchat.tcl: Simplify ::tkchat::GoogleSelection and fix the bindings that call it. It now also works for selections in windows outside of tkchat. 2008-12-24 Pat Thoyts <[email protected]> | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2009-02-25 Joe Mistachkin <[email protected]> * tkchat.tcl: Make "tkchatrc.tcl" handling work on Windows (support loading of the file with or without the leading period). 2009-01-14 Reinhard Max <[email protected]> * tkchat.tcl: Simplify ::tkchat::GoogleSelection and fix the bindings that call it. It now also works for selections in windows outside of tkchat. 2008-12-24 Pat Thoyts <[email protected]> |
| ︙ | ︙ |
Changes to apps/tkchat/tkchat.tcl.
| ︙ | ︙ | |||
254 255 256 257 258 259 260 |
}
}
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}
| | | 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 |
}
}
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.457 2009/02/25 10:30:08 mistachkin 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." \
|
| ︙ | ︙ | |||
354 355 356 357 358 359 360 |
# Maybe exec a user defined preload script at startup (to set Tk options,
# for example.
# just before showing the logon screen (or not), call '::tkchat::rcPostload' so
# you can also tinker with settings when the UI has been built.
proc ::tkchat::rcPostload {} {}
if {[info exists ::env(HOME)] \
| | | > > | 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 |
# Maybe exec a user defined preload script at startup (to set Tk options,
# for example.
# just before showing the logon screen (or not), call '::tkchat::rcPostload' so
# you can also tinker with settings when the UI has been built.
proc ::tkchat::rcPostload {} {}
if {[info exists ::env(HOME)] \
&& ([file readable [set rctclfile \
[file join $::env(HOME) .tkchatrc.tcl]]] \
|| [file readable [set rctclfile \
[file join $::env(HOME) tkchatrc.tcl]]])} {
if { [catch { uplevel #0 source $rctclfile } err] } {
tk_messageBox \
-type ok \
-icon error \
-title "Error while loading \"$rctclfile\"" \
-message $err
::log::log error $err
|
| ︙ | ︙ |