From: cas <cas@opencascade.com>
Date: Thu, 22 Jun 2000 09:05:44 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=1f9ff03902b7761e7212ad9c20287c2c911e0e96;p=occt-wok.git

No comments
---

diff --git a/src/WOKSH/wokprocess.cxx b/src/WOKSH/wokprocess.cxx
index 38750fa..c066ce0 100755
--- a/src/WOKSH/wokprocess.cxx
+++ b/src/WOKSH/wokprocess.cxx
@@ -90,7 +90,11 @@ 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
   
   tcl.Require();
   
diff --git a/src/WOKSH/woksh.cxx b/src/WOKSH/woksh.cxx
index 289bea3..fb5807b 100755
--- a/src/WOKSH/woksh.cxx
+++ b/src/WOKSH/woksh.cxx
@@ -104,11 +104,13 @@ int Wok_Init(WOKTclTools_PInterp interp)
 	}
     }
 
-#ifndef LIN
-  WOKTclTools_Package tcl(CurrentInterp, "Tcl", "7.5");
-#else
+# if defined( LIN )
   WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "8.0" );
-#endif  // LIN
+#elif defined( AIX )
+  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "8.1" );
+#else
+  WOKTclTools_Package tcl ( CurrentInterp, "Tcl", "7.5" );
+#endif 
   
   tcl.Require();