1 # ----------------------------------
2 # - BBTKGEditor v 1.3 BBS BlackBox Script
3 # - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
4 # ----------------------------------
7 # ----------------------
14 author "Daniel Gonzalez"
15 description "Plug Package Script"
16 category "Core Script"
18 new DirectorySelector directorySelect
19 set directorySelect.Message "Select the location of the package"
20 set directorySelect.Title "Select Package"
23 set Layout.WinHeight "200"
24 set Layout.WinTitle "Plug Package"
25 set Layout.WinWidth "500"
28 set title.In "Plug package directory: "
30 new ExecSystemCommand execution
32 new CommandButton plugButton
33 set plugButton.In "print $lineToExecute.Out$;"
34 set plugButton.Label "Plug it!"
36 new ConcatStrings lineToExecute
37 set lineToExecute.In1 "bbPlugPackage "
39 new OutputText pathText
41 new StringSelect resultString
42 set resultString.In0 "Packaged Successfully Plugged"
43 set resultString.In1 "An error occurred while plugging the package. Please check the command line."
44 set resultString.In2 "An error 2 occurred while plugging the package. Please check the command line."
45 set resultString.In3 "An error 3 occurred while plugging the package. Please check the command line."
46 set resultString.In4 "An error 4 occurred while plugging the package. Please check the command line."
47 set resultString.In5 "An error 5 occurred while plugging the package. Please check the command line."
48 set resultString.In6 "An error 6 occurred while plugging the package. Please check the command line."
49 set resultString.In7 "An error 7 occurred while plugging the package. Please check the command line."
50 set resultString.In8 "An error 8 occurred while plugging the package. Please check the command line."
51 set resultString.In9 "An error 9 occurred while plugging the package. Please check the command line."
53 new LayoutLine resultDialog
54 set resultDialog.WinDialog "true"
55 set resultDialog.WinHeight "100"
56 set resultDialog.WinTitle "Result"
57 set resultDialog.WinWidth "400"
59 new OutputText textLabel
62 connect title.Widget Layout.Widget1
63 connect lineToExecute.Out execution.In
64 connect plugButton.Widget Layout.Widget3
65 connect directorySelect.Out lineToExecute.In2
66 connect directorySelect.Out pathText.In
67 connect pathText.Widget Layout.Widget2
68 connect plugButton.BoxChange execution.BoxExecute
69 connect textLabel.Widget resultDialog.Widget1
70 connect plugButton.BoxChange resultDialog.BoxExecute
71 connect plugButton.BoxChange textLabel.BoxExecute
72 connect execution.Return resultString.In
73 connect resultString.Out textLabel.In
74 connect plugButton.BoxChange resultString.BoxExecute