/usr/lib/tcltk/vtk-6.3/vtk/vtk.tcl is in tcl-vtk6 6.3.0+dfsg1-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 | foreach kit ${vtk::init::kits} {
package require -exact vtk${kit} 6.3
}
# Invoke DeleteAllObjects on exit
rename ::exit ::vtk::exit
proc ::exit {{returnCode 0}} {
vtkCommand DeleteAllObjects
return [::vtk::exit $returnCode]
}
# Automagically add a ExitEvent callback to an vtkRWI object
proc AddExitEventCallback {cmd code result op} {
if {$code == 0} {
$result AddObserver ExitEvent ::exit
}
}
trace add execution vtkRenderWindowInteractor leave AddExitEventCallback
package provide vtk 6.3
|