# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script
# - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/exampleBars.bbs
# ----------------------------------

# BBTK GEditor Script
# ----------------------

include std
include itkvtk
include wx
include creaMaracasVisu

author "eduardo.davila@creatis.insa-lyon.fr"
description "creaMaracasVisu::ColorBar box example. "
category "example"

new wx:LayoutSplit s
  set s.Orientation "H"

new wx:LayoutSplit ss
  set ss.Orientation "H"

new wx:LayoutLine s1
  set s1.Orientation "V"

new wx:LayoutLine s2
  set s2.Orientation "V"

new creaMaracasVisu:SliderMinMax sliderMM_h
  set sliderMM_h.InH "90"
  set sliderMM_h.InMax "350"
  set sliderMM_h.InMin "0"
  set sliderMM_h.InW "300"
  set sliderMM_h.Orientation "1"
  set sliderMM_h.ShowLabels "1"

new creaMaracasVisu:SliderMinMax sliderMM_v
  set sliderMM_v.InH "30"
  set sliderMM_v.InMax "350"
  set sliderMM_v.InMin "0"
  set sliderMM_v.InW "300"
  set sliderMM_v.Orientation "0"
  set sliderMM_v.ShowLabels "1"

new creaMaracasVisu:ColorBar colorB_h
  set colorB_h.Blues " 255 0 15 0 0 0"
  set colorB_h.Greens " 0 220 220 100 240 55"
  set colorB_h.InH "50"
  set colorB_h.InMax "350"
  set colorB_h.InMin "0"
  set colorB_h.InW "300"
  set colorB_h.Orientation "1"
  set colorB_h.Reds " 0 255 0 255 220 30"
  set colorB_h.Values " 0 30 70 130 250 310"

new creaMaracasVisu:ColorBar colorB_v
  set colorB_v.Blues " 255 0 15 0 0 0"
  set colorB_v.Greens " 0 220 220 100 240 55"
  set colorB_v.InH "50"
  set colorB_v.InMax "350"
  set colorB_v.InMin "0"
  set colorB_v.InW "300"
  set colorB_v.Orientation "0"
  set colorB_v.Reds " 0 255 0 255 220 30"
  set colorB_v.Values " 0 30 70 130 250 310"


connect s1.Widget s.Widget1

connect s2.Widget s.Widget2

connect sliderMM_h.Widget s1.Widget1

connect colorB_h.Widget s1.Widget2

connect ss.Widget s2.Widget1

connect sliderMM_v.Widget ss.Widget1

connect colorB_v.Widget ss.Widget2



# Complex input ports
exec s