packages/toolsbbtk/bbs/appli/CreatePackage.bbs

   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"
   3 category "toolsbbtk"
   4
   5 load wx
   6 load std
   7
   8
   9 new DirectorySelector dir
  10     set dir.Message "Select the location of your new package"
  11
  12 #-----------------------------------------------------------------------------
  13 new OutputText dirOutput
  14   connect dir.Out dirOutput.In
  15
  16 new OutputText windowTitle
  17   set windowTitle.In "Package informations"
  18
  19 new InputText name
  20     set name.Title "Name         (1 word)"
  21     set name.In "NEW_PACKAGE"
  22
  23 new InputText author
  24     set author.Title "Author(s)           (caracters   '<',  '>' not accepted...)"
  25     set author.In "_author_"
  26
  27 new InputText description
  28     set description.Title "Description            (caracters   '<',  '>' not accepted...)"
  29     set description.In "_description_"
  30
  31 #new CommandButton cancelButton
  32 #    set cancelButton.In "quit"
  33 #    set cancelButton.Label "Cancel"
  34
  35 new CommandButton createButton
  36     set createButton.In "print $concatStr.Out$; exec command; "
  37     set createButton.Label "Run"
  38
  39 new LayoutLine buttons
  40     set buttons.Orientation Horizontal
  41  #   connect cancelButton.Widget buttons.Widget1
  42     connect createButton.Widget buttons.Widget2
  43
  44 new LayoutLine main
  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
  53     set main.WinWidth 400
  54     set main.WinHeight 250
  55
  56 #-----------------------------------------------------------------------------
  57
  58 new ASCII ascii
  59   set ascii.In 34
  60
  61 new ConcatStrings dirStr
  62  set dirStr.In1 " "
  63  connect ascii.Out dirStr.In2
  64  connect dir.Out dirStr.In3
  65  connect ascii.Out dirStr.In4
  66  set dirStr.In5 " "
  67
  68 new ConcatStrings nameStr
  69  set nameStr.In1 "  "
  70  connect name.Out nameStr.In2
  71  set nameStr.In3 " "
  72
  73 new ConcatStrings authorStr
  74  set authorStr.In1 " '"
  75  connect author.Out authorStr.In2
  76  set authorStr.In3 "' "
  77
  78 new ConcatStrings descriptionStr
  79  set descriptionStr.In1 " '"
  80  connect description.Out descriptionStr.In2
  81  set descriptionStr.In3 "' "
  82
  83
  84
  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  " "
  94
  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
 103
 104
 105 new ExecSystemCommand command
 106     connect concatStr.Out command.In
 107
 108 exec dir
 109 exec main
 110