load std
load wx
load wxvtk 
load vtk

include wxvtk/boxes/bbIsoSurfaceWidget

define SimpleIsoSurfaceViewer wxvtk

 description "Simple viewer of an iso-surface of an image"
 author "laurent.guigues@creatis.insa-lyon.fr"
 category "viewer"

 new LayoutSplit main
 new Viewer3D viewer

 new IsoSurfaceWidget surface

 set surface.Isovalue 10
 set surface.Title "Surface"
 set surface.Vertical 0

 connect viewer.Widget  main.Widget1
 connect surface.Widget main.Widget2 

 # WE NEED A MultipleInputs BOX TO CONNECT BOTH 
 # surface.BoxChange AND THE INPUT BoxExecute 
 # OF THE COMPLEX BOX TO viewer.BoxExecute
 new MultipleInputs refresh

  
 connect surface.Out       viewer.In1
 connect surface.BoxChange refresh.In1
 connect refresh.Out       viewer.BoxExecute

 set main.Proportion 80

 input In         surface.In     "Input image"
 input WinDialog  main.WinDialog "Dialog mode"
 input WinTitle   main.WinTitle  "Title of the window"
 input WinWidth   main.WinWidth  "Width of the window"
 input WinHeight  main.WinHeight "Height of the window"
 input BoxExecute refresh.In2    "Execute the box"

 output Widget main.Widget "Widget"
 # EXECUTING THE COMPLEX BOX EXECUTES the main
 exec main
endefine