]> Creatis software - bbtk.git/commitdiff
*** empty log message ***
authorEduardo Davila <Eduardo.Davila@creatis.insa-lyon.fr>
Mon, 20 Feb 2012 10:40:07 +0000 (10:40 +0000)
committerEduardo Davila <Eduardo.Davila@creatis.insa-lyon.fr>
Mon, 20 Feb 2012 10:40:07 +0000 (10:40 +0000)
packages/toolsbbtk/bbs/appli/GUICreateBlackBox.bbs
packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs

index 0a83f8a242726f2066d986abaf873510d6934297..38cbd77f9195b49235fd2e24cb3a2ee7a9d4f172 100644 (file)
@@ -163,11 +163,11 @@ new ConcatStrings descriptionStr
 # Command string creation
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
-    connect dquote.Out                 concatStrCommand.In2
-    connect conf.BinPath               concatStrCommand.In3
-    connect conf.FileSeparator concatStrCommand.In4
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In2
+#EED-20-02-2012    connect conf.BinPath                concatStrCommand.In3
+#EED-20-02-2012    connect conf.FileSeparator  concatStrCommand.In4
     set                concatStrCommand.In5  "bbCreateBlackBox"
-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6
     set                concatStrCommand.In7  " "
 
 # Params string creation
@@ -182,10 +182,10 @@ new ConcatStrings concatStrParam
     
 # Command + parameters string creation
 new ConcatStrings concatStr
-    connect dquote.Out                         concatStr.In1
+#EED-20-02-2012    connect dquote.Out                          concatStr.In1
     connect concatStrCommand.Out       concatStr.In2
     connect concatStrParam.Out                 concatStr.In3
-    connect dquote.Out                         concatStr.In4
+#EED-20-02-2012    connect dquote.Out                          concatStr.In4
 
 # Box which executes the command
 new ExecSystemCommand command
index 15f4a8d17f1998cc81d3809012e9c0f74f800b34..8a56b2ebcdab56a6efbbe93e258164fb992c5bbe 100644 (file)
@@ -28,9 +28,9 @@ new InputText description
     set description.Title "Description            (html format)"
     set description.In "_description_"
 
-new CommandButton cancelButton
-    set cancelButton.In "print **CANCEL**"
-    set cancelButton.Label "Cancel"
+#new CommandButton cancelButton
+#    set cancelButton.In "print **CANCEL**"
+#    set cancelButton.Label "Cancel"
 
 new CommandButton createButton
     set createButton.In "print $concatStr.Out$; exec command;"
@@ -39,7 +39,7 @@ new CommandButton createButton
 
 new LayoutLine buttons
     set buttons.Orientation Horizontal
-    connect cancelButton.Widget buttons.Widget1
+#    connect cancelButton.Widget buttons.Widget1
     connect createButton.Widget buttons.Widget2
 
 new LayoutLine main
@@ -98,21 +98,21 @@ new ConcatStrings descriptionStr
 
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
-    connect dquote.Out                 concatStrCommand.In2
-    connect conf.BinPath               concatStrCommand.In3
-    connect conf.FileSeparator         concatStrCommand.In4
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In2
+#EED-20-02-2012    connect conf.BinPath                concatStrCommand.In3
+#EED-20-02-2012    connect conf.FileSeparator          concatStrCommand.In4
     set                                        concatStrCommand.In5  "bbCreatePackage"
-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6
     set                                        concatStrCommand.In7  " "
 
 new ConcatStrings concatStr
-    connect dquote.Out                 concatStr.In1
+#EED-20-02-2012    connect dquote.Out                  concatStr.In1
     connect concatStrCommand.Out       concatStr.In2
     connect dirStr.Out                 concatStr.In3
     connect nameStr.Out                        concatStr.In4 
     connect authorStr.Out              concatStr.In5 
     connect descriptionStr.Out         concatStr.In6
-    connect dquote.Out                 concatStr.In7
+#EED-20-02-2012    connect dquote.Out                  concatStr.In7
 
 new ExecSystemCommand command
     connect concatStr.Out command.In