appli/template_creaPatientsSystem/scripts/Comments.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/Appli_ceraGM/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 "/Comments.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 "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
  70 connect Box32.Widget Box31.Widget1
  71
  72 connect Box33.Widget Box32.Widget2
  73
  74 connect Box11.Out Box33.In
  75
  76 connect Box07.Out Box18.In
  77
  78 connect Box18.Out Box11.FileName
  79
  80 connect Box18.Out Box20.FileName
  81
  82 connect Box34.BoxChange Box20.BoxExecute
  83
  84 connect Box33.Out Box20.In0
  85
  86 connect Box24.BoxChange Box21.BoxExecute
  87
  88 connect Box24.Widget Box26.Widget2
  89
  90 connect Box34.Widget Box26.Widget1
  91
  92 connect Box25.Widget Box32.Widget3
  93
  94 connect Box26.Widget Box25.Widget2
  95
  96
  97 connect Box15.Out Box27.In1
  98
  99 connect Box27.Out Box32.WinTitle
 100
 101
 102
 103 connect Box17.Out Box23.In
 104
 105 connect Box22.Out Box23.Replace
 106
 107 connect Box23.Out Box28.In
 108
 109 connect Box27.Out Box07.In1
 110
 111 connect Box19.Out Box28.Replace
 112
 113 connect Box28.Out Box27.In3
 114
 115
 116
 117 # Complex input ports
 118 input BaseDir Box15.In1 " "
 119 input PatientID Box19.In1 " "
 120 input CoreID Box22.In1 " "
 121 exec Box31