*** empty log message ***

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

diff --git a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
similarity index 64%
rename from packages/toolsbbtk/bbs/appli/CreatePackage.bbs
rename to packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
index 51be17ca89e602ab187b05a9380e674c163ac519..1a57bc96f5e886dc6050246a2cfb8dd7c9345b2b 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/CreatePackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUICreatePackage.bbs
@@ -1,5 +1,5 @@
-description "Creates a new bbtk package file structure on disk (Graphical user interface for the script bbCreatePackage)."
-author "laurent.guigues at creatis.insa-lyon.fr"
+description "Creates a new bbtk package file structure on disk (Graphical user interface for the shell script bbCreatePackage)."
+author "laurent.guigues@creatis.insa-lyon.fr"
 category "toolsbbtk"
 
 load wx
@@ -21,24 +21,25 @@ new InputText name
     set name.In "NEW_PACKAGE"
 
 new InputText author
-    set author.Title "Author(s)           (caracters   '<',  '>' not accepted...)"
+    set author.Title "Author(s)           "
     set author.In "_author_"
 
 new InputText description
-    set description.Title "Description            (caracters   '<',  '>' not accepted...)"
+    set description.Title "Description            (html format)"
     set description.In "_description_"
 
-#new CommandButton cancelButton
-#    set cancelButton.In "quit"
-#    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; "
+    set createButton.In "print $concatStr.Out$; exec command;"
     set createButton.Label "Run"
+    
 
 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
@@ -53,16 +54,29 @@ new LayoutLine main
     set main.WinWidth 400 
     set main.WinHeight 250 
 
-#-----------------------------------------------------------------------------
+new MultipleInputs close
+    connect close.Out main.WinClose
+    connect cancelButton.BoxChange close.In1
+    connect createButton.BoxChange close.In2
 
-new ASCII ascii
-  set ascii.In 34
+#-----------------------------------------------------------------------------
+new Configuration conf
+# on windows : enclose paths between double quotes 
+# if system==0 (Linux) dquote=space (ascci code 32)
+# if system==1 (Win) dquote==" (ascii code 34)
+new StringSelect onsystem
+set onsystem.In0 "32"
+set onsystem.In1 "34"
+new ASCII dquote
+connect conf.SystemType onsystem.In
+connect onsystem.Out dquote.In
+#set dquote.In 34
 
 new ConcatStrings dirStr
  set dirStr.In1 " "
- connect ascii.Out dirStr.In2
+ connect dquote.Out dirStr.In2
  connect dir.Out dirStr.In3
- connect ascii.Out dirStr.In4
+ connect dquote.Out dirStr.In4
  set dirStr.In5 " "
 
 new ConcatStrings nameStr
@@ -82,29 +96,36 @@ new ConcatStrings descriptionStr
 
 
 
-new Configuration conf
 new ConcatStrings concatStrCommand
     set concatStrCommand.In1 " "
-    connect ascii.Out                  concatStrCommand.In2
+    connect dquote.Out                 concatStrCommand.In2
     connect conf.BinPath               concatStrCommand.In3
     connect conf.FileSeparator concatStrCommand.In4
     set                                                concatStrCommand.In5  "bbCreatePackage"
-    connect ascii.Out                  concatStrCommand.In6
+    connect dquote.Out                 concatStrCommand.In6
     set                                                concatStrCommand.In7  " "
 
 new ConcatStrings concatStr
-    connect ascii.Out                          concatStr.In1
+    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 ascii.Out                          concatStr.In7
+    connect dquote.Out                         concatStr.In7
 
 
 new ExecSystemCommand command
     connect concatStr.Out command.In
 
+/*
+new OutputText FinalMessage
+set FinalMessage.WinWidth 100
+set FinalMessage.WinHeight 100
+set FinalMessage.In "Done !"
+*/
+
 exec dir
+#message all 9
 exec main