No comments

diff --git a/src/WOKSH/wokprocess.cxx b/src/WOKSH/wokprocess.cxx
index c066ce029488a1922a57f95d1dcaa4e68f7d52eb..821f1be82f53a9af5dc172bbf63d8af26d4b2511 100755 (executable)
--- a/src/WOKSH/wokprocess.cxx
+++ b/src/WOKSH/wokprocess.cxx
@@ -3,21 +3,12 @@
 // Author:     Jean GAUTIER
 //             <jga@cobrax>
 
+#include <tcl.h>
+
 #ifdef WNT
-# ifdef TCL_VERSION_75
-#  pragma comment( lib, "tcl75.lib" )
-#  pragma message( "Information: tcl75.lib is using as TCL library" )
-#  include <tcl75.h>
-# elif defined( TCL_VERSION_76 )
-#  pragma comment( lib, "tcl76.lib" )
-#  pragma message( "Information: tcl76.lib is using as TCL library" )
-# else
-#  pragma comment( lib, "tcl76i.lib" )
-#  pragma message( "Information: tcl76i.lib is using as TCL library" )
-# endif  // TCL75
+#  pragma message( "Information: tcl"TCL_VERSION".lib is using as TCL library" )
 #endif  // WNT
 
-#include <tcl.h>
 
 
 #include <Standard_ErrorHandler.hxx>
@@ -90,12 +81,7 @@ int main(int argc, char **argv)
        }
     }
 
-#if defined( AIX )
-  WOKTclTools_Package tcl(CurrentInterp, "Tcl", "8.1");
-#else
-  WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.5");
-#endif
-  
+  WOKTclTools_Package tcl(CurrentInterp, "Tcl", TCL_VERSION);
   tcl.Require();
   
   OSD::SetSignal();                  //==== Armed the signals. =============

diff --git a/src/WOKSH/woksh.cxx b/src/WOKSH/woksh.cxx
index fb5807b7d0320fbbc3acfd4fbd4247b7b027d884..d9cf4582a6195aa56e4cf014b755cc8288b051c2 100755 (executable)
--- a/src/WOKSH/woksh.cxx
+++ b/src/WOKSH/woksh.cxx
@@ -7,21 +7,12 @@
 
 
 
+#include <tcl.h>
+
 #ifdef WNT
-# ifdef TCL_VERSION_75
-#  pragma comment( lib, "tcl75.lib" )
-#  pragma message( "Information: tcl75.lib is using as TCL library" )
-#  include <tcl75.h>
-# elif defined( TCL_VERSION_76 )
-#  pragma comment( lib, "tcl76.lib" )
-#  pragma message( "Information: tcl76.lib is using as TCL library" )
-# else
-#  pragma comment( lib, "tcl76i.lib" )
-#  pragma message( "Information: tcl76i.lib is using as TCL library" )
-# endif  // TCL75
+#  pragma message( "Information: tcl"TCL_VERSION".lib is using as TCL library" )
 #endif  // WNT
 
-#include <tcl.h>
 
 //extern "C" {
 //#ifdef NEED_MATHERR
@@ -104,14 +95,7 @@ int Wok_Init(WOKTclTools_PInterp interp)
        }
     }
 
-# if defined( LIN )
-  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "8.0" );
-#elif defined( AIX )
-  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "8.1" );
-#else
-  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "7.5" );
-#endif 
-  
+  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", TCL_VERSION );
   tcl.Require();
   
   OSD::SetSignal();                  //==== Armed the signals. =============