#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 4030f0cdd26deace6fa5c836837ec35e654cb06f..4ebf2bee5d3c9ddce17f311a362c151d0ae5f060 100644 (file)
--- a/appli/template_creaPatientsSystem/scripts/Comments.bbs
+++ b/appli/template_creaPatientsSystem/scripts/Comments.bbs
@@ -10,6 +10,7 @@ include std
 include itkvtk
 include std
 include wx
+include creaMiniTools
 
 author "Author ??"
 description "Description ??"
@@ -30,7 +31,7 @@ new wx:InputText Box33
   set Box33.Title "Informatic Comment"
 
 new wx:CommandButton Box34
-  set Box34.Label "Save"
+  set Box34.Label "Save and Exit"
 
 new std:ReadLinesString Box11
 
@@ -42,9 +43,6 @@ new std:StringWriter Box20
 
 new std:Exit Box21
 
-new wx:CommandButton Box24
-  set Box24.Label "Exit"
-
 new wx:LayoutCenter Box25
 
 new wx:LayoutLine Box26
@@ -94,6 +92,16 @@ new std:ReplaceString Box41
 
 new std:StringWriter Box42
 
+new creaMiniTools:WriteStatePatientSystem Box43
+  set Box43.State "Finish"
+
+new std:ConcatStrings Box44
+
+new std:ConcatStrings Box45
+  set Box45.In2 "/Step_Comment.txt"
+
+new std:MultipleInputs Box46
+
 
 connect Box32.Widget Box31.Widget1
 
@@ -105,14 +113,8 @@ connect Box18.Out Box11.FileName
 
 connect Box18.Out Box20.FileName
 
-connect Box34.BoxChange Box20.BoxExecute
-
 connect Box33.Out Box20.In0
 
-connect Box24.BoxChange Box21.BoxExecute
-
-connect Box24.Widget Box26.Widget2
-
 connect Box34.Widget Box26.Widget1
 
 connect Box26.Widget Box25.Widget2
@@ -168,9 +170,24 @@ connect Box30.Widget Box32.Widget4
 
 connect Box33.Widget Box32.Widget6
 
-connect Box34.BoxChange Box37.BoxExecute
 
-connect Box34.BoxChange Box42.BoxExecute
+connect Box44.Out Box43.User
+
+connect Box27.Out Box45.In1
+
+connect Box45.Out Box43.Filename
+
+connect Box42.BoxChange Box46.In1
+
+connect Box37.BoxChange Box46.In2
+
+connect Box20.BoxChange Box46.In3
+
+connect Box43.boxChange Box46.In4
+
+connect Box34.BoxChange Box46.BoxExecute
+
+connect Box21.BoxChange Box46.In9
 
 
 
@@ -178,4 +195,5 @@ connect Box34.BoxChange Box42.BoxExecute
 input BaseDir Box15.In1 " "
 input PatientID Box19.In1 " "
 input CoreID Box22.In1 " "
+input creaUser Box44.In1 " "
 exec Box31