packages/wx/bbs/appli/exampleLayoutSplit_In_LayoutSplit.bbs

   1 description "Simple test of wx::LayoutSplit widgets"
   2 author "jean-pierre.roux@creatis.univ-lyon1.fr"
   3 category "example;widget"
   4
   5 load std
   6 load wx
   7
   8
   9 #----- I N T E R F A C E  -------------------------------------
  10
  11
  12 new LayoutSplit main
  13  set main.Orientation V
  14
  15 new LayoutSplit up
  16 set up.Orientation H
  17
  18 new LayoutSplit down
  19   set down.Orientation V
  20   new Slider sDown
  21       set sDown.Title "sDown"
  22   connect sDown.Widget   down.Widget1
  23   new RadioButton rb
  24     set rb.Title "Rad But Down"
  25     set rb.In0 "Choix 1"
  26     set rb.In1 "Choix 2"
  27     set rb.In2 "Choix 3"
  28     set rb.In3 "Choix 4"
  29     set rb.In 1
  30    connect rb.Widget down.Widget2
  31
  32
  33 connect up.Widget   main.Widget1
  34 connect down.Widget main.Widget2
  35
  36
  37   new LayoutSplit upLeft
  38     set upLeft.Proportion 80
  39     new Slider sUpLeft1
  40       set sUpLeft1.Title "sUpLeft1"
  41     connect sUpLeft1.Widget upLeft.Widget1
  42     new Slider sUpLeft2
  43       set sUpLeft2.Title "sUpLeft2"
  44     connect sUpLeft2.Widget upLeft.Widget2
  45   connect upLeft.Widget up.Widget1
  46
  47
  48   new LayoutLine upRight
  49     set upRight.Orientation H
  50     new Slider s1
  51     set s1.Orientation V
  52     set s1.Title "s1"
  53     new Slider s2
  54     set s2.Orientation V
  55     set s2.Title "s2"
  56     new Slider s3
  57     set s3.Orientation V
  58     set s3.Title "s3"
  59     new Slider s4
  60     set s4.Orientation V
  61     set s4.Title "s4"
  62     connect s1.Widget upRight.Widget1
  63     connect s2.Widget upRight.Widget2
  64     connect s3.Widget upRight.Widget3
  65     connect s4.Widget upRight.Widget4
  66   connect upRight.Widget up.Widget2
  67
  68 #------p i p e l i n e---------------------------------------
  69 #...
  70 #------------------------------------------------------------
  71
  72
  73 //graph
  74 #set main.WinDialog 1
  75 exec main
  76
  77
  78 set s1.BoxProcessMode 1
  79
  80
  81 //print rb=$rb.Out$\n
  82
  83 /*
  84 print s1=$s1.Out$\n
  85 print s2=$s2.Out$\n
  86 print s3=$s3.Out$\n
  87 print s4=$s4.Out$\n
  88 print sUpLeft=$sUpLeft.Out$\n
  89 print sDown=$sDown.Out$\n
  90 */
  91