Commit 860cba5c authored by Ken Martin's avatar Ken Martin
Browse files

modified to work with tk4.0 tcl7.4 and tclX7.4a-b5

parent 629f59cf
...@@ -25,6 +25,10 @@ Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen 1993, 1994 ...@@ -25,6 +25,10 @@ Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen 1993, 1994
#include <math.h> #include <math.h>
#include "tk.h" #include "tk.h"
extern "C" {
extern int TkXFileProc(ClientData clientData, int mask, int flags);
}
#define TK_IS_DISPLAY 32 #define TK_IS_DISPLAY 32
// returns 1 if done // returns 1 if done
...@@ -186,10 +190,12 @@ void vtkXRenderWindowInteractor::Initialize() ...@@ -186,10 +190,12 @@ void vtkXRenderWindowInteractor::Initialize()
this->Size[1] = size[1]; this->Size[1] = size[1];
// add in tcl init stuff // add in tcl init stuff
Tk_CreateFileHandler(ConnectionNumber(display), Tk_CreateFileHandler2(ConnectionNumber(display), TkXFileProc,
TK_READABLE|TK_IS_DISPLAY, (ClientData) display);
(void (*)(void *,int)) NULL, // Tk_CreateFileHandler(ConnectionNumber(display),
(ClientData) display); // TK_READABLE|TK_IS_DISPLAY,
// (void (*)(void *,int)) NULL,
// (ClientData) display);
Tk_CreateGenericHandler((Tk_GenericProc *)vtkTclEventProc,(ClientData)this); Tk_CreateGenericHandler((Tk_GenericProc *)vtkTclEventProc,(ClientData)this);
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment