package require vtk
package require vtkinteraction

# Create the render window to pass to the vtkTkRenderWidget
vtkRenderWindow renWin1
renWin1 StereoCapableWindowOn
# At this point the window is stereo capable
puts stdout [renWin1 Print]

set renderWidget [vtkTkRenderWidget .ren -width 400 -height 400 -r renWin1]
::vtk::bind_tk_render_widget $renderWidget
wm protocol . WM_DELETE_WINDOW ::vtk::cb_exit
pack $renderWidget

# Return the render window from the vtkTkRenderWidget
set renWin [$renderWidget GetRenderWindow]

# This should this should have the same capabilities as the original window
# but it is not stereo capable
puts stdout [$renWin Print]

$renWin SetStereoTypeToCrystalEyes
$renWin StereoRenderOn

vtkRenderer ren
$renWin AddRenderer ren
vtkConeSource cone
cone SetResolution 16
vtkPolyDataMapper coneMapper
coneMapper SetInput [cone GetOutput]
vtkActor coneActor
coneActor SetMapper coneMapper
ren AddActor coneActor

$renderWidget Render
tkwait window .