#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 f7393730faee0138b33739e1b25ec7a9a8b698d1..ec7c59096dd327349cc4e6c82009f53b90161783 100644 (file)
--- a/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
+++ b/appli/template_creaPatientsSystem/scripts/00010_Menu.bbs
@@ -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 "
@@ -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
 
@@ -337,6 +331,25 @@ 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
+
 
 connect Box06.Out Box05.In
 
@@ -568,8 +581,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
@@ -617,8 +628,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
@@ -657,9 +666,31 @@ 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
+
 
 
 # Complex input ports
 input creaUser Box151.In1 " "
+input BaseDir Box164.In1 " "
 exec Box09
-exec Box150
+exec Box158