3421 template_creaPatientsSystem

[creaMiniTools.git] / appli / template_creaPatientsSystem / scripts / Comments.bbs

diff --git a/appli/template_creaPatientsSystem/scripts/Comments.bbs b/appli/template_creaPatientsSystem/scripts/Comments.bbs
index fecc5737eae17172ec6fd389d7f9834903d06a14..4030f0cdd26deace6fa5c836837ec35e654cb06f 100644 (file)
--- a/appli/template_creaPatientsSystem/scripts/Comments.bbs
+++ b/appli/template_creaPatientsSystem/scripts/Comments.bbs
@@ -1,6 +1,6 @@
 # ----------------------------------
 # - BBTKGEditor v 1.4 BBS BlackBox Script
-# - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/Appli_ceraGM/scripts/Comments.bbs
+# - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/Comments.bbs
 # ----------------------------------
 
 # BBTK GEditor Script
@@ -18,7 +18,7 @@ category "<VOID>"
 new std:ConcatStrings Box15
 
 new std:ConcatStrings Box07
-  set Box07.In2 "/Comments.txt"
+  set Box07.In2 "/Comment-Informatic.txt"
 
 new wx:LayoutTab Box31
   set Box31.WinHeight "500"
@@ -27,7 +27,7 @@ new wx:LayoutTab Box31
 new wx:LayoutLine Box32
 
 new wx:InputText Box33
-  set Box33.Title "Comment"
+  set Box33.Title "Informatic Comment"
 
 new wx:CommandButton Box34
   set Box34.Label "Save"
@@ -66,10 +66,36 @@ new std:ReplaceCleanString Box23
 new std:ReplaceCleanString Box28
   set Box28.Search "<PATIENT>"
 
+new std:ConcatStrings Box29
+  set Box29.In2 "/Comment-Scientific.txt"
 
-connect Box32.Widget Box31.Widget1
+new wx:InputText Box30
+  set Box30.Title "Scientific Comment"
+
+new std:ReadLinesString Box35
+
+new std:ReplaceString Box36
+  set Box36.Replace "/"
+  set Box36.Search "\"
+
+new std:StringWriter Box37
+
+new std:ConcatStrings Box38
+  set Box38.In2 "/Comment-General.txt"
+
+new wx:InputText Box39
+  set Box39.Title "General Comment"
+
+new std:ReadLinesString Box40
+
+new std:ReplaceString Box41
+  set Box41.Replace "/"
+  set Box41.Search "\"
 
-connect Box33.Widget Box32.Widget2
+new std:StringWriter Box42
+
+
+connect Box32.Widget Box31.Widget1
 
 connect Box11.Out Box33.In
 
@@ -89,8 +115,6 @@ connect Box24.Widget Box26.Widget2
 
 connect Box34.Widget Box26.Widget1
 
-connect Box25.Widget Box32.Widget3
-
 connect Box26.Widget Box25.Widget2
 
 
@@ -112,6 +136,42 @@ connect Box19.Out Box28.Replace
 
 connect Box28.Out Box27.In3
 
+connect Box35.Out Box30.In
+
+connect Box29.Out Box36.In
+
+connect Box36.Out Box35.FileName
+
+connect Box36.Out Box37.FileName
+
+connect Box30.Out Box37.In0
+
+connect Box40.Out Box39.In
+
+connect Box38.Out Box41.In
+
+connect Box41.Out Box40.FileName
+
+connect Box41.Out Box42.FileName
+
+connect Box39.Out Box42.In0
+
+connect Box27.Out Box29.In1
+
+connect Box27.Out Box38.In1
+
+connect Box25.Widget Box32.Widget8
+
+connect Box39.Widget Box32.Widget2
+
+connect Box30.Widget Box32.Widget4
+
+connect Box33.Widget Box32.Widget6
+
+connect Box34.BoxChange Box37.BoxExecute
+
+connect Box34.BoxChange Box42.BoxExecute
+
 
 
 # Complex input ports