[Plplot-cvs] SF.net SVN: plplot:[12881] trunk/bindings/tk/tkMain.c

[<ai...@us...>]

Revision: 12881
          http://sourceforge.net/p/plplot/code/12881
Author:   airwin
Date:     2013-12-19 01:25:14 +0000 (Thu, 19 Dec 2013)
Log Message:
-----------
Comment out debug print statements that somehow got into a recent
commit.

Modified Paths:
--------------
    trunk/bindings/tk/tkMain.c

Modified: trunk/bindings/tk/tkMain.c
===================================================================
--- trunk/bindings/tk/tkMain.c	2013-12-19 00:46:00 UTC (rev 12880)
+++ trunk/bindings/tk/tkMain.c	2013-12-19 01:25:14 UTC (rev 12881)
@@ -204,7 +204,7 @@
     //
     // Parse command-line arguments.
     //
-    fprintf( stderr, "Before Tk_ParseArgv\n" );
+    //fprintf( stderr, "Before Tk_ParseArgv\n" );
 
     if ( Tk_ParseArgv( interp, (Tk_Window) NULL, &argc, argv, argTable, 0 )
          != TCL_OK )
@@ -212,7 +212,7 @@
         fprintf( stderr, "%s\n", Tcl_GetStringResult( interp ) );
         exit( 1 );
     }
-    fprintf( stderr, "After Tk_ParseArgv\n" );
+    //fprintf( stderr, "After Tk_ParseArgv\n" );
     if ( name == NULL )
     {
         if ( fileName != NULL )
@@ -315,7 +315,7 @@
     // and "argv".  Also set the "geometry" variable from the geometry
     // specified on the command line.
     //
-    fprintf( stderr, "Before Tcl_Merge\n" );
+    //fprintf( stderr, "Before Tcl_Merge\n" );
 
     args = Tcl_Merge( argc - 1, ( CONST char * CONST * )argv + 1 );
     Tcl_SetVar( interp, "argv", args, TCL_GLOBAL_ONLY );
@@ -323,7 +323,7 @@
     sprintf( buf, "%d", argc - 1 );
     Tcl_SetVar( interp, "argc", buf, TCL_GLOBAL_ONLY );
 
-    fprintf( stderr, "After Tcl_Merge\n" );
+    //fprintf( stderr, "After Tcl_Merge\n" );
     if ( geometry != NULL )
     {
         Tcl_SetVar( interp, "geometry", geometry, TCL_GLOBAL_ONLY );
@@ -345,7 +345,7 @@
     //
     // Invoke application-specific initialization.
     //
-    fprintf( stderr, "Before AppInit\n" );
+    //fprintf( stderr, "Before AppInit\n" );
 
     if ( ( *AppInit )( interp ) != TCL_OK )
     {
@@ -369,7 +369,7 @@
     //
     // Process the startup script, if any.
     //
-    fprintf( stderr, "Before startup\n" );
+    //fprintf( stderr, "Before startup\n" );
 
     if ( script != NULL )
     {
@@ -384,7 +384,7 @@
     //
     // Invoke the script specified on the command line, if any.
     //
-    fprintf( stderr, "Before source\n" );
+    //fprintf( stderr, "Before source\n" );
 
     if ( fileName != NULL )
     {
@@ -448,7 +448,7 @@
     // are no windows left, Tk_MainLoop returns and we exit.
     //
 
-    fprintf( stderr, "Before Tk_MainLoop\n" );
+    //fprintf( stderr, "Before Tk_MainLoop\n" );
     Tk_MainLoop();
 
     //

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.