*** empty log message ***

[bbtk.git] / packages / toolsbbtk / bbs / appli / GUICreatePackage.bbs

diff --git a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
index 15f4a8d17f1998cc81d3809012e9c0f74f800b34..8a56b2ebcdab56a6efbbe93e258164fb992c5bbe 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
@@ -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