load std
load wx
load wxvtk 

define SimpleSlicer

 description "Simple 2D viewer of a slice of a 3D image. The slice is controlled by a slider. See <a href='#DemoSimpleSlicer'>DemoSimpleSlicer.bbs</a>. Screenshot : <center><img src='DemoSimpleSlicer.png'></center>"
 author "laurent.guigues@creatis.insa-lyon.fr"
 category "viewer"

 new LayoutLine main
 new Viewer2D slicer
 new Slider slider
 # WE NEED A MultipleInputs BOX TO CONNECT BOTH 
 # slider.BoxChange AND THE INPUT BoxExecute 
 # OF THE COMPLEX BOX TO slicer.BoxExecute
 new MultipleInputs refresh

 connect slicer.Widget main.Widget1
 connect slider.Widget main.Widget2
 connect slider.Out slicer.Slice

 connect slider.BoxChange refresh.In1
 connect refresh.Out slicer.BoxExecute

 #set main.Proportion 80
 set slider.Title "Slice"

 input In slicer.In "Input image"
 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 slicer
 exec main
endefine