packages/wxvtk/bbs/boxes/bbMIPWidget.bbs

   1 load wx
   2 load vtk
   3 load std
   4 load wxvtk
   5
   6 define MIPWidget wxvtk
   7   author "laurent.guigues@creatis.insa-lyon.fr"
   8   description "Maximum Intensity Projection (MIP) creator (vtk::MIPCreator) with associated control panel (shift and scale)"
   9   category "image;mesh;widget;viewer"
  10
  11   new LayoutLine controls
  12   new LayoutLine sliders
  13   new MIPCreator MIP
  14 ##EED  new Slider shift
  15 ##EED  new Slider scale
  16 #  new LayoutLine colourFrame
  17 #  new ColourSelectorButton colour
  18   new MultipleInputs refresh
  19 ##EED  new Div div
  20
  21   connect sliders.Widget controls.Widget1
  22 #  connect colourFrame.Widget controls.Widget2
  23
  24 #  connect colour.Widget colourFrame.Widget1
  25 ##EED  connect shift.Widget sliders.Widget1
  26 ##EED  connect scale.Widget sliders.Widget2
  27
  28 ##EED  connect shift.Out MIP.Shift
  29 ##EED  connect scale.Out div.In1
  30 ##EED  set div.In2 10
  31 ##EED  connect div.Out MIP.Scale
  32 #  connect colour.Out MIP.Colour
  33
  34 ##EED  connect shift.BoxChange refresh.In1
  35 ##EED  connect scale.BoxChange refresh.In2
  36 #  connect colour.BoxChange refresh.In3
  37
  38 #  connect colourButton.BoxChange colour.BoxExecute
  39
  40 #  set colourFrame.WinTitle "Colour"
  41   set controls.Orientation HORIZONTAL
  42 ##EED  set shift.Title "Shift"
  43 ##EED  set shift.Min 0
  44 ##EED  set shift.Max 500
  45 ##EED  set scale.Title "Scale x10"
  46 ##EED  set scale.Min 0
  47 ##EED  set scale.Max 500
  48 ##EED  set scale.In 10
  49
  50 #  set colourButton.Label "Colour"
  51
  52
  53   input Title controls.WinTitle "Title of the control panel"
  54   input In MIP.In "Input image"
  55
  56 ##EED  input Scale scale.In "Initial scale"
  57 ##EED  input Shift shift.In "Initial shift"
  58 #  input Colour colour.In "Initial colour"
  59
  60   input BoxExecute MIP.BoxExecute "Box execution"
  61
  62   input Vertical controls.Orientation "Set to 1 to have controls arranged vertically"
  63
  64   output Out MIP.Out "Output MIP"
  65   output BoxChange refresh.Out "BoxChange"
  66   output Widget controls.Widget "Widget"
  67
  68 endefine