Feature #1676

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

diff --git a/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
new file mode 100644 (file)
index 0000000..1acfd88
--- /dev/null
+++ b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
@@ -0,0 +1,48 @@
+# ----------------------------------
+# - BBTKGEditor v 1.3 BBS BlackBox Script
+# - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
+# ----------------------------------
+
+# BBTK GEditor Script
+# ----------------------
+
+include std
+include itkvtk
+include wx
+include std
+
+author "Daniel Gonzalez"
+description "Plug Package script"
+category "Core Script"
+
+new DirectorySelector directorySelect
+  set directorySelect.Message "Select the location of the package"
+  set directorySelect.Title "Select Package"
+
+new LayoutLine Layout
+  set Layout.WinTitle "Plug Package"
+
+new OutputText title
+  set title.In "Plug package directory: "
+
+new ExecSystemCommand execution
+
+new CommandButton plugButton
+  set plugButton.In "print $lineToExecute.Out$; exec execution;"
+  set plugButton.Label "Plug it!"
+
+new ConcatStrings lineToExecute
+  set lineToExecute.In1 "bbPlugPackage "
+
+new OutputText pathText
+
+
+connect title.Widget Layout.Widget1
+connect lineToExecute.Out execution.In
+connect plugButton.Widget Layout.Widget3
+connect directorySelect.Out lineToExecute.In2
+connect directorySelect.Out pathText.In
+connect pathText.Widget Layout.Widget2
+
+exec directorySelect
+exec Layout