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  -------------------------------------

// Just to see the mess when you want something not so simple...

//                          upLeft    upRight
//                        ----------|-----------|
//                        |         |           |
//                        |         |           |
//                        |         |           |
//      UP                |---------|           |
//                        |         |           |
//                        |         |           |
//                        |         |           |
//     ----------         -----------------------
//                        |                     |
//                        |                     |
//                        |                     |
//                        |                     |
//        DOWN            ----------|-----------|
//                        |         |           |
//                        |         |           |
//                        |         |           |  downDown
//                        |         |           |
//                        ----------------------
//
// Better use a mix of LayoutTxxx (xxx = Up, Down, Right, Left)!
//
//
// TODO : add same structure using only  LayoutTxxx
 
new LayoutSplit main
 set main.Orientation V

new LayoutSplit up
set up.Orientation H

new LayoutSplit down
  set down.Orientation V
  new Slider s1Down
      set s1Down.Title "s1Down"
  connect s1Down.Widget   down.Widget1
     
 new LayoutSplit downDown
  set downDown.Orientation H
  
  connect downDown.Widget down.Widget2 
     
  new RadioButton rb1
    set rb1.Title "Rad But DownLeft"
    set rb1.In0 "Choix 1"
    set rb1.In1 "Choix 2"
    set rb1.In2 "Choix 3"
    set rb1.In3 "Choix 4"
    set rb1.In 1
   connect rb1.Widget downDown.Widget1


  new RadioButton rb2
    set rb2.Title "Rad But DownLeft"
    set rb2.In0 "Choix 1"
    set rb2.In1 "Choix 2"
    set rb2.In2 "Choix 3"
    set rb2.In3 "Choix 4"
    set rb2.In 4
   connect rb2.Widget downDown.Widget2


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


  new LayoutSplit upLeft
    set upLeft.Proportion 80
    // only 2 objets are allowed here
    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
*/