From: Jeff Hobbs Date: Tue, 19 Sep 2000 18:36:55 +0000 (+0000) Subject: * tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67 X-Git-Tag: tkcon-0-67 X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=cd4e60f21681af664cdef0c115ba411a078e0b7d;p=tkcon * tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67 --- diff --git a/ChangeLog b/ChangeLog index c377d02..61b20a2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2000-09-19 Jeff Hobbs + * tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67 * tkcon.tcl: updated v0.65 to v0.66 version, tagged tkcon-0-66 * tkcon.tcl: updated v0.64 to v0.65 version, tagged tkcon-0-65 * tkcon.tcl: updated v0.63 to v0.64 version, tagged tkcon-0-64 diff --git a/tkcon.tcl b/tkcon.tcl index 0d5e7f9..72c9634 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -93,7 +93,7 @@ proc tkConInit {} { slavealias { tkcon } slaveprocs { alias clear dir dump lremove puts echo tclindex idebug \ unknown tcl_unknown unalias which observe observe_var } - version 0.66 + version 0.67 release {November 1996} root . } @@ -3382,18 +3382,15 @@ proc tkConSafeWindow {i w option args} { if {[string match conf* $option] && [llength $args] > 1} { set args [tkConSafeSubst $i $args] } elseif {[string match itemco* $option] && [llength $args] > 2} { - set args "[list [lindex $args 0]] [tkConSafeSubst $i [lrange $args 1 end]\ -]" + set args "[list [lindex $args 0]] [tkConSafeSubst $i [lrange $args 1 end]]" } elseif {[string match cr* $option]} { if {[llength $args]%2} { - set args "[list [lindex $args 0]] [tkConSafeSubst $i [lrange $args 1 en\ -d]]" + set args "[list [lindex $args 0]] [tkConSafeSubst $i [lrange $args 1 end]]" } else { set args [tkConSafeSubst $i $args] } } elseif {[string match bi* $option] && [llength $args] > 2} { - set args [list [lindex $args 0] [lindex $args 1] "[list $i] eval [list [l\ -index $args 2]]"] + set args [list [lindex $args 0] [lindex $args 1] "[list $i] eval [list [lindex $args 2]]"] } set code [catch ".${i}_dot$w $option $args" msg] if {$code} {