/usr/lib/vtk-5.8/tcl/vtkrendering/vtkrendering.tcl is in tcl-vtk 5.8.0-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | package require -exact vtkgraphics 5.8
package require -exact vtkimaging 5.8
catch {
unset __tk_error
}
namespace eval ::vtk::rendering {
proc SetWin32ExitCallback {} {
# Set the default exit method of vtkWin32RenderWindowInteractor to
# call the Tcl 'exit' command
if {[info commands vtkWin32RenderWindowInteractor] != ""} {
if {[catch {
# this exit method is called when the user exists interactively
# (such as pressing 'e' or 'q'). An extra reference is added to
# the callback command used to process it by the
# vtkSubjectHelper::InvokeEvent method. If the callback exits the
# application immediately in its Execute() method, this reference
# is never removed and the object leaks. Using 'after idle' allows
# the stack to unwind far enough. This is similar to Win32
# PostQuitMessage() logic.
vtkWin32RenderWindowInteractor __temp_vtkwin32iren__
__temp_vtkwin32iren__ SetClassExitMethod {after idle exit}
__temp_vtkwin32iren__ Delete
} errormsg]} {
puts $errormsg
}
}
}
}
if {[info commands ::vtk::init::require_package] != ""} {
if {![info exists __tk_error] && \
[::vtk::init::require_package vtkRenderingTCL 5.8]} {
::vtk::rendering::SetWin32ExitCallback
package provide vtkrendering 5.8
}
} else {
if {![info exists __tk_error] && \
([info commands vtkAxisActor2D] != "" || \
[::vtk::load_component vtkRenderingTCL] == "")} {
::vtk::rendering::SetWin32ExitCallback
package provide vtkrendering 5.8
}
}
|