* tkcon.tcl (tkcon): made tkcon console return whatever result it

	received.  Fixed Bug #438281.

diff --git a/ChangeLog b/ChangeLog
index 6ba6efcf512b8876c7144206d3ac87eee3ccb8fa..bbc786921e0377abdd6118299a59bacf82032531 100644 (file)
--- 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 eaac410bb5b427786647dc2a8b440b84771cf534..12939a4721e39e4ad587f00d0dde2f6e3411f936 100755 (executable)
--- 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]