bbtk/bbs/appli/exampleBars.bbs

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