From: cas <cas@opencascade.com>
Date: Fri, 15 Jun 2001 17:55:35 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=decda4b54efdf23c27d4d578bfceccd6d04cd02d;p=occt-wok.git

No comments
---

diff --git a/src/WOKSH/wokprocess.cxx b/src/WOKSH/wokprocess.cxx
index c066ce0..821f1be 100755
--- 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 fb5807b..d9cf458 100755
--- 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. =============