* tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets)

	to support usage at script load time. (decoster)

diff --git a/ChangeLog b/ChangeLog
index e7a1e862f3a283e8fbf1d073c62a5ef8dc62e300..3490128f2d4f56326719c50b1b3ed8f3ef1b38f5 100644 (file)
--- 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 5d76a78014c90b9a8ab485681dac648414faba43..cb91413e64a2fe4b44280a87c55026811c9f8535 100755 (executable)
--- 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]