bbtk/bbs/appli/ExampleBars.bbs

   1 load std
   2 load wx
   3 load maracasvisu
   4
   5 new LayoutSplit s
   6         set s.Orientation H
   7 new LayoutSplit ss
   8         set ss.Orientation H
   9
  10 new LayoutLine s1
  11 new LayoutLine s2
  12
  13 set s1.Orientation V
  14 set ss.Orientation H
  15 set s2.Orientation V
  16
  17 new SliderMinMax sliderMM_h
  18 set sliderMM_h.Orientation 1
  19 set sliderMM_h.InW 300
  20 set sliderMM_h.InH 90
  21 set sliderMM_h.InMax 350
  22 set sliderMM_h.InMin 0
  23 set sliderMM_h.ShowLabels 1
  24
  25 new SliderMinMax sliderMM_v
  26 set sliderMM_v.Orientation 0
  27 set sliderMM_v.InW 300
  28 set sliderMM_v.InH 30
  29 set sliderMM_v.InMax 350
  30 set sliderMM_v.InMin 0
  31 set sliderMM_v.ShowLabels 1
  32
  33 new ColorBar colorB_h
  34 set colorB_h.Orientation 1
  35 set colorB_h.InW 300
  36 set colorB_h.InH 50
  37 set colorB_h.InMax 350
  38 set colorB_h.InMin 0
  39 set colorB_h.Reds " 0 255 0 255 220 30"
  40 set colorB_h.Greens " 0 220 220 100 240 55"
  41 set colorB_h.Blues " 255 0 15 0 0 0"
  42 set colorB_h.Values " 0 30 70 130 250 310"
  43
  44
  45 new ColorBar colorB_v
  46 set colorB_v.Orientation 0
  47 set colorB_v.InW 300
  48 set colorB_v.InH 50
  49 set colorB_v.InMax 350
  50 set colorB_v.InMin 0
  51 set colorB_v.Reds " 0 255 0 255 220 30"
  52 set colorB_v.Greens " 0 220 220 100 240 55"
  53 set colorB_v.Blues " 255 0 15 0 0 0"
  54 set colorB_v.Values " 0 30 70 130 250 310"
  55
  56
  57 connect s1.Widget                               s.Widget1
  58 connect  s2.Widget                              s.Widget2
  59 connect sliderMM_h.Widget               s1.Widget1
  60 connect colorB_h.Widget                 s1.Widget2
  61 connect ss.Widget                               s2.Widget1
  62 connect sliderMM_v.Widget               ss.Widget1
  63 connect colorB_v.Widget                 ss.Widget2
  64
  65 exec s