bbtk/bbs/boxes/SliderMinMax-flexible.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /tmpEED/creaTools/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/SliderMinMax-flexible.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaMaracasVisu
   9 include wx
  10 include std
  11
  12 define SliderMinMax-flexible creaMaracasVisu
  13
  14 author "Author ??"
  15 description "Description ??"
  16
  17 category "<VOID>"
  18
  19 new creaMaracasVisu:SliderMinMax Box02
  20   set Box02.ShowActual "false"
  21   set Box02.ShowLabels "1"
  22
  23 new wx:LayoutLine Box04
  24   set Box04.Orientation "H"
  25   set Box04.WinTitle "integer"
  26
  27 new wx:InputText Box05
  28   set Box05.In "0"
  29   set Box05.Title "Min"
  30
  31 new wx:InputText Box06
  32   set Box06.In "2000"
  33   set Box06.Title "Max"
  34
  35 new std:MultipleInputs Box09
  36
  37 new std:SharedMemory Box08
  38
  39 new std:SharedMemory Box10
  40
  41 new wx:LayoutTab Box11
  42
  43 new wx:LayoutLine Box12
  44   set Box12.Orientation "H"
  45   set Box12.WinTitle "float"
  46
  47 new wx:InputText Box13
  48   set Box13.In "0.0"
  49   set Box13.Title "Min"
  50
  51 new wx:InputText Box14
  52   set Box14.In "1.0"
  53   set Box14.Title "Max"
  54
  55 new std:MultipleInputs Box15
  56
  57
  58 connect Box02.Widget Box04.Widget2
  59 connect Box06.Widget Box04.Widget3
  60 connect Box05.Widget Box04.Widget1
  61 connect Box05.Out Box02.InMin
  62 connect Box06.Out Box02.InMax
  63 connect Box09.BoxChange Box02.BoxExecute
  64 connect Box06.BoxChange Box09.In2
  65 connect Box05.BoxChange Box09.In1
  66 connect Box02.OutStart Box08.In1
  67 connect Box02.OutEnd Box10.In1
  68 connect Box05.Out Box02.InMinShow
  69 connect Box06.Out Box02.InMaxShow
  70 connect Box04.Widget Box11.Widget1
  71 connect Box13.Widget Box12.Widget1
  72 connect Box14.Widget Box12.Widget2
  73 connect Box12.Widget Box11.Widget2
  74 connect Box13.Out Box08.In
  75 connect Box14.Out Box10.In
  76 connect Box13.BoxChange Box15.In1
  77 connect Box14.BoxChange Box15.In2
  78 connect Box02.BoxChange Box15.In3
  79
  80 # Complex input ports
  81 input minIn Box05.In " "
  82 input maxIn Box06.In " "
  83 input showactual Box02.ShowActual " "
  84
  85 # Complex output ports
  86 output outactual Box02.OutActual " "
  87 output outend Box10.Out " "
  88 output outstart Box08.Out " "
  89 output widget Box11.Widget " "
  90 output boxchange Box15.BoxChange " "
  91
  92 message
  93
  94 endefine