Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Christian Butz
VTK
Commits
8985ac0a
Commit
8985ac0a
authored
Jan 05, 2004
by
Sebastien Barre
Browse files
can be used not only when tcl/tk static
parent
6f73dbbe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Wrapping/Tcl/vtkTkAppInit.cxx
View file @
8985ac0a
...
...
@@ -34,9 +34,7 @@ PURPOSE. See the above copyright notice for more information.
#include
"vtkToolkits.h"
#include
"Wrapping/Tcl/vtkTkAppInitConfigure.h"
#ifdef VTK_TCL_TK_STATIC
#include
<sys/stat.h>
#endif
#if defined(CMAKE_INTDIR)
# define VTK_TCL_PACKAGE_DIR VTK_TCL_PACKAGE_DIR_BUILD "/" CMAKE_INTDIR
...
...
@@ -198,7 +196,6 @@ void help()
{
}
#ifdef VTK_TCL_TK_STATIC
int
vtkTkAppInitFileExists
(
const
char
*
filename
)
{
struct
stat
fs
;
...
...
@@ -279,7 +276,6 @@ const char* vtkTkAppInitConvertToUnixSlashes(const char* path, char *unix_path)
return
unix_path
;
}
#endif
int
Tcl_AppInit
(
Tcl_Interp
*
interp
)
{
...
...
@@ -307,7 +303,6 @@ int Tcl_AppInit(Tcl_Interp *interp)
be copied.
*/
#ifdef VTK_TCL_TK_STATIC
int
has_tcllibpath_env
=
getenv
(
"TCL_LIBRARY"
)
?
1
:
0
;
int
has_tklibpath_env
=
getenv
(
"TK_LIBRARY"
)
?
1
:
0
;
if
(
!
has_tcllibpath_env
||
!
has_tklibpath_env
)
...
...
@@ -348,7 +343,6 @@ int Tcl_AppInit(Tcl_Interp *interp)
}
}
}
#endif
if
(
Tcl_Init
(
interp
)
==
TCL_ERROR
)
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment