* tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67

diff --git a/ChangeLog b/ChangeLog
index c377d026f09895039da442f0ffc8a1986e04d267..61b20a26f840ed9c70c8446d904116d2e9ac8941 100644 (file)
--- 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 0d5e7f9031874943f773c287fd16491c21e2561c..72c9634799f8c5eb216380f4eaf3a40d7a15f0f9 100755 (executable)
--- 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} {