packages/toolsbbtk/bbs/appli/GUIPlugPackage.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.3 BBS BlackBox Script
   3 # - /home/daniel/Documents/TrabajosCreaTools/Proyectos/PlugPackageBBS/GUIPlugPackage.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include std
  13
  14 author "Daniel F Gonzalez"
  15 description "Plug Package script"
  16 category "Core Script"
  17
  18 new DirectorySelector directorySelect
  19   set directorySelect.Message "Select the location of the package"
  20   set directorySelect.Title "Select Package"
  21
  22 new LayoutLine Layout
  23   set Layout.WinTitle "Plug Package"
  24
  25 new OutputText title
  26   set title.In "Plug package directory: "
  27
  28 new ExecSystemCommand execution
  29
  30 new CommandButton plugButton
  31   set plugButton.In "print $lineToExecute.Out$; exec execution;"
  32   set plugButton.Label "Plug it!"
  33
  34 new ConcatStrings lineToExecute
  35   set lineToExecute.In1 "bbPlugPackage "
  36
  37 new OutputText pathText
  38
  39
  40 connect title.Widget Layout.Widget1
  41 connect lineToExecute.Out execution.In
  42 connect plugButton.Widget Layout.Widget3
  43 connect directorySelect.Out lineToExecute.In2
  44 connect directorySelect.Out pathText.In
  45 connect pathText.Widget Layout.Widget2
  46
  47 exec directorySelect
  48 exec Layout