description "Simple test of wx::LayoutSplit widgets"
author "jean-pierre.roux@creatis.univ-lyon1.fr"
category "example;widget"

load std
load wx


#----- I N T E R F A C E  -------------------------------------


new LayoutSplit main
 set main.Orientation V

new LayoutSplit up
set up.Orientation H

new LayoutSplit down
  set down.Orientation V
  new Slider sDown
      set sDown.Title "sDown"
  connect sDown.Widget   down.Widget1
  new RadioButton rb
    set rb.Title "Rad But Down"
    set rb.In0 "Choix 1"
    set rb.In1 "Choix 2"
    set rb.In2 "Choix 3"
    set rb.In3 "Choix 4"
    set rb.In 1
   connect rb.Widget down.Widget2


connect up.Widget   main.Widget1
connect down.Widget main.Widget2


  new LayoutSplit upLeft
    set upLeft.Proportion 80
    new Slider sUpLeft1
      set sUpLeft1.Title "sUpLeft1"
    connect sUpLeft1.Widget upLeft.Widget1
    new Slider sUpLeft2
      set sUpLeft2.Title "sUpLeft2"
    connect sUpLeft2.Widget upLeft.Widget2
  connect upLeft.Widget up.Widget1


  new LayoutLine upRight
    set upRight.Orientation H
    new Slider s1
    set s1.Orientation V
    set s1.Title "s1"
    new Slider s2
    set s2.Orientation V
    set s2.Title "s2"
    new Slider s3
    set s3.Orientation V
    set s3.Title "s3"
    new Slider s4
    set s4.Orientation V
    set s4.Title "s4"
    connect s1.Widget upRight.Widget1 
    connect s2.Widget upRight.Widget2 
    connect s3.Widget upRight.Widget3 
    connect s4.Widget upRight.Widget4 
  connect upRight.Widget up.Widget2

#------p i p e l i n e---------------------------------------
#...
#------------------------------------------------------------


//graph
#set main.WinDialog 1
exec main


set s1.BoxProcessMode 1


//print rb=$rb.Out$\n

/*
print s1=$s1.Out$\n
print s2=$s2.Out$\n
print s3=$s3.Out$\n
print s4=$s4.Out$\n
print sUpLeft=$sUpLeft.Out$\n
print sDown=$sDown.Out$\n
*/