view release on metacpan or  search on metacpan

Tk/Tk.xs  view on Meta::CPAN

#include <EXTERN.h>

/* avoid some nasty defines on win32 that cause c++ compilation to fail */
#ifdef WIN32
#define WIN32IOP_H
#endif

#include <perl.h>
#include <XSUB.h>

/* 'THIS' gets redefined to 'void' in 
the standard mingw include 'basetyps.h', which causes problems with
the 'THIS' that appears in XS code. */
#ifdef __MINGW32__
#undef THIS
#endif

#include "vtkPerl.h"

/* Don't include Xwindows stuff on win32 */
#ifndef WIN32
#include "vtkXRenderWindowTclInteractor.h"
#endif


#include "tkGlue.def"

#include "tkPort.h"
#include "tkInt.h"
/* Include win32 Tk Stuff */
#ifdef WIN32
#include "tkWin.h"
#include "tkWinInt.h"
#endif
#include "tkVMacro.h"
#include "tkGlue.h"
#include "tkGlue.m"




DECLARE_VTABLES;
DECLARE_WIN32_VTABLES;

MODULE = Graphics::VTK::Tk	PACKAGE = Graphics::VTK

PROTOTYPES: DISABLE


BOOT:
 {
  IMPORT_VTABLES;
  IMPORT_WIN32_VTABLES;
 }

#ifndef WIN32

MODULE = Graphics::VTK::Tk	PACKAGE = Graphics::VTK::XRenderWindowTclInteractor PREFIX = vtk

PROTOTYPES: DISABLE



int
vtkXRenderWindowTclInteractor::CreateTimer(timertype)
		int 	timertype
		CODE:
		RETVAL = THIS->CreateTimer(timertype);
		OUTPUT:
		RETVAL


int
vtkXRenderWindowTclInteractor::DestroyTimer()
		CODE:
		RETVAL = THIS->DestroyTimer();
		OUTPUT:
		RETVAL


void
vtkXRenderWindowTclInteractor::Disable()
		CODE:
		THIS->Disable();
		XSRETURN_EMPTY;


void
vtkXRenderWindowTclInteractor::Enable()
		CODE:
		THIS->Enable();
		XSRETURN_EMPTY;