From: uid38172 <uid38172>
Date: Thu, 5 Jul 2001 00:31:52 +0000 (+0000)
Subject: 	* tkcon.tcl (tkcon): made tkcon console return whatever result it
X-Git-Tag: tkcon-2-4~46
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b7bba9294aa6a05a61277551f9f44f6c8a95f427;p=tkcon

	* tkcon.tcl (tkcon): made tkcon console return whatever result it
	received.  Fixed Bug #438281.
---

diff --git a/ChangeLog b/ChangeLog
index 6ba6efc..bbc7869 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-04  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (tkcon): made tkcon console return whatever result it
+	received.  Fixed Bug #438281.
+
 2001-06-20  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	TKCON 2.2 RELEASE
diff --git a/tkcon.tcl b/tkcon.tcl
index eaac410..12939a4 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -1891,7 +1891,7 @@ proc ::tkcon::Save { {fn ""} {type ""} {opt ""} {mode w} } {
     if {[catch {open $fn $mode} fid]} {
 	return -code error "Save Error: Unable to open '$fn' for writing\n$fid"
     }
-    puts $fid $data
+    puts -nonewline $fid $data
     close $fid
 }
 
@@ -2481,9 +2481,10 @@ proc tkcon {cmd args} {
 	}
 	cons* {
 	    ## 'console' - passes the args to the text widget of the console.
-	    uplevel 1 $::tkcon::PRIV(console) $args
+	    set result [uplevel 1 $::tkcon::PRIV(console) $args]
 	    ::tkcon::ConstrainBuffer $::tkcon::PRIV(console) \
 		    $::tkcon::OPT(buffer)
+	    return $result
 	}
 	congets {
 	    ## 'congets' a replacement for [gets stdin]