1 description "Creates a new bbtk package file structure on disk (Graphical user interface for the script bbCreatePackage)."
2 author "laurent.guigues at creatis.insa-lyon.fr"
8 new OutputText windowTitle
9 set windowTitle.In "- - - - - - - - - - - - - - Create Blackbox - - - - - - - - - - - - - -"
11 new DirectorySelector dir
12 set dir.Title "Select the location of your new package"
15 set name.Title "Name (1 word)"
16 set name.In "NEW_PACKAGE"
19 set author.Title "Author(s) (caracters '<', '>' not accepted...)"
20 set author.In "_author_"
22 new InputText description
23 set description.Title "Description (caracters '<', '>' not accepted...)"
24 set description.In "_description_"
27 connect windowTitle.Widget info.Widget1
28 connect name.Widget info.Widget2
29 connect author.Widget info.Widget3
30 connect description.Widget info.Widget4
31 set info.WinDialog true
33 set info.WinHeight 250
37 new Configuration conf
38 new ConcatStrings concatStrCommand
39 set concatStrCommand.In1 "."
40 connect conf.FileSeparator concatStrCommand.In2
41 set concatStrCommand.In3 "bbCreatePackage "
42 new ConcatStrings concatStr
43 connect concatStrCommand.Out concatStr.In1
44 connect dir.Out concatStr.In2
46 connect name.Out concatStr.In4
47 set concatStr.In5 " '"
48 connect author.Out concatStr.In6
49 set concatStr.In7 "' '"
50 connect description.Out concatStr.In8
54 new ExecSystemCommand command
55 connect concatStr.Out command.In