description "More complicated example of wx::LayoutLine widgets"
author "jean-pierre.roux@creatis.univ-lyon1.fr"
category "example"

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
//                        |         |           |
//                        ----------------------
new LayoutLine main
 set main.Orientation V

new LayoutLine up
  set up.Orientation H

new LayoutLine down
  set down.Orientation V
  new Slider s1Down
      set s1Down.Title "s1Down"
  connect s1Down.Widget   down.Widget1
     
 new LayoutLine 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 LayoutLine upLeft
  
    new Slider sUpLeft10
      set sUpLeft10.Title "sUpLeft10"
    connect sUpLeft10.Widget upLeft.Widget1
    new Slider sUpLeft11
      set sUpLeft11.Title "sUpLeft11"
    connect sUpLeft11.Widget upLeft.Widget2
    new Slider sUpLeft12
      set sUpLeft12.Title "sUpLeft12"
    connect sUpLeft12.Widget upLeft.Widget3
    new Slider sUpLeft13
      set sUpLeft13.Title "sUpLeft13"
    connect sUpLeft13.Widget upLeft.Widget4

    new Slider sUpLeft14
      set sUpLeft14.Title "sUpLeft14"
    connect sUpLeft14.Widget upLeft.Widget5
    new Slider sUpLeft15
      set sUpLeft15.Title "sUpLeft15"
    connect sUpLeft15.Widget upLeft.Widget6
    new Slider sUpLeft16
      set sUpLeft16.Title "sUpLeft16"
    connect sUpLeft16.Widget upLeft.Widget7
    new Slider sUpLeft17
      set sUpLeft17.Title "sUpLeft17"
    connect sUpLeft17.Widget upLeft.Widget8
  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
*/