0032232: Draw Harness - make Tk dependency optional

[occt.git] / src / IVtkDraw / IVtkDraw_Interactor.cxx

diff --git a/src/IVtkDraw/IVtkDraw_Interactor.cxx b/src/IVtkDraw/IVtkDraw_Interactor.cxx
index c4deb0a..94fdf3b 100644 (file)
--- a/src/IVtkDraw/IVtkDraw_Interactor.cxx
+++ b/src/IVtkDraw/IVtkDraw_Interactor.cxx
@@ -202,13 +202,8 @@ void IVtkDraw_Interactor::Enable()
   SetWindowLongPtr(this->myWindowId, GWLP_USERDATA, (LONG_PTR)this);
   SetWindowLongPtr(this->myWindowId, GWLP_WNDPROC, (LONG_PTR)WndProc);
 #else
-  #if TCL_MAJOR_VERSION  < 8
-    Tk_CreateFileHandler((void*)ConnectionNumber(this->myDisplayId),
-      TK_READABLE, ProcessEvents, (ClientData) this);
-  #else
-    Tk_CreateFileHandler(ConnectionNumber(this->myDisplayId),
-      TK_READABLE, ProcessEvents, (ClientData) this);
-  #endif
+  Tcl_CreateFileHandler (ConnectionNumber(this->myDisplayId),
+                         TCL_READABLE, ProcessEvents, (ClientData) this);
 #endif
 
   this->Enabled = 1;