#3421 template_creaPatientsSystem

[creaMiniTools.git] / appli / template_creaPatientsSystem / scripts / 00010_Menu.bbs

diff --git a/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs b/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
index 1f81269f27a78c55223418b3779e839ab50f22bf..f7df0bd079cbab11daa9c01b5803dd2251ec4aae 100644 (file)
--- a/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
+++ b/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
@@ -1,6 +1,6 @@
 # ----------------------------------
 # - BBTKGEditor v 1.4 BBS BlackBox Script
-# - /Users/davila/CreatisWork/tmpCharly/creaBrainGrayMatter/appli/Appli_creaGM/scripts/00010_Menu.bbs
+# - /Users/davila/Creatis/C11/creatools_source/creaMiniTools/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
 # ----------------------------------
 
 # BBTK GEditor Script
@@ -41,6 +41,7 @@ new std:ConcatStrings Box10
   set Box10.In2 "results"
 
 new std:ConcatStrings Box11
+  set Box11.In1 "../"
 
 new std:ConcatStrings Box12
   set Box12.In1 "mkdir "
@@ -66,8 +67,7 @@ new std:ExecSystemCommand Box27
 
 new std:ConcatStrings Box28
   set Box28.In1 "bbi Report.bbs  "
-  set Box28.In2 "BaseDir="
-  set Box28.In4 "  &"
+  set Box28.In9 "  &"
 
 new wx:CommandButton Box29
   set Box29.Label "Comments"
@@ -174,6 +174,7 @@ new std:ConcatStrings Box93
   set Box93.In1 "bbi  "
   set Box93.In2 "00100_InsertDataA.bbs "
   set Box93.In4 " ProjectDir="
+  set Box93.In6 "  "
   set Box93.In9 " & "
 
 new std:StringSelect Box94
@@ -273,12 +274,6 @@ new wx:StaticBox Box136
 
 new wx:StaticBox Box137
 
-new std:ConcatStrings Box138
-  set Box138.In1 "../"
-
-new std:ConcatStrings Box140
-  set Box140.In1 "/Users/davila/CreatisWork/tmpCharly/"
-
 new std:ConcatStrings Box141
   set Box141.In1 "VOID"
   set Box141.In2 "  "
@@ -309,8 +304,7 @@ new std:ReplaceString Box149
 
 new wx:LayoutLine Box150
   set Box150.Orientation "H"
-  set Box150.WinHeight "600"
-  set Box150.WinWidth "900"
+  set Box150.WinTitle "Menu"
 
 new std:ConcatStrings Box151
 
@@ -333,6 +327,32 @@ new std:ConcatStrings Box156
   set Box156.In1 "open"
   set Box156.In2 "  "
 
+new std:ConcatStrings Box157
+  set Box157.In1 "creaUser="
+  set Box157.In3 "  "
+
+new wx:LayoutLine Box158
+  set Box158.WinHeight "600"
+  set Box158.WinWidth "900"
+
+new wx:LayoutTab Box159
+
+new wx:LayoutLine Box160
+  set Box160.WinTitle "Config"
+
+new wx:InputText Box161
+  set Box161.Title "BaseDir:"
+
+new wx:OutputText Box162
+
+new wx:OutputText Box163
+  set Box163.Title "User"
+
+new std:ConcatStrings Box164
+  set Box164.In2 "/"
+
+new std:ConcatStrings Box165
+
 
 connect Box06.Out Box05.In
 
@@ -350,8 +370,6 @@ connect Box21.BoxChange Box22.BoxExecute
 
 connect Box26.BoxChange Box27.BoxExecute
 
-connect Box11.Out Box28.In3
-
 connect Box29.BoxChange Box30.BoxExecute
 
 connect Box00.Widget Box33.Widget1
@@ -468,8 +486,6 @@ connect Box108.Widget Box99.Widget1
 
 connect Box11.Out Box93.In5
 
-connect Box73.Out Box90.In
-
 connect Box90.Out Box112.I
 
 connect Box113.OutSimple Box114.In3
@@ -568,8 +584,6 @@ connect Box33.Widget Box136.BoxContent
 
 connect Box98.Widget Box137.BoxContent
 
-connect Box140.Out Box11.In1
-
 connect Box05.Out Box141.In3
 
 connect Box141.Out Box112.In
@@ -580,8 +594,6 @@ connect Box142.Out Box113.In
 
 connect Box143.Out Box118.In2
 
-connect Box90.OutString Box143.In2
-
 connect Box146.Out Box126.In2
 
 connect Box131.Out Box146.In2
@@ -619,8 +631,6 @@ connect Box136.Widget Box150.Widget4
 connect Box137.Widget Box150.Widget6
 
 
-connect Box152.Out Box150.WinTitle
-
 connect Box151.Out Box152.In3
 
 connect Box65.Out Box66.In2
@@ -645,9 +655,47 @@ connect Box156.Out Box105.In2
 
 connect Box28.Out Box61.In2
 
+connect Box151.Out Box157.In2
+
+connect Box157.Out Box118.In4
+
+connect Box157.Out Box93.In7
+
+connect Box116.Out Box28.In2
+
+connect Box73.Out Box90.In
+
+connect Box143.Out Box28.In3
+
+connect Box90.OutString Box143.In2
+
+connect Box152.Out Box158.WinTitle
+
+connect Box150.Widget Box159.Widget1
+
+connect Box161.Widget Box160.Widget2
+
+connect Box162.Widget Box160.Widget1
+
+connect Box159.Widget Box158.Widget2
+
+connect Box160.Widget Box159.Widget2
+
+connect Box163.Widget Box160.Widget3
+
+connect Box151.Out Box163.In
+
+connect Box161.Out Box11.In1
+
+connect Box164.Out Box161.In
+
+
+connect Box165.Out Box164.In1
+
 
 
 # Complex input ports
 input creaUser Box151.In1 " "
+input BaseDir Box165.In1 " "
 exec Box09
-exec Box150
+exec Box158