From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Tue, 28 Feb 2006 20:45:21 +0000 (+0000)
Subject: 	* tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets)
X-Git-Tag: tkcon-2-5~22
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4eeb144c4ad070a5da581119ae73ddd4e73abca6;p=tkcon

	* tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets)
	to support usage at script load time. (decoster)
---

diff --git a/ChangeLog b/ChangeLog
index e7a1e86..3490128 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-28  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets)
+	to support usage at script load time. (decoster)
+
 2006-01-25  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (MenuConfigure): Fix ActiveTcl Help link when pointing
diff --git a/tkcon.tcl b/tkcon.tcl
index 5d76a78..cb91413 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -3363,8 +3363,9 @@ proc tkcon {cmd args} {
 	    bind TkConsole <<TkCon_Eval>> { set ::tkcon::PRIV(wait) 0 }
 	    set w $PRIV(console)
 	    # Make sure to move the limit to get the right data
+	    $w mark set limit end-1c
+	    $w mark gravity limit left
 	    $w mark set insert end
-	    $w mark set limit insert
 	    $w see end
 	    vwait ::tkcon::PRIV(wait)
 	    set line [::tkcon::CmdGet $w]