TclApps Library Source Code
Check-in [f633128a94]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: f633128a94aa6fd76a7daec706adbec963c7599c
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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