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

load std
load wx
load creaMaracasVisu

new LayoutSplit s
	set s.Orientation H
new LayoutSplit ss
	set ss.Orientation H

new LayoutLine s1
new LayoutLine s2

set s1.Orientation V
set ss.Orientation H
set s2.Orientation V

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

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

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


new ColorBar colorB_v
set colorB_v.Orientation 0
set colorB_v.InW 300
set colorB_v.InH 50
set colorB_v.InMax 350
set colorB_v.InMin 0
set colorB_v.Reds " 0 255 0 255 220 30"
set colorB_v.Greens " 0 220 220 100 240 55"
set colorB_v.Blues " 255 0 15 0 0 0"
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 

exec s