You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.8 KiB
51 lines
1.8 KiB
/*=========================================================================
|
|
|
|
Program: Visualization Toolkit
|
|
Module: $RCSfile: vtkTkWidgetsInit.cxx,v $
|
|
|
|
Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
|
|
All rights reserved.
|
|
See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
|
|
|
|
This software is distributed WITHOUT ANY WARRANTY; without even
|
|
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
PURPOSE. See the above copyright notice for more information.
|
|
|
|
=========================================================================*/
|
|
#include "vtkTcl.h"
|
|
#include "vtkTk.h"
|
|
|
|
#include "vtkTkImageViewerWidget.h"
|
|
#include "vtkTkRenderWidget.h"
|
|
#include "vtkImageData.h"
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
// Vtkrenderingpythontkwidgets_Init
|
|
// Called upon system startup to create the widget commands.
|
|
extern "C" {VTK_TK_EXPORT int Vtkrenderingpythontkwidgets_Init(Tcl_Interp *interp);}
|
|
|
|
extern "C" {VTK_TK_EXPORT int Vtktkrenderwidget_Init(Tcl_Interp *interp);}
|
|
extern "C" {VTK_TK_EXPORT int Vtktkimageviewerwidget_Init(Tcl_Interp *interp);}
|
|
|
|
#define VTKTK_TO_STRING(x) VTKTK_TO_STRING0(x)
|
|
#define VTKTK_TO_STRING0(x) VTKTK_TO_STRING1(x)
|
|
#define VTKTK_TO_STRING1(x) #x
|
|
#define VTKTK_VERSION VTKTK_TO_STRING(VTK_MAJOR_VERSION) "." VTKTK_TO_STRING(VTK_MINOR_VERSION)
|
|
|
|
int Vtkrenderingpythontkwidgets_Init(Tcl_Interp *interp)
|
|
{
|
|
// Forward the call to the real init functions.
|
|
if(Vtktkrenderwidget_Init(interp) == TCL_OK &&
|
|
Vtktkimageviewerwidget_Init(interp) == TCL_OK)
|
|
{
|
|
// Report that the package is provided.
|
|
return Tcl_PkgProvide(interp, (char*)"Vtkrenderingpythontkwidgets",
|
|
(char*)VTKTK_VERSION);
|
|
}
|
|
else
|
|
{
|
|
// One of the widgets is not provided.
|
|
return TCL_ERROR;
|
|
}
|
|
}
|
|
|