packages/qt/bbs/appli/exampleQLayoutSplit.bbs

   1 author "laurent.guigues@creatis.insa-lyon.fr"
   2 description "Example of QLayoutSplit widget"
   3 category "example"
   4
   5 load qt
   6 load std
   7 new QSlider s
   8 new QOutputText t
   9 connect s.Out t.In
  10 connect s.BoxChange t.BoxExecute
  11 set s.In 100
  12 set s.Min 10
  13 set s.Max 1000
  14 set s.WinHeight 100
  15 set s.WinWidth 100
  16
  17 new QLayoutSplit l
  18 set l.Orientation Vertical
  19 connect s.Widget l.Widget1
  20 connect t.Widget l.Widget2
  21 new QSlider s2
  22 connect s2.Widget l.Widget3
  23
  24 set l.Weight1 5
  25 set l.Weight2 1
  26 set l.Weight3 2
  27
  28 exec l