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"
9 new DirectorySelector dir
10 set dir.Message "Select the location of your new package"
12 #-----------------------------------------------------------------------------
13 new OutputText dirOutput
14 connect dir.Out dirOutput.In
16 new OutputText windowTitle
17 set windowTitle.In "Package informations"
20 set name.Title "Name (1 word)"
21 set name.In "NEW_PACKAGE"
24 set author.Title "Author(s) (caracters '<', '>' not accepted...)"
25 set author.In "_author_"
27 new InputText description
28 set description.Title "Description (caracters '<', '>' not accepted...)"
29 set description.In "_description_"
31 #new CommandButton cancelButton
32 # set cancelButton.In "quit"
33 # set cancelButton.Label "Cancel"
35 new CommandButton createButton
36 set createButton.In "print $concatStr.Out$; exec command; "
37 set createButton.Label "Run"
39 new LayoutLine buttons
40 set buttons.Orientation Horizontal
41 # connect cancelButton.Widget buttons.Widget1
42 connect createButton.Widget buttons.Widget2
45 connect windowTitle.Widget main.Widget1
46 connect dirOutput.Widget main.Widget2
47 connect name.Widget main.Widget3
48 connect author.Widget main.Widget4
49 connect description.Widget main.Widget5
50 connect buttons.Widget main.Widget6
51 set main.WinTitle "Create new black box package"
52 set main.WinDialog true
54 set main.WinHeight 250
56 #-----------------------------------------------------------------------------
61 new ConcatStrings dirStr
63 connect ascii.Out dirStr.In2
64 connect dir.Out dirStr.In3
65 connect ascii.Out dirStr.In4
68 new ConcatStrings nameStr
70 connect name.Out nameStr.In2
73 new ConcatStrings authorStr
74 set authorStr.In1 " '"
75 connect author.Out authorStr.In2
76 set authorStr.In3 "' "
78 new ConcatStrings descriptionStr
79 set descriptionStr.In1 " '"
80 connect description.Out descriptionStr.In2
81 set descriptionStr.In3 "' "
85 new Configuration conf
86 new ConcatStrings concatStrCommand
87 set concatStrCommand.In1 " "
88 connect ascii.Out concatStrCommand.In2
89 connect conf.BinPath concatStrCommand.In3
90 connect conf.FileSeparator concatStrCommand.In4
91 set concatStrCommand.In5 "bbCreatePackage"
92 connect ascii.Out concatStrCommand.In6
93 set concatStrCommand.In7 " "
95 new ConcatStrings concatStr
96 connect ascii.Out concatStr.In1
97 connect concatStrCommand.Out concatStr.In2
98 connect dirStr.Out concatStr.In3
99 connect nameStr.Out concatStr.In4
100 connect authorStr.Out concatStr.In5
101 connect descriptionStr.Out concatStr.In6
102 connect ascii.Out concatStr.In7
105 new ExecSystemCommand command
106 connect concatStr.Out command.In