From acb80ad87959cd3328ead28630d796f012858435 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Tue, 19 Sep 2000 18:49:29 +0000 Subject: [PATCH] tkcon.tcl: updated v1.2 to v1.3 version, tagged tkcon-1-3 --- ChangeLog | 1 + tkcon.tcl | 17 +++++++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 66edd24..58af0fa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2000-09-19 Jeff Hobbs + * tkcon.tcl: updated v1.2 to v1.3 version, tagged tkcon-1-3 * tkcon.tcl: updated v1.1 to v1.2 version, tagged tkcon-1-2 * tkcon.tcl: updated v1.03 to v1.1 version, tagged tkcon-1-1 * tkcon.tcl: updated v1.02 to v1.03 version, tagged tkcon-1-03 diff --git a/tkcon.tcl b/tkcon.tcl index 07735bd..ca74d92 100755 --- a/tkcon.tcl +++ b/tkcon.tcl @@ -122,8 +122,8 @@ set TKCON(WWW) [info exists embed_args] alias auto_execok clear dir dump echo idebug lremove tkcon_puts tclindex observe observe_var unalias which } - version 1.2 - release {26 May 1998} + version 1.3 + release {27 May 1998} docs {http://www.cs.uoregon.edu/research/tcl/script/tkcon/} email {jeff.hobbs@acm.org} root . @@ -306,7 +306,7 @@ set TKCON(WWW) [info exists embed_args] $slave alias exit exit interp eval $slave { catch {rename puts tkcon_tcl_puts} - catch {rename gets tkcon_tcl_gets} + #catch {rename gets tkcon_tcl_gets} } foreach cmd $TKCON(slaveprocs) { $slave eval [dump proc $cmd] } foreach cmd $TKCON(slavealias) { $slave alias $cmd $cmd } @@ -352,7 +352,7 @@ set TKCON(WWW) [info exists embed_args] tkConAttach $name $type tkConEvalAttached { catch {rename puts tkcon_tcl_puts} - catch {rename gets tkcon_tcl_gets} + #catch {rename gets tkcon_tcl_gets} } foreach cmd $TKCON(slaveprocs) { tkConEvalAttached [dump proc $cmd] } switch -exact $type { @@ -2665,7 +2665,7 @@ proc dir {args} { } else { foreach o $out { set d [lindex $o 0] - append res $d:\n + append res "$d:\n" set i 0 foreach f [lindex $o 1] { if {[string len [file tail $f]] > $i} { @@ -3498,10 +3498,11 @@ if {[info tclversion] > 8.0} {; } else { if {[llength $m] > 1} { global tcl_platform - if {[string match windows $tcl_platform(platform)]} { + if {[string match windows $tcl_platform(platform)] \ + && [string compare "Windows NT" $tcl_platform(os)]} { ## Windows is screwy because it's case insensitive set tmp [tkConExpandBestMatch [string tolower $m] \ - [string tolow [file tail $str]]] + [string tolower [file tail $str]]] } else { set tmp [tkConExpandBestMatch $m [file tail $str]] } @@ -3789,7 +3790,7 @@ if {[string compare [info command toplevel] toplevel]} { "[list $i] eval [list [lindex $args 1]]"] } set code [catch "bind $w $args" msg] - if {[llength $args] <2 && code == 0} { + if {[llength $args] <2 && $code == 0} { set msg [lindex $msg 3] } return -code $code $msg -- 2.23.0