Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Make tkchatrc.tcl handling work on Windows |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f633128a94aa6fd76a7daec706adbec9 |
| User & Date: | mistachkin 2009-02-25 10:30:08 |
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
261
262
263
264
265
266
267
268
...
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
|
}
}
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.456 2009/02/25 05:10:51 eee 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." \
................................................................................
# 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]]]} {
if { [catch { uplevel #0 source $rctclfile } err] } {
tk_messageBox \
-type ok \
-icon error \
-title "Error while loading \"$rctclfile\"" \
-message $err
::log::log error $err
|
|
|
|
>
>
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
...
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
|
}
}
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." \
................................................................................
# 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
|