GUIPlugPackage Script Fix

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

diff --git a/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
index 4fb5a19114984e52139805efec7c150e2696b703..a6a7777db20182009846a263790ca0a6f051ae3b 100644 (file)
--- a/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
+++ b/packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs
@@ -11,8 +11,8 @@ include itkvtk
 include wx
 include std
 
-author "Daniel F Gonzalez"
-description "Plug Package script"
+author "Daniel Gonzalez"
+description "Plug Package Script"
 category "Core Script"
 
 new DirectorySelector directorySelect
@@ -20,7 +20,9 @@ new DirectorySelector directorySelect
   set directorySelect.Title "Select Package"
 
 new LayoutLine Layout
+  set Layout.WinHeight "200"
   set Layout.WinTitle "Plug Package"
+  set Layout.WinWidth "500"
 
 new OutputText title
   set title.In "Plug package directory: "
@@ -28,7 +30,7 @@ new OutputText title
 new ExecSystemCommand execution
 
 new CommandButton plugButton
-  set plugButton.In "print $lineToExecute.Out$; exec execution;"
+  set plugButton.In "print $lineToExecute.Out$;"
   set plugButton.Label "Plug it!"
 
 new ConcatStrings lineToExecute
@@ -36,6 +38,26 @@ new ConcatStrings lineToExecute
 
 new OutputText pathText
 
+new StringSelect resultString
+  set resultString.In0 "Packaged Successfully Plugged"
+  set resultString.In1 "An error occurred while plugging the package. Please check the command line."
+  set resultString.In2 "An error 2 occurred while plugging the package. Please check the command line."
+  set resultString.In3 "An error 3 occurred while plugging the package. Please check the command line."
+  set resultString.In4 "An error 4 occurred while plugging the package. Please check the command line."
+  set resultString.In5 "An error 5 occurred while plugging the package. Please check the command line."
+  set resultString.In6 "An error 6 occurred while plugging the package. Please check the command line."
+  set resultString.In7 "An error 7 occurred while plugging the package. Please check the command line."
+  set resultString.In8 "An error 8 occurred while plugging the package. Please check the command line."
+  set resultString.In9 "An error 9 occurred while plugging the package. Please check the command line."
+
+new LayoutLine resultDialog
+  set resultDialog.WinDialog "true"
+  set resultDialog.WinHeight "100"
+  set resultDialog.WinTitle "Result"
+  set resultDialog.WinWidth "400"
+
+new OutputText textLabel
+
 
 connect title.Widget Layout.Widget1
 connect lineToExecute.Out execution.In
@@ -43,6 +65,13 @@ connect plugButton.Widget Layout.Widget3
 connect directorySelect.Out lineToExecute.In2
 connect directorySelect.Out pathText.In
 connect pathText.Widget Layout.Widget2
+connect plugButton.BoxChange execution.BoxExecute
+connect textLabel.Widget resultDialog.Widget1
+connect plugButton.BoxChange resultDialog.BoxExecute
+connect plugButton.BoxChange textLabel.BoxExecute
+connect execution.Return resultString.In
+connect resultString.Out textLabel.In
+connect plugButton.BoxChange resultString.BoxExecute
 
 exec directorySelect
 exec Layout