]> 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 " "
 # 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"
     set                concatStrCommand.In5  "bbCreateBlackBox"
-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6
     set                concatStrCommand.In7  " "
 
 # Params string creation
     set                concatStrCommand.In7  " "
 
 # Params string creation
@@ -182,10 +182,10 @@ new ConcatStrings concatStrParam
     
 # Command + parameters string creation
 new ConcatStrings concatStr
     
 # 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 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
 
 # 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_"
 
     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;"
 
 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
 
 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
     connect createButton.Widget buttons.Widget2
 
 new LayoutLine main
@@ -98,21 +98,21 @@ new ConcatStrings descriptionStr
 
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
 
 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"
     set                                        concatStrCommand.In5  "bbCreatePackage"
-    connect dquote.Out                 concatStrCommand.In6
+#EED-20-02-2012    connect dquote.Out                  concatStrCommand.In6
     set                                        concatStrCommand.In7  " "
 
 new ConcatStrings concatStr
     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 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
 
 new ExecSystemCommand command
     connect concatStr.Out command.In