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 include kw
   6 load std
   7 include vtk
   8 load wx
   9
  10 print "=================================="
  11 print "A Slider whose output is plugged into an OutputText"
  12 message echo 2
  13
  14 new kwSlider in
  15 new kwOutputText out
  16 connect in.Out out.In
  17 connect in.BoxChange out.BoxExecute
  18 new kwLayoutSplit window
  19 connect in.Widget window.Widget1
  20 connect out.Widget window.Widget2
  21 exec window
  22
  23 message echo 0
  24 clear
  25 print "=================================="
  26 print "The kwSlicer widget"
  27 message echo 2
  28
  29 new LoadHola r
  30 new kwSlicer s
  31 connect r.Out s.In
  32 exec s
  33
  34 message echo 0
  35 clear
  36 print "=================================="
  37 print "Using both kw and wx"
  38 message echo 2
  39
  40 new OutputText t
  41 exec t
  42
  43 new kwSlider s
  44 connect s.Out t.In
  45 connect s.BoxChange t.BoxExecute
  46
  47 exec s
  48
  49 message echo 0
  50 clear