From 499194826b8ddab8b155babfc02dc9c21df4ccd8 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 3 Nov 2000 19:38:25 +0000
Subject: added comments about Tcl_SetMainLoop call effects

---
 generic/tkWindow.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index ce5120a..d20ffc8 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWindow.c,v 1.27 2000/11/03 18:46:58 hobbs Exp $
+ * RCS: @(#) $Id: tkWindow.c,v 1.28 2000/11/03 19:38:25 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -3058,6 +3058,14 @@ Initialize(interp)
     if (code != TCL_OK) {
 	goto done;
     } else {
+	/*
+	 * If we were able to provide ourselves as a package, then set
+	 * the main loop procedure in Tcl to our main loop proc.  This
+	 * will cause tclsh to be event-aware when Tk is dynamically
+	 * loaded.  This will have no effect in wish, which already is
+	 * prepared to run the event loop.
+	 */
+
 	Tcl_SetMainLoop(Tk_MainLoop);
     }
 
-- 
cgit v0.12