appli/template_creaPatientsSystem/scripts/Comments.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/Comments.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include std
  12 include wx
  13
  14 author "Author ??"
  15 description "Description ??"
  16 category "<VOID>"
  17
  18 new std:ConcatStrings Box15
  19
  20 new std:ConcatStrings Box07
  21   set Box07.In2 "/Comment-Informatic.txt"
  22
  23 new wx:LayoutTab Box31
  24   set Box31.WinHeight "500"
  25   set Box31.WinTitle "Comments.bbs"
  26
  27 new wx:LayoutLine Box32
  28
  29 new wx:InputText Box33
  30   set Box33.Title "Informatic Comment"
  31
  32 new wx:CommandButton Box34
  33   set Box34.Label "Save"
  34
  35 new std:ReadLinesString Box11
  36
  37 new std:ReplaceString Box18
  38   set Box18.Replace "/"
  39   set Box18.Search "\"
  40
  41 new std:StringWriter Box20
  42
  43 new std:Exit Box21
  44
  45 new wx:CommandButton Box24
  46   set Box24.Label "Exit"
  47
  48 new wx:LayoutCenter Box25
  49
  50 new wx:LayoutLine Box26
  51
  52 new std:ConcatStrings Box27
  53   set Box27.In1 "Patient:"
  54   set Box27.In2 "/results/"
  55
  56 new std:ConcatStrings Box17
  57   set Box17.In1 "/<CORE>/davila/00300_Filter/Test_01/<PATIENT>/Condition_01"
  58
  59 new std:ConcatStrings Box19
  60
  61 new std:ConcatStrings Box22
  62
  63 new std:ReplaceCleanString Box23
  64   set Box23.Search "<CORE>"
  65
  66 new std:ReplaceCleanString Box28
  67   set Box28.Search "<PATIENT>"
  68
  69 new std:ConcatStrings Box29
  70   set Box29.In2 "/Comment-Scientific.txt"
  71
  72 new wx:InputText Box30
  73   set Box30.Title "Scientific Comment"
  74
  75 new std:ReadLinesString Box35
  76
  77 new std:ReplaceString Box36
  78   set Box36.Replace "/"
  79   set Box36.Search "\"
  80
  81 new std:StringWriter Box37
  82
  83 new std:ConcatStrings Box38
  84   set Box38.In2 "/Comment-General.txt"
  85
  86 new wx:InputText Box39
  87   set Box39.Title "General Comment"
  88
  89 new std:ReadLinesString Box40
  90
  91 new std:ReplaceString Box41
  92   set Box41.Replace "/"
  93   set Box41.Search "\"
  94
  95 new std:StringWriter Box42
  96
  97
  98 connect Box32.Widget Box31.Widget1
  99
 100 connect Box11.Out Box33.In
 101
 102 connect Box07.Out Box18.In
 103
 104 connect Box18.Out Box11.FileName
 105
 106 connect Box18.Out Box20.FileName
 107
 108 connect Box34.BoxChange Box20.BoxExecute
 109
 110 connect Box33.Out Box20.In0
 111
 112 connect Box24.BoxChange Box21.BoxExecute
 113
 114 connect Box24.Widget Box26.Widget2
 115
 116 connect Box34.Widget Box26.Widget1
 117
 118 connect Box26.Widget Box25.Widget2
 119
 120
 121 connect Box15.Out Box27.In1
 122
 123 connect Box27.Out Box32.WinTitle
 124
 125
 126
 127 connect Box17.Out Box23.In
 128
 129 connect Box22.Out Box23.Replace
 130
 131 connect Box23.Out Box28.In
 132
 133 connect Box27.Out Box07.In1
 134
 135 connect Box19.Out Box28.Replace
 136
 137 connect Box28.Out Box27.In3
 138
 139 connect Box35.Out Box30.In
 140
 141 connect Box29.Out Box36.In
 142
 143 connect Box36.Out Box35.FileName
 144
 145 connect Box36.Out Box37.FileName
 146
 147 connect Box30.Out Box37.In0
 148
 149 connect Box40.Out Box39.In
 150
 151 connect Box38.Out Box41.In
 152
 153 connect Box41.Out Box40.FileName
 154
 155 connect Box41.Out Box42.FileName
 156
 157 connect Box39.Out Box42.In0
 158
 159 connect Box27.Out Box29.In1
 160
 161 connect Box27.Out Box38.In1
 162
 163 connect Box25.Widget Box32.Widget8
 164
 165 connect Box39.Widget Box32.Widget2
 166
 167 connect Box30.Widget Box32.Widget4
 168
 169 connect Box33.Widget Box32.Widget6
 170
 171 connect Box34.BoxChange Box37.BoxExecute
 172
 173 connect Box34.BoxChange Box42.BoxExecute
 174
 175
 176
 177 # Complex input ports
 178 input BaseDir Box15.In1 " "
 179 input PatientID Box19.In1 " "
 180 input CoreID Box22.In1 " "
 181 exec Box31