load wx
load vtk
load std
load wxvtk

define MIPWidget wxvtk
  author "laurent.guigues@creatis.insa-lyon.fr"
  description "Maximum Intensity Projection (MIP) creator (vtk::MIPCreator) with associated control panel (shift and scale)"
  category "image;mesh;widget;viewer"

  new LayoutLine controls
  new LayoutLine sliders
  new MIPCreator MIP
##EED  new Slider shift
##EED  new Slider scale
#  new LayoutLine colourFrame
#  new ColourSelectorButton colour
  new MultipleInputs refresh  
##EED  new Div div

  connect sliders.Widget controls.Widget1
#  connect colourFrame.Widget controls.Widget2

#  connect colour.Widget colourFrame.Widget1
##EED  connect shift.Widget sliders.Widget1
##EED  connect scale.Widget sliders.Widget2
  
##EED  connect shift.Out MIP.Shift
##EED  connect scale.Out div.In1
##EED  set div.In2 10
##EED  connect div.Out MIP.Scale
#  connect colour.Out MIP.Colour

##EED  connect shift.BoxChange refresh.In1
##EED  connect scale.BoxChange refresh.In2
#  connect colour.BoxChange refresh.In3

#  connect colourButton.BoxChange colour.BoxExecute

#  set colourFrame.WinTitle "Colour"
  set controls.Orientation HORIZONTAL
##EED  set shift.Title "Shift"
##EED  set shift.Min 0
##EED  set shift.Max 500
##EED  set scale.Title "Scale x10"
##EED  set scale.Min 0
##EED  set scale.Max 500
##EED  set scale.In 10
 
#  set colourButton.Label "Colour"


  input Title controls.WinTitle "Title of the control panel" 
  input In MIP.In "Input image"

##EED  input Scale scale.In "Initial scale"
##EED  input Shift shift.In "Initial shift"
#  input Colour colour.In "Initial colour"

  input BoxExecute MIP.BoxExecute "Box execution"

  input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"

  output Out MIP.Out "Output MIP"
  output BoxChange refresh.Out "BoxChange" 
  output Widget controls.Widget "Widget"

endefine