1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script
3 # - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/Appli_ceraGM/scripts/Comments.bbs
4 # ----------------------------------
7 # ----------------------
15 description "Description ??"
18 new std:ConcatStrings Box15
20 new std:ConcatStrings Box07
21 set Box07.In2 "/Comments.txt"
23 new wx:LayoutTab Box31
24 set Box31.WinHeight "500"
25 set Box31.WinTitle "Comments.bbs"
27 new wx:LayoutLine Box32
29 new wx:InputText Box33
30 set Box33.Title "Comment"
32 new wx:CommandButton Box34
33 set Box34.Label "Save"
35 new std:ReadLinesString Box11
37 new std:ReplaceString Box18
41 new std:StringWriter Box20
45 new wx:CommandButton Box24
46 set Box24.Label "Exit"
48 new wx:LayoutCenter Box25
50 new wx:LayoutLine Box26
52 new std:ConcatStrings Box27
53 set Box27.In1 "Patient:"
54 set Box27.In2 "/results/"
56 new std:ConcatStrings Box17
57 set Box17.In1 "/<CORE>/davila/00300_Filter/Test_01/<PATIENT>/Condition_01"
59 new std:ConcatStrings Box19
61 new std:ConcatStrings Box22
63 new std:ReplaceCleanString Box23
64 set Box23.Search "<CORE>"
66 new std:ReplaceCleanString Box28
67 set Box28.Search "<PATIENT>"
70 connect Box32.Widget Box31.Widget1
72 connect Box33.Widget Box32.Widget2
74 connect Box11.Out Box33.In
76 connect Box07.Out Box18.In
78 connect Box18.Out Box11.FileName
80 connect Box18.Out Box20.FileName
82 connect Box34.BoxChange Box20.BoxExecute
84 connect Box33.Out Box20.In0
86 connect Box24.BoxChange Box21.BoxExecute
88 connect Box24.Widget Box26.Widget2
90 connect Box34.Widget Box26.Widget1
92 connect Box25.Widget Box32.Widget3
94 connect Box26.Widget Box25.Widget2
97 connect Box15.Out Box27.In1
99 connect Box27.Out Box32.WinTitle
103 connect Box17.Out Box23.In
105 connect Box22.Out Box23.Replace
107 connect Box23.Out Box28.In
109 connect Box27.Out Box07.In1
111 connect Box19.Out Box28.Replace
113 connect Box28.Out Box27.In3
117 # Complex input ports
118 input BaseDir Box15.In1 " "
119 input PatientID Box19.In1 " "
120 input CoreID Box22.In1 " "