From: Jeff Hobbs <hobbs@users.sourceforge.net>
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: http://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  <hobbs@scriptics.com>
 
+	* 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} {