I686LINUX/util/I686LINUX/lib/vtk/tcl/vtkinteraction/bindings-rw.tcl

   1 namespace eval ::vtk {
   2
   3     namespace export *
   4
   5     # -------------------------------------------------------------------
   6     # Create vtkTkRenderWidget bindings, setup observers
   7
   8     proc bind_tk_render_widget {vtkrw} {
   9         bind_tk_widget $vtkrw [$vtkrw GetRenderWindow]
  10     }
  11 }
  12
  13 # Handle deprecated calls
  14
  15 proc BindTkRenderWidget {widget} {
  16     puts stderr "BindTkImageViewer is deprecated. Please use ::vtk::bind_tk_render_widget instead"
  17     ::vtk::bind_tk_render_widget $widget
  18 }