packages/kw/bbs/appli/kwTour.bbs

   1 description "A tour of all kw widgets"
   2 author "laurent.guigues at creatis.insa-lyon.fr"
   3 category "demo"
   4
   5 print "=================================="
   6 print "A Slider whose output is plugged into an OutputText"
   7 message echo 2
   8
   9 include kw
  10 load std
  11 new kwSlider in
  12 new kwOutputText out
  13 connect in.Out out.In
  14 connect in.BoxChange out.BoxExecute
  15 new kwLayoutSplit window
  16 connect in.Widget window.Widget1
  17 connect out.Widget window.Widget2
  18 exec window
  19
  20 message echo 0
  21 clear
  22 print "=================================="
  23 print "The kwSlicer widget"
  24 message echo 2
  25
  26 load kw
  27 include vtk
  28 load wx
  29
  30 new LoadHola r
  31 new kwSlicer s
  32 connect r.Out s.In
  33 exec s
  34 reset
  35
  36 message echo 0
  37 clear
  38 print "=================================="
  39 print "Using both kw and wx"
  40 message echo 2
  41
  42 load wx
  43 load kw
  44 load std
  45
  46 new OutputText t
  47 exec t
  48
  49 new kwSlider s
  50 connect s.Out t.In
  51 connect s.BoxChange t.BoxExecute
  52
  53 exec s